ПРОЦЕДУРЫ И ФУНКЦИИ ◊

Пример 1. Использование процедуры для рисования 3-х одинаковых квадратов исполнителем Чертежник.

program chert_3_kvadrata;

uses Drawman;
procedure kvadrat;
begin

pendown;
onvector(0,3);
onvector(3,0);
onvector(0,-3);
onvector(-3,0);
penup;
end;

begin
standardfield;
topoint(2,2); kvadrat;
topoint(10,3); kvadrat;
topoint(6,10); kvadrat;
end.

Можешь загрузить!       chert_3_kvadrata

Пример 2. Начертите цифры почтового индекса, составив для каждой свою процедуру.

program draw;

uses drawman;
procedure p0;
begin

pendown;
onvector(1,0);
onvector(0,2);
onvector(-1,0);
onvector(0,-2);
penup;

end;
procedure p1;
begin

pendown;
onvector(1,1);
onvector(0,-2);
penup;

end;

begin

task('p1');
topoint(2,2); p0;
topoint(4,3); p1;

end.

Можешь загрузить!       chertegnik1

 

Copyright © 2008 Гимназия №1 имени К.Калиновского г.Свислочь © Синица А.А.