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

ramka;

end;

end;

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.

6. Пояснення до програми

Глобальні константи:

НазваТип Призначення

FullТип заливкиПовністю замальована текстура

BrickТип заливкиТекстура вигляду цегли

GrassТип заливкиТекстура вигляду трави

G Integer Прискорення вільного падіння = 9.8