Построение графики с помощью процедуры Line, SetBrushColor, FloodFill, SetWindowtitle.
Написать программу, которая рисует на экране петуха. Работа с цветом. При помощи SetBrushColor, FloodFill закрасить рисунок. При помощи процедуры SetWindowtitle – вывести название «Петух»
В паскале
Написать программу, которая рисует на экране петуха. Работа с цветом. При помощи SetBrushColor, FloodFill закрасить рисунок. При помощи процедуры SetWindowtitle – вывести название «Петух»
В паскале
More Questions From This User See All
Answers & Comments
Ответ:
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.
Объяснение:
картинка