Помогите пожалуйста сделать, исполнитель чертежник

0 голосов
44 просмотров

Помогите пожалуйста сделать, исполнитель чертежник


image

Информатика (29 баллов) | 44 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Program P;
uses Drawman;
begin
field(20,22);
topoint(1,1);
pendown;
topoint(12,1);
topoint(5,14);
topoint(1,2);
topoint(11,2);
topoint(5,13);
topoint(2,3);
topoint(10,3);
topoint(5,12);
topoint(3,4);
topoint(9,4);
topoint(5,11);
topoint(4,5);
penup;
topoint(0,0);
pendown;
end.


program Zd;
uses Drawman;
begin
field(23,13);
topoint(11,12);
pendown;
topoint(2,5);
topoint(13,1);
topoint(23,5);
topoint(12,11);
topoint(4,5);
topoint(13,2);
topoint(21,5);
topoint(12,10);
topoint(6,5);
topoint(13,3);
topoint(17,6);
topoint(12,8);
penup;
topoint(0,0);
pendown;
end.








(132 баллов)
0

Больше лень