Изобразить газовую плиту - 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.

Объяснение кода листинга программы

  1. Импортируется библиотека graphABC.
  2. Объявляются переменные x и y типа integer.
  3. Устанавливается размер окна приложения.
  4. Вычисляется координата x и y для рисования прямоугольника.
  5. Рисуется прямоугольник с помощью функции rectangle.
  6. Устанавливается цвет кисти на черный.
  7. Рисуется эллипс с помощью функции ellipse.
  8. Устанавливается цвет кисти на белый.
  9. Рисуется прямоугольник с помощью функции rectangle.
  10. Рисуются линии с помощью функции line.
  11. Устанавливается цвет кисти на черный.
  12. Рисуется эллипс с помощью функции ellipse.
  13. Рисуется прямоугольник с помощью функции rectangle.
  14. Рисуются линии с помощью функции line.
  15. Устанавливается цвет кисти на черный.
  16. Рисуется прямоугольник с помощью функции rectangle.
  17. Рисуются линии с помощью функции line.
  18. Устанавливается цвет кисти на белый.
  19. Рисуется эллипс с помощью функции ellipse.
  20. Рисуется круг с помощью функции circle.
  21. Завершается выполнение программы.

Оцени полезность:

7   голосов , оценка 4.571 из 5
Похожие ответы