Изобразить газовую плиту - 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.
Объяснение кода листинга программы
- Импортируется библиотека graphABC.
- Объявляются переменные x и y типа integer.
- Устанавливается размер окна приложения.
- Вычисляется координата x и y для рисования прямоугольника.
- Рисуется прямоугольник с помощью функции rectangle.
- Устанавливается цвет кисти на черный.
- Рисуется эллипс с помощью функции ellipse.
- Устанавливается цвет кисти на белый.
- Рисуется прямоугольник с помощью функции rectangle.
- Рисуются линии с помощью функции line.
- Устанавливается цвет кисти на черный.
- Рисуется эллипс с помощью функции ellipse.
- Рисуется прямоугольник с помощью функции rectangle.
- Рисуются линии с помощью функции line.
- Устанавливается цвет кисти на черный.
- Рисуется прямоугольник с помощью функции rectangle.
- Рисуются линии с помощью функции line.
- Устанавливается цвет кисти на белый.
- Рисуется эллипс с помощью функции ellipse.
- Рисуется круг с помощью функции circle.
- Завершается выполнение программы.