Question

Помогите!!! 70 баллов составьте домик в pascalABC по этому примеру только координаты и цвета заливки должны быть ваши

Answer 1

Ответ:

uses GraphABC;

begin

//Фон

FloodFill(1,1,clDarkBlue);

SetBrushColor(clDarkGreen);

Rectangle(0,375,640,480);

//Дом

SetBrushColor(clChocolate);

Rectangle(175, 225, 465,465);

//Окно

SetBrushColor(clYellow);

Rectangle(275, 295, 365, 405);

Line(320, 295, 320, 404);

Line(275, 350, 364, 350);

//Крыша

MoveTo (175, 225);

LineTo(320, 15);

LineTo(465, 225);

FloodFill(320,25,clRed);

Circle(320, 155, 39);

FloodFill(320,155,clYellow);

end.

Объяснение:

фото