Создать модуль, содержащий подпрограммы создание изображения окна, крыши, двери, стены - Pascal ABC
Формулировка задачи:
Создать модуль, содержащий подпрограммы создание изображения окна, крыши, двери, стены. Использовать его для рисования домика.
Решение задачи: «Создать модуль, содержащий подпрограммы создание изображения окна, крыши, двери, стены»
textual
Листинг программы
unit dom; interface uses graphabc; procedure stena(x:integer); procedure okno(x,y:integer); procedure dver(x:integer); procedure krysha(x:integer); implementation procedure stena(x:integer); begin SetPenColor(clGreen); SetbrushColor(clGreen); Rectangle(x-150,x-100,x+150,x+100); end; procedure okno(x,y:integer); begin SetBrushColor(clAqua); Rectangle(x-40,y-80,x+40,y+20); SetPenwidth(3); SetPenColor(clGreen); Line(x-40,y-50,x+40,y-50); Line(x,y-50,x,y+20); end; procedure dver(x:integer); begin SetbrushColor(clCream); Rectangle(x-40,x-80,x+40,x+95); SetbrushColor(clBlack); SetPenColor(clBlack); Rectangle(x-35,x-5,x-30,x+5); end; procedure krysha(x:integer); begin SetPenColor(clBrown); Line(x-160,x-100,x+160,x-100); Line(x-160,x-100,x,x-150); Line(x,x-150,x+160,x-100); FloodFill(x,x-120,clBrown); end; end.
Объяснение кода листинга программы
- Создание модуля
dom
- Определение интерфейса unit dom
- Определение процедур stena, okno, dver, krysha
- Реализация процедуры stena
- Реализация процедуры okno
- Реализация процедуры dver
- Реализация процедуры krysha
- Завершение реализации модуля
dom
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д