usesABCObjects, GraphABC,Utils;
const
dt= 0.01;
g=9.8;
mColor = clRed;
scaleXFactor = 10;
scaleXFactor = 10;

function Fx(m,t,x,Vx,y,Vy:real):real;
begin
Fx:=0;
end;

function Fy(m,t,x,Vx,y,Vy:real):real;
begin
Fy:=-m*g;
end;

function Scalex(x:double):integer;
begin
result:=round(x*ScaleYFactor);
end;

function Scaley(y:double):integer;
begin
result:= Window.Height - 20 - round(y*scaleyFactor);
end;

type
MassPoint = class
private
const r=10;
c:CircleABC;
public
x,y,Vx,Vy,m:double;
constructor (x0,y0,Vx0,Vy0,m0:double);
begin