Анимация в паскале примеры программ
Автор Ѐома Старостенко задал вопрос в разделе Другие языки и технологии
Движение, анимация в Pascal ABC. HELPP!) и получил лучший ответ
Ответ от
Запихни смайл в цикл, и каждый прогон увеличивай координаты на +1.
Ответ от Cublen[гуру]
program poezd;
uses graphABC,crt;
var
x1,x2,x3,y1,y2,y3:integer;
n,i,r,k:integer;
m:array [1..6] of integer;
begin
randomize;
m[1]:=clred;
m[2]:=clyellow;
m[3]:=clgreen;
m[4]:=clblue;
m[5]:=clolive;
m[6]:=clsilver;
x2:=80; x3:=80; x1:=80; i:=1;
//for i:=1 to 40 do begin
while x1 < 500 do begin inc(i);
x1:=x1 + 10;
y1:=200 ;
x2:=x2 + 5*i;
y2:=300 ;
x3:=x3 - trunc(5*i*i/2) + 10*i;
y3:=350 ;
r:=10;
delay(80);
k:= 1;
SetBrushColor(m[1]);
circle(x1,y1,r);
SetBrushColor(m[2]);
circle(x2,y2,r);
SetBrushColor(m[3]);
circle(x3,y3,r);
end;
end.
program poezd;
uses graphABC,crt;
var
x1,x2,x3,y1,y2,y3:integer;
n,i,r,k:integer;
m:array [1..6] of integer;
begin
randomize;
m[1]:=clred;
m[2]:=clyellow;
m[3]:=clgreen;
m[4]:=clblue;
m[5]:=clolive;
m[6]:=clsilver;
x2:=80; x3:=80; x1:=80; i:=1;
//for i:=1 to 40 do begin
while x1 < 500 do begin inc(i);
x1:=x1 + 10;
y1:=200 ;
x2:=x2 + 5*i;
y2:=300 ;
x3:=x3 - trunc(5*i*i/2) + 10*i;
y3:=350 ;
r:=10;
delay(80);
k:= 1;
SetBrushColor(m[1]);
circle(x1,y1,r);
SetBrushColor(m[2]);
circle(x2,y2,r);
SetBrushColor(m[3]);
circle(x3,y3,r);
end;
end.
Ответ от Ђемирлан Биджиев[гуру]
Осталось глазки и рот нарисовать
ссылка
Осталось глазки и рот нарисовать
ссылка
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Движение, анимация в Pascal ABC. HELPP!)