Изобразить газовую плиту - Pascal ABC

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

нарисовать рисунок

Код к задаче: «Изобразить газовую плиту - Pascal ABC»

textual
uses graphABC;
var x,y:integer;
begin
setwindowsize(500,500);
centerwindow;
setpenwidth(3);
x:=windowwidth div 2-50;
y:=windowheight div 3;
rectangle(x,y-75,x+150,y);
moveto(x,y);
lineto(x-60,y+45);
lineto(x+90,y+45);
lineto(x+150,y);
setbrushcolor(clBlack);
ellipse(x-15,y+15,x+40,y+30);
ellipse(x+45,y+15,x+100,y+30);
setbrushcolor(clWhite);
rectangle(x-60,y+45,x+90,y+195);
line(x-60,y+80,x+90,y+80);
line(x+90,y+195,x+150,y+140);
line(x+150,y+140,x+150,y);
setbrushcolor(clBlack);
rectangle(x-45,y+95,x+75,y+180);
ellipse(x-55,y+65,x-30,y+70);
circle(x-10,y+65,10);
circle(x+15,y+65,10);
circle(x+40,y+65,10);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

7   голосов, оценка 4.571 из 5


СОХРАНИТЬ ССЫЛКУ