Question

Составьте программу для рисования ёлочки в Pascal ABC
​

Answer 1

Ответ:

program z1;

uses graphABC;

begin

SetWindowSize(600,400);

SetWindowTitle('¨ëêà');

SetPenWidth(3);

SetPenColor(clBlack);

Line(250,100,300,50);

Line(300,50,350,100);

Line(350,100,250,100);

FloodFill(300,75,clGreen);

Line(235,200,300,100);

Line(300,100,365,200);

Line(365,200,235,200);

FloodFill(300,175,clGreen);

Line(200,300,300,200);

Line(300,200,400,300);

Line(400,300,200,300);

FloodFill(300,275,clGreen);

MoveTo(0,300);

LineTo(100,350);

LineTo(200,325);

LineTo(400,325);

LineTo(500,350);

LineTo(600,375);

FloodFill(15,375,clLime);

Rectangle(287,300,313,325);

FloodFill(300,315,clBrown);

SetBrushColor(clYellow);

Circle(500,100,50)

end.

Объяснение:

картинка