Процедуры без параметров

Как и всякую процедуру,- процедуру без параметров следует описать.

Описание процедуры выглядит так:

PROCEDURE <имя_процедуры>;

Var

Описание локальных переменных, констант и т.д.

BGIN

(блок аналогичный программе)

..........;

END;

Процедура не может выполняться сама, ее необходимо вызвать по имени.

<имя_процедуры>;

Задача 1. Нарисовать бланк

************

* *

* *

************

Оформив рисование линий и "линий с дырками" в виде процедур.

Procedure Line;

Begin

Writeln('************');

End;

Procedure LineWhiteSpace;

Begin

Writeln('* *');

End;

BEGIN

Line; <---- вызов процедуры Line

LineWhiteSpace; <---- вызов процедуры

LineWhiteSpace; LineWhiteSpace

Line;

END.

Задача 2. Написать процедуру для рисования самолета

-------О-------

использовать цикл для рисования крыла.

Вывести на экран эскадрилью

-------О-------

-------О-------

-------О-------

-------О-------

-------О-------

uses CRT;

VAR line:integer;

Procedure Plan;

Var

i:integer;

Begin

for i:=1 to 7 do write('-');

write('0');

for i:=1 to 7 do write('-');

End;

BEGIN

clrscr;

for line:=5 to 9 do begin

gotoxy(line,line);plan;

end;

end.