Напишите программу с использованием процедур Berry,Leaf
Приложения:
![](https://st.uroker.com/files/41d/41d27669a87756a2ef4543a8e37fb800.jpg)
Аноним:
в зону то мы можем попасть
Ответы
Ответ дал:
3
Ответ:
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.
Приложения:
![](https://st.uroker.com/files/857/8573316280242d7f163c002ef2077c1b.png)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад