нужно составить рисунки в программе паскаль abc.)
1) белорусский флаг. (верхняя часть - красная, нижняя часть - зелёная). чтобы части флага были закрашенными цветами указанными ранее.
2)ёлка. состоит из трёх треугольников. тоже чтобы треугольники были закрашены.
3)светофор. ну а на нём кружочки) ну и чтобы каждый кружочек был в свой цвет закрашен) (красный, жёлтый, зелёный)
Другие языки программирования и технологии
составить рисунки в паскаль abc. ПОМОГИТЕ!)
Вот программа с елкой:
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.
Он правда еще и переключается.
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.
Он правда еще и переключается.
Грустный смайлик тебе)
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 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.
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. если что это светофор
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.
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
светофор читай нужно ошибки потому что цвета нельзя относить к переменным
ёлку надо рисовать 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. если что это светофор
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.
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.
Похожие вопросы
- Помогите составить пару программ в паскале ABC
- Помогите составить программу на паскале!
- Паскаль ABC (нач. курс) прошу помощи, прога внутри и вопрос
- помогите пожалуйста составить программу в паскале
- Программа на Паскаль ABC( Турбо Паскаль тоже можно)
- Помогите решить задачи в паскаль ABC!!Буду очень благодарна
- помогите, задача в паскале abc.net
- Составьте задачу в паскале!!
- найти все семизначные числа, которые делятся на 15 и записываются только цифрами 0 и 1. Составить программу на паскале
- Помогите пожалуйста составить программу на Паскале, используя оператор case