Question

сделайте пжж в PascalABC

Answer 1

Ответ:

program z1;

uses graphABC;

begin

SetWindowSize(900,550);

SetWindowTitle('Паровоз');

SetBrushColor(clBlue);

FillRectangle(150,200,500,450);

FillRectangle(500,100,850,450);

SetBrushColor(clwhite);

FillRectangle(550,150,800,300);

SetPenColor(clYellow);

Line(50,450,150,450);

Line(50,450,150,300);

FloodFill(100,400,clYellow);

SetBrushColor(clBlack);

FillRectangle(200,100,250,200);

FillRectangle(300,50,350,200);

SetPenColor(clBlack);

MoveTo(200,450);

LineTo(200,400);

LineTo(250,350);

LineTo(250,350);

LineTo(300,350);

LineTo(350,400);

LineTo(350,450);

LineTo(300,500);

LineTo(250,500);

LineTo(200,450);

FloodFill(300,435,clBlack);

FloodFill(300,455,clBlack);

MoveTo(500,450);

LineTo(500,400);

LineTo(550,350);

LineTo(550,350);

LineTo(600,350);

LineTo(650,400);

LineTo(650,450);

LineTo(600,500);

LineTo(550,500);

LineTo(500,450);

FloodFill(600,435,clBlack);

FloodFill(600,455,clBlack);

MoveTo(700,450);

LineTo(700,400);

LineTo(750,350);

LineTo(750,350);

LineTo(800,350);

LineTo(850,400);

LineTo(850,450);

LineTo(800,500);

LineTo(750,500);

LineTo(700,450);

FloodFill(800,435,clBlack);

FloodFill(800,455,clBlack)

end.

Объяснение:

картинка