Другие языки программирования и технологии

составить рисунки в паскаль abc. ПОМОГИТЕ!)

нужно составить рисунки в программе паскаль abc.)

1) белорусский флаг. (верхняя часть - красная, нижняя часть - зелёная). чтобы части флага были закрашенными цветами указанными ранее.
2)ёлка. состоит из трёх треугольников. тоже чтобы треугольники были закрашены.
3)светофор. ну а на нём кружочки) ну и чтобы каждый кружочек был в свой цвет закрашен) (красный, жёлтый, зелёный)
Вот программа с елкой:
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end.

Ну и вот светофор:
uses graphABC,crt;
var
x,y,a1,a2:real;
i,x1,r,s,k:integer;
m1:array [1..3] of integer;
y1:array [1..3] of integer;
begin
x:=320;
y:=240;
r:=10;
m1[1]:=clred;
m1[2]:=clyellow;
m1[3]:=clgreen;
x1:=round(x);
y1[1]:=round(y);
y1[2]:=y1[1]+20;
y1[3]:=y1[2]+20;
SetBrushColor(clBlack);
circle(x1,y1[1],r);
circle(x1,y1[2],r);
circle(x1,y1[3],r);
while true do begin
for i:=1 to 3 do begin
SetBrushColor(m1);
circle(x1,y1,r);
if i=2 then Sleep(500)
else Sleep(1500);
SetBrushColor(clBlack);
circle(x1,y1,r);
end;
end;
end.
Он правда еще и переключается.
ЮМ
Юра Малко
1 417
Лучший ответ
Грустный смайлик тебе)

program SadSmiley;
uses graphABC;

function AllFunc():integer;
begin
rectangle(175,450,325,475);
floodfill(200,465,clBlack);
rectangle(325,425,375,450);
floodfill(350,435,clBlack);
rectangle(375,400,400,425);
floodfill(385,410,clBlack);
rectangle(400,375,425,400);
floodfill(410,385,clBlack);
rectangle(425,325,450,375);
floodfill(435,350,clBlack);
rectangle(450,175,475,325);
floodfill(465,250,clBlack);
rectangle(425,125,450,175);
floodfill(435,150,clBlack);
rectangle(400,100,425,125);
floodfill(410,110,clBlack);
rectangle(350,75,400,100);
floodfill(375,85,clBlack);
rectangle(300,50,350,75);
floodfill(325,60,clBlack);
rectangle(200,25,300,50);
floodfill(250,35,clBlack);
rectangle(150,50,200,75);
floodfill(175,60,clBlack);
rectangle(100,75,150,100);
floodfill(125,85,clBlack);
rectangle(75,100,100,125);
floodfill(85,110,clBlack);
rectangle(50,125,75,175);
floodfill(60,150,clBlack);
rectangle(25,175,50,325);
floodfill(35,250,clBlack);
rectangle(50,325,75,375);
floodfill(65,350,clBlack);
rectangle(75,375,100,400);
floodfill(85,385,clBlack);
rectangle(100,400,125,425);
floodfill(115,410,clBlack);
rectangle(125,425,175,450);
floodfill(150,435,clBlack);
rectangle(200,375,300,400);
floodfill(250,385,clBlack);
rectangle(125,275,225,300);
floodfill(175,285,clBlack);
rectangle(250,275,350,300);
floodfill(300,285,clBlack);
rectangle(100,175,125,275);
floodfill(115,225,clBlack);
rectangle(350,175,375,275);
floodfill(365,225,clBlack);
rectangle(325,150,350,175);
floodfill(335,160,clBlack);
rectangle(300,125,325,150);
floodfill(310,135,clBlack);
rectangle(125,150,150,175);
floodfill(135,165,clBlack);
rectangle(150,125,175,150);
floodfill(165,135,clBlack);
Line(175,125,175,100);
Line(175,100,300,100);
Line(300,100,300,125);
Line(300,125,250,125);
Line(250,125,250,175);
Line(250,175,300,175);
Line(300,175,300,250);
Line(300,250,250,250);
Line(250,250,250,275);
Line(250,275,225,275);
Line(225,275,225,250);
Line(225,250,175,250);
Line(175,250,175,175);
Line(175,175,225,175);
Line(225,175,225,125);
Line(225,125,175,125);
floodfill(200,200,clBlack);
floodfill(250,350,clYellow);
end;

begin
setwindowsize(500,500); //Размер окна
setpencolor(clBlack); //Цвет пера (обводки)
setpenwidth(0); //Толщина обводки в пикселах//БЕЗ ОБВОДКИ!
AllFunc;
end.
Program p23;
uses graphabc;
begin
setbrushcolor(clblack);
rectangle(100,50,250,350);
setbrushcolor(clred);
circle(175,100,30);
setbrushcolor(clyellow);
circle(175,200,30);
setbrushcolor(clgreen);
circle(175,300,30);
end.
Program p23;
uses graphabc;
begin
setbrushcolor(clblack);
rectangle(100,50,250,350);
setbrushcolor(clred);
circle(175,100,30);
setbrushcolor(clyellow);
circle(175,200,30);
setbrushcolor(clgreen);
circle(175,300,30);
end. если что это светофор
Program p23;
uses graphabc;
begin
setbrushcolor(clblack);
rectangle(100,50,250,350);
setbrushcolor(clred);
circle(175,100,30);
setbrushcolor(clyellow);
circle(175,200,30);
setbrushcolor(clgreen);
circle(175,300,30);
end.
кто делал эти программы хоть сама бы проверила:
ёлку надо рисовать c line а не с line to
светофор читай нужно ошибки потому что цвета нельзя относить к переменным
Program p23;
uses graphabc;
begin
setbrushcolor(clblack);
rectangle(100,50,250,350);
setbrushcolor(clred);
circle(175,100,30);
setbrushcolor(clyellow);
circle(175,200,30);
setbrushcolor(clgreen);
circle(175,300,30);
end. если что это светофор
Program neponyatnaya_huinya;
uses graphabc;
begin
setbrushcolor(clblack);
rectangle(100,0,250,350);
setbrushcolor(clblack);
rectangle(2,0,250,100);
setbrushcolor(clblack);
rectangle(550,0,250,100);
setbrushcolor(clred);
circle(175,205,30);
setbrushcolor(clyellow);
circle(175,300,30);
setbrushcolor(clgreen);
circle(2,50,30);
setbrushcolor(clpurple);
circle(500,50,30);
setbrushcolor(clblue);
circle(175,50,30);
end.