Hab mal eben was zu sammen zusammen gestelt, das ganze gibt bei 45 Grad auch einen ihmo realistischen wurf
Delphi-Quellcode:
var
wurf:boolean=false;
xs0,ys0,xs,ys:double;
g:double=9.81;
v,w,t,ymax:double;
uses math;
function sinus(angle: Real): Real;
begin
result := sin(Pi*angle/180);
end;
function cosinus(angle: Real): Real;
begin
result := cos(Pi*angle/180);
end;
procedure setup;
begin
v:=strtofloat(edit1.Text);// geschwindigkeit
w:=strtofloat(edit2.Text);// winkel in grad
xs0:=v*cosinus(w);
ys0:=v*sinus(w);
ymax:=0.5*g*sqr( (v*sinus(w))/g );
t:=0;
wurf:=true;
end;
// deltaTime = Zeit die seit dem letzten zeichnen vergangen ist
procedure draw( const deltaTime: double);
begin
if not wurf then exit;
t:= t + deltaTime;
ys:=ys0*t-0.5*g*sqr(t);
xs:=t*v;
// mit ys und xs zeichnen
end;