Методика підрахунку прямокутників різної форми

end;

#13: begin

if pnum=1 then zad1;

if pnum=2 then zad2;

if pnum=3 then zad3;

if pnum=4 then about;

if pnum=5 then done:=true;

end;

#27: done:=true; { Pressing ESC }

#3: done:=true; { Pressing Ctrl+C }

end;

until done;

closegraph;

write ('До побачення!!!');

end.

4. Блок – схеми програми та процедур

Блок-схема процедури Draw:

Блок-схема процедури Ramka:

Блок-схема процедури About:

Блок-схема процедури Flash:

Блок-схема процедури ZAD1:

Блок-схема процедури PRINTMATRIX:

Блок-схема процедури Curpos:

Блок-схема процедури Count:

Блок-схема процедури ZAD2: