Дополнить приведенный ниже код программы
любым изображением со страницы 71. (код скопировать и вставить в программу
PascalABC.NET)
uses GraphABC;
begin
/Дом
SetPenColor(RGB(255,0,0));
SetBrushColor(clBlue);
Rectangle
(100,200,400,450);
//Окно
SetBrushColor(clYellow);
Rectangle
(200,250,300,350);
SetPenColor(clRed);
SetPenStyle(psDot);
SetPenWidth(2);
Line(250,250,250,350);
Line(200,300,300,300);
//Крыша
SetPenStyle(psSolid);
SetPenWidth(1);
Line(100, 200, 250, 0);
Line(250, 0, 400, 200);
SetBrushStyle(bsHatch);
SetBrushColor
(clLightGreen);
SetBrushHatch(bhCross);
Circle(250, 125, 30);
FloodFill(250,70, clPlum);
end.
разгарнуць » / « згарнуць