Домик графика - Turbo Pascal

Формулировка задачи:

Люди выручите Нужно сделать 1 дом как на рисунке! И с помощью цыкла сделать ещё 3 ему подобных между домами тоже должен быть одинаковый промежуток! Заранее спасибо

Код к задаче: «Домик графика - Turbo Pascal»

textual
procedure Dom(x,y:integer);
begin
rectangle(x,y,x+80,y+10);
rectangle(x+50,y-15,x+60,y);
rectangle(x+10,y+10,x+70,y+80);
setfillstyle(1,8);
fillellipse(x+65,y-25,5,4);
fillellipse(x+80,y-35,9,7);
rectangle(x+15,y+25,x+35,y+45);
rectangle(x+45,y+35,x+65,y+75);
end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ