Zitat von
donalds-bo:
soweit ich es feststellen konnte, werden meine s-werte nicht aufsummiert, jedoch verstehe ich nicht warum... hier der teil des Quelltextes:
Delphi-Quellcode:
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;
Deine Schleife bricht nicht ab weil die Bedingung s < 10 nie erfüllt ist.
Jetzt musst du also nur noch prüfen warum. Dafür kann dir der interne Delphi Debugger sehr hilfreich sein. Setze mal einen Haltepunkt auf die v1 := v + a * t Stelle (F5) und steppe durch (F8). Dann kannst du zur Laufzeit die Werte leichter überprüfen.