разукрасить дом

@Николай9406 · Регистрация: 23.09.2012

Pascal

program Dom; 
uses GraphABC; 
begin Rectangle(100,100,200,170); 
Line(100,100,150,50); 
Line(150,50,200,100); 
Circle(150,80,8); 
Rectangle(110, 130, 125, 160); 
Rectangle(135, 130, 150, 150); 
Rectangle(155, 130, 170, 150); 
Rectangle(175, 130, 190, 150); 
end.

@Puporev · 07.04.2013, 15:30

Pascal

program Dom;
uses GraphABC;
begin
setbrushcolor(clGreen);
Rectangle(100,100,200,170);
Line(100,100,150,50);
Line(150,50,200,100);
floodfill(150,95,clGray);
setbrushcolor(clBlue);
Circle(150,80,8);
setbrushcolor(clBrown);
Rectangle(110, 130, 125, 160);
setbrushcolor(clAqua);
Rectangle(135, 130, 150, 150);
Rectangle(155, 130, 170, 150);
Rectangle(175, 130, 190, 150);
end.

Опции темы