Помогите, пожалуйста, нарисовать блок схему.

[email protected] в категроии Информатика, вопрос открыт 28.06.2018 в 23:12

Вот задача.
type DATE=RECORD
fam: string;
street,f,i:string;
dom:integer;
kvart:integer;
end;
MAS=ARRAY[1..12] of DATE;
Const D:MAS=((fam:'Петров';street:'Свердлова';dom:45;kvart:45),
(fam:'Иванов';street:'Горького';dom:45;kvart:5),
(fam:'Афанасьев';street:'Свердлова';dom:45;kvart:20),
(fam:'Борисов';street:'Скворцова';dom:45;kvart:34),
(fam:'Новиков';street:'Свердлова';dom:45;kvart:19),
(fam:'Захаров';street:'Дачная';dom:45;kvart:17),
(fam:'Семёнов';street:'Свердлова';dom:45;kvart:16),
(fam:'Фёдоров';street:'Вокзальная';dom:12;kvart:94),
(fam:'Панфилов';street:'Свердлова';dom:83;kvart:21),
(fam:'Трофимов';street:'Свердлова';dom:94;kvart:54),
(fam:'Маслов';street:'Вербная';dom:23;kvart:65),
(fam:'Никитин';street:'Свердлова';dom:21;kvart:35) );
Var i,g:integer;

begin
Memo1.Lines.Clear;
Memo1.Lines.Add('На улице Свердлова живут: ');
g:=0;
for i:=1 to 12 do
if (d[i].street='Свердлова') then inc(g); memo1.Lines.Add(IntToStr(g)+' '+'человек');
Memo1.Lines.Add(' ');

Memo1.Lines.Add('В доме 45 живут: ');
for i:=1 to 12 do
if (d[i].dom=45) then Memo1.Lines.Add(d[i].fam);
Memo1.Lines.Add(' ');
end;
end.