Question

Напишите программу с использованием процедур Berry,Leaf

Answer 1

Ответ:

uses drawman;

{Рисует одну вишенку по часовой стрелке, начиная с верхней линии}

procedure Berry();

begin

 onvector(1, 0);

 onvector(1, -1);

 onvector(0, -1);

 onvector(-1, -1);

 onvector(-1, 0);

 onvector(-1, 1);

 onvector(0, 1);

 onvector(1, 1);

end;

{Рисует сразу оба листка}

procedure Leaf();

begin

 onvector(2, 0);

 onvector(2, -2);

 onvector(-2, 0);

 onvector(-4, 4);

 onvector(-2, 0);

 onvector(2, -2);

 onvector(2, 0);

end;

begin

 field(15, 12);

 topoint(6, 10);

 pendown;

 Leaf;

 onvector(-3, -6);

 onvector(-1, 0);

 Berry;

 onvector(1, 0);

 onvector(3, 6);

 onvector(0, -6);

 Berry;

end.