Question

Сделать этот рисунок в pascal abc и разрисовать . По этой фотки ! Помогите срочно)! Помогите пожалуйста

Answer 1

Ответ:

1. День

program z1;

uses graphABC;

var i,y:integer;

begin

SetWindowSize(350,325);

SetWindowTitle('День');

Line(0,235,350,235);

FloodFill(1,1,clDeepSkyBlue);

SetBrushColor(clLimeGreen);

FillRectangle(0,235,350,325);

SetBrushColor(clBurlyWood);

Rectangle(105,75,230,305);

SetBrushColor(clRed);

Rectangle(150,270,175,305);

Rectangle(175,270,185,305);

MoveTo(105,75);

LineTo(140,60);

LineTo(250,60);

LineTo(229,75);

FloodFill(155,70,clBlack);

MoveTo(250,60);

LineTo(250,280);

LineTo(230,304);

FloodFill(240,150,clBurlyWood);

FloodFill(240,250,clBurlyWood);

SetPenWidth(3);

y:=95;

for i:=1 to 4 do

begin

SetBrushColor(clLightCyan);

Rectangle(130,y,155,y+25);

Rectangle(180,y,205,y+25);

y:=y+43

end

end.

2. Ночь

program z1;

uses graphABC;

var i,y:integer;

begin

SetWindowSize(350,325);

SetWindowTitle('Ночь');

Line(0,235,350,235);

FloodFill(1,1,clDarkBlue);

SetBrushColor(clDarkGreen);

FillRectangle(0,235,350,325);

SetBrushColor(clChocolate);

Rectangle(105,75,230,305);

SetBrushColor(clDarkRed);

Rectangle(150,270,175,305);

Rectangle(175,270,185,305);

MoveTo(105,75);

LineTo(140,60);

LineTo(250,60);

LineTo(229,75);

FloodFill(155,70,clBlack);

MoveTo(250,60);

LineTo(250,280);

LineTo(230,304);

FloodFill(240,150,clChocolate);

FloodFill(240,250,clChocolate);

SetPenWidth(3);

y:=95;

for i:=1 to 4 do

begin

SetBrushColor(clYellow);

Rectangle(130,y,155,y+25);

Rectangle(180,y,205,y+25);

y:=y+43

end

end.

Объяснение:

картинки