Help solve the exercise

Само Упражнение 1.
Само задание 6 из практики 3

Раздел 1. Задания

Задание 6. Самостоятельно создать изображение согласно варианту. Фон рисунка должен соответствовать варианту – обязательный цвет. Кроме него использовать не менее трёх других цветов (цвет линий или заливки). Использовать фигуры:

· Линия

· Прямоугольник

· Круг



Раздел 2. Программа

Задание 6.

Program PrV3_Andreev;

uses GraphABC;

var i, x, y : integer;



procedure triangle(x1, y1, x2, y2, x3, y3 :integer); //Процедура создания треугольника

begin

Line(x1, y1, x2, y2);

Line(x2, y2, x3, y3);

Line(x3, y3, x1, y1);

end;



begin

SetWindowSize(800, 500); //Размер графического окна

SetPenWidth(3); //Стиль пера

SetBrushColor(clGreen); //Цвет фона

FillRect(0, 0, 800, 500);



SetPenColor(clLime); //Цвет рамки

Line(50, 50, 750, 50);

Line(750, 50, 750, 450);

Line(50, 450, 750, 450);

Line(50, 50, 50, 450);



Line(10, 10, 790, 10);

Line(790, 10, 790, 490);

Line(10, 490, 790, 490);

Line(10, 10, 10, 490);



SetPenColor(clMagenta); //Цвет контура треугольников



//Верхняя грань

x:=20;

y:=45;

for i:= 1 to 50 do

begin

triangle(x, y-30, x+15, y, x+30, y-30);

FloodFill(x+15, y-15, clSkyblue); //Цвет заливки треугольников

x:=x+15;

end;



//Левая грань

x:=15;

y:=25;

for i:= 1 to 29 do

begin

triangle(x, y, x+30, y+15, x, y+30);

FloodFill(x+7, y+15, clSkyblue);

y:=y+15;

end;



//Нижняя грань

x:=20;

y:=485;

for i:= 1 to 50 do

begin

triangle(x, y, x+15, y-30, x+30, y);

FloodFill(x+15, y-15, clSkyblue);

x:=x+15;

end;



//Правая грань

x:=785;

y:=25;

for i:= 1 to 29 do

begin

triangle(x, y, x-30, y+15, x, y+30);

FloodFill(x-7, y+15, clSkyblue);

y:=y+15;

end;

FloodFill(765, 460, clSkyblue);//Дозакрашивание пересечений

FloodFill(765, 40, clSkyblue);





end.




Раздел 3. Скриншоты экрана