Помогите составить блок-схему

Тема в разделе "Delphi - Базы данных", создана пользователем jenyok, 19 май 2009.

  1. jenyok

    jenyok Гость

    Пожалуйста помогите составить блок-схему к программе, нужно сдавать курсовую, а схемы нет.
    Пробавал через fceditor, он выдаёт ошибку, а через Avtoshema вообще фигня какая-та
    Плиз помогите

    program GAI;
    uses crt;
    type
    TCarBase = record
    car: string [20];
    color: string [20];
    date: string [20];
    gosnum: string [20];
    name: string [40];
    home: string [40];
    end;
    var
    data: TCarBase;
    carbase: array [1..200] of TCarBase;
    DataFile: file of TCarBase;
    i,num: word;
    ch: char;
    procedure Show (i: word);
    begin
    clrscr;
    writeln (' Count: ',i);
    writeln;
    write ('Car: '); writeln(carbase.car);
    write ('Color: '); writeln(carbase.color);
    write ('Date: '); writeln(carbase.date);
    write ('Gos Nomer: '); writeln(carbase.gosnum);
    write ('F.I.O.: '); writeln(carbase.name);
    write ('Adres: '); writeln(carbase.home);
    writeln;
    writeln (' Help');
    writeln ('"+" - Count Up "-" - Count Down');
    writeln ('"Enter" - Edit "Esc" - Exit');
    writeln ('"R" - Remove "F" - Find');
    end;
    procedure SaveFile;
    begin
    rewrite (datafile);
    for i:=1 to 200 do
    write (datafile,carbase);
    close (datafile);
    end;
    procedure edit (i: word);
    begin
    clrscr;
    writeln ('Input Informations');
    writeln;
    write ('Car: '); readln (carbase.car);
    write ('Color: '); readln (carbase.color);
    write ('Date: '); readln (carbase.date);
    write ('Gos Nomer: '); readln (carbase.gosnum);
    write ('F.I.O.: '); readln (carbase.name);
    write ('Adres: '); readln (carbase.home);
    SaveFile;
    end;
    procedure remove (i: word);
    const
    str=' ';
    str2=' ';
    begin
    carbase.car:=str;
    carbase.color:=str;
    carbase.date:=str;
    carbase.gosnum:=str;
    carbase.name:=str2;
    carbase.home:=str2;
    SaveFile;
    end;
    procedure find;
    var
    tmp: string [20];
    begin
    clrscr;
    write ('Input text for searsh(GosNomer): ');
    readln(tmp);
    for i:=1 to 200 do
    if tmp=carbase.gosnum then num:=i;
    end;
    {--- Main Code ---}
    begin
    assign (datafile,'base.dat');
    {$I-}
    reset (datafile);
    {$I+}
    if ioresult<>0 then
    begin
    clrscr;
    writeln ('DATABASE FILE NOT FOUND!');
    writeln ('Create new datbase file.');
    write ('Press any key...');
    readkey;
    end
    else
    begin
    for i:=1 to 200 do
    begin
    read (datafile,data);
    carbase[i]:=data;
    end;
    close (datafile);
    end;
    num:=1;
    repeat
    show (num);
    ch:=readkey;
    case ch of
    '+': if num<200 then num:=num+1;
    '-': if num>1 then num:=num-1;
    'r': remove(num);
    'f': find;
    #13: edit(num);
    end;
    until ch=#27;
    end.[/i]
     
  2. Titan

    Titan Well-Known Member

    Регистрация:
    10 июн 2004
    Сообщения:
    105
    Симпатии:
    0
    Вы если просите о помощи, то потрудитесь хотябы табуляцию расставить. Мало того, что ленитесь построить элементарную блок-схему так еще и лень написать все в удобоваривом виде. :)
     
  3. jenyok

    jenyok Гость

    Какую табуляцию, я в программировании вообще ничего не понемаю, нам дали курсовую из 79 вариантов, всю неделю искал нашел похожий вариант из 79 вариантов, показал преподу он дал добро, теперь не знаю как блок-схему делать.
    Помогите если можете, а то уже в субботу сдавать надо! Пожалуйста!
     
Загрузка...

Поделиться этой страницей