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

  • Автор темы jenyok
  • Дата начала
J

jenyok

#1
Пожалуйста помогите составить блок-схему к программе, нужно сдавать курсовую, а схемы нет.
Пробавал через 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:=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.
 

Titan

Well-known member
10.06.2004
105
0
#2
Вы если просите о помощи, то потрудитесь хотябы табуляцию расставить. Мало того, что ленитесь построить элементарную блок-схему так еще и лень написать все в удобоваривом виде. :)
 
J

jenyok

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