Предмет: Информатика,
автор: mastermuramas2
Нарисуйте домик Pascal
Приложения:
Ответы
Автор ответа:
2
uses GraphABC;
begin
setwindowsize(1000,800);
SetpenWidth(6);
rectangle(50,300,650,700);
line(0,700,1000,700);
Moveto(0,300);
Lineto(350,35);
lineto(700,300);
lineto(0,300);
rectangle(130,420,260,600);
line(195,475,195,600);
line(130,475,260,475);
rectangle(130+250,420,260+250,600);
line(195+250,475,195+250,600);
line(130+250,475,260+250,475);
moveto(510,155);
lineto(510,50);
lineto(470,50);
lineto(470,128);
end.
Приложения:
Похожие вопросы
Предмет: Английский язык,
автор: AliceZ
Предмет: Английский язык,
автор: астр
Предмет: Русский язык,
автор: Лерочка1993
Предмет: Математика,
автор: Аноним
Предмет: История,
автор: DimaKid