Создать модуль, содержащий подпрограммы создание изображения окна, крыши, двери, стены - Pascal ABC

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

Создать модуль, содержащий подпрограммы создание изображения окна, крыши, двери, стены. Использовать его для рисования домика.

Код к задаче: «Создать модуль, содержащий подпрограммы создание изображения окна, крыши, двери, стены - 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.

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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы