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

Помогите сделать анимацию в программе в турбо Паскаль

Program z1;
uses graph;
var xc,yc:integer;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=100;
setcolor(10);
setfillstyle(1,10);
circle(xc+30,yc+100,27);
floodfill(xc+30,yc+100,10);
setcolor(14);
setfillstyle(1,14);
circle(xc-35,yc+80,40);
floodfill(xc-35,yc+80,14);
setcolor(13);
setfillstyle(1,13);
circle(xc+25,yc+40,35);
floodfill(xc+25,yc+40,13);
setcolor(11);
setfillstyle(1,11);
line(xc-30,yc+300,xc+30,yc+300);
line(xc-30,yc+300,xc-5,yc+290);
line(xc+30,yc+300,xc+5,yc+290);
line(xc-5,yc+290,xc-5,yc+200);
line(xc+5,yc+290,xc+5,yc+200);
line(xc-30,yc+200,xc+30,yc+200);
line(xc-30,yc+200,xc-70,yc+100);
line(xc+30,yc+200,xc+70,yc+100);
arc(xc,yc,235,305,122);
floodfill(xc,yc+190,11);
floodfill(xc,yc+280,11);
readln
end.
Виктор Кучук
Виктор Кучук
83
вот пример
program a3;
uses graphabc,crt;
var
x,x1,x2,x3,x4,x5,x6,x7,x8,y,y2,y1,y3,y4,y5,y6,y7,y8,r,i:integer;
begin
x:=0;
x1:=90;
x2:=90;
x3:=90;
x4:=45;
y:=60;
y1:=60;
y2:=60;
y3:=120;
y4:=40;
r:=20;
setbrushcolor(clgreen);
for i:=1 to 5 do
begin
circle(x4,y4,r);
line(x,y,x1,y1);
line(x2,y2,x3,y3);
x:=x+90;
x1:=x1+90;
x2:=x2+90;
x3:=x3+90;
y:=y+60;
y1:=y1+60;
y2:=y2+60;
y3:=y3+60;
end;

for i:=1 to 40 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4-1;
end;
for i:=1 to 50 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4+2;
end;
for i:=1 to 40 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4-1;
end;
for i:=1 to 50 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4+2;
end;
for i:=1 to 40 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4-1;
end;
for i:=1 to 50 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4+2;
end;
for i:=1 to 40 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4-1;
end;
for i:=1 to 50 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4+2;
end;
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
end.
СС
Сергей С
95 955
Лучший ответ
Чему вас учат?! :(
Farit Sharifullin
Farit Sharifullin
64 411
примите мои соболезнования.
анимация в турбопаскале 7.0 в конце второго десятилетия XXI века - это всё равно, что приехать на СТО и попросить подковать лошадь.
а как формулируется задача? что надо анимировать?
АЗ
Алексей Зайцев
77 334
Виктор Кучук Круг в бокле должен падать

Похожие вопросы