Анимация движения мяча

@Henesi609 · Регистрация: 18.10.2012

Author24 — интернет-сервис помощи студентам

помогите сделать естественное движения мяча когда он падает

Pascal

uses crt,graph;
var DV,MV:integer;
    x,y,r,i:integer;
begin
DV:=detect;
initgraph(DV,MV,'');
line(0,400,800,400);
x:=370;
y:=220;
r:=20;
SetFillStyle(1,7);
bar(400,200,410,400);
SetFillStyle(1,8);
bar(390,170,400,250);
setcolor(7);
line(350,220,390,220);
line(350,220,360,260);
line(390,220,380,260);
line(360,220,370,260);
line(380,220,370,260);
line(370,220,380,260);
line(370,220,360,260);
  setcolor(6);
  circle(x,y,r);
readln;
end.

@Henesi609 · 08.10.2013, 00:55 **[ТС]**

никто не может помочь?

@Henesi609 6 / 6 / 11 Регистрация: 18.10.2012 Сообщений: 61
	08.10.2013, 00:55 [ТС]	2
	никто не может помочь? 0