moment, hab einen falschen quelltext reingesetzt, da ist zum test und zur fehlersuche noch einen andere abbruchbedingung drin... richtig ist es so:
Delphi-Quellcode:
procedure TFallmaschine.StartClick(Sender: TObject);
begin
a := 9.81;
v := 0;
s := 0;
t := 0.01;
g := 9.81;
tg := 0;
while s < 10 do
begin
v1 := v + a * t;
s1 := s + 0.5 * a * t *t;
a := g - 0.5*1.3*c*v1*v1*flaeche / m;
tg := tg + t;
v := v1;
s := s1;
end;
AnzeigeGeschwindigkeit.Text := FloattoStr( round (v*100) / 100);
AnzeigeFallzeit.Text := FloattoStr(round (tg*100) / 100);
AnzeigeHoehe.Text := FloattoStr(round (s*100) / 100);
Neu.Enabled := True
end;
[edit=Jelly]Codetags gesetzt Mfg, Jelly[/edit]