Регистрация
asfandiyarova20
12.06.2021 00:51
Информатика
Есть ответ 👍

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

218
365
Посмотреть ответы 2

Ответы на вопрос:

09Катя99
09Катя99
4,4(68 оценок)

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.


Напишите программу с использованием процедур Berry,Leaf
artemykas
artemykas
4,8(76 оценок)
Примерно так выглядит граф, перестройте его под ваши пункты а) и б) это не сложно

Популярно: Информатика