Question

Построение графики с помощью процедуры Line, SetBrushColor, FloodFill, SetWindowtitle.

Написать программу, которая рисует на экране петуха. Работа с цветом. При помощи SetBrushColor, FloodFill закрасить рисунок. При помощи процедуры SetWindowtitle – вывести название «Петух»
В паскале

Answer 1

Ответ:

program z1;

uses graphABC;

begin

SetWindowSize(300,400);

SetWindowTitle('Петух');

SetPenColor(clYellow);

Line(250,75,250,150);

Line(250,150,275,150);

Line(275,150,250,100);

Line(250,100,275,75);

Line(275,75,250,75);

FloodFill(255,79,clYellow);

FloodFill(255,145,clYellow);

SetPenColor(clRed);

Line(250,75,175,75);

Line(175,75,175,50);

Line(175,50,200,75);

Line(200,75,200,50);

Line(200,50,225,50);

Line(225,50,250,75);

FloodFill(179,71,clRed);

FloodFill(205,71,clRed);

SetPenColor(clOrange);

Line(250,75,250,200);

Line(250,200,175,300);

Line(175,300,75,275);

Line(75,275,50,225);

Line(50,225,50,200);

Line(50,200,25,175);

Line(25,175,25,125);

Line(25,125,75,175);

Line(75,175,150,175);

Line(150,175,200,75);

FloodFill(175,295,clOrange);

SetPenColor(clBlack);

Line(100,280,100,350);

Line(100,325,125,325);

Line(100,325,120,345);

Line(150,293,150,350);

Line(150,325,175,325);

Line(150,325,170,345);

SetBrushColor(clBlack);

FillCircle(225,100,5)

end.

Объяснение:

картинка