Fallsimulation funktioniert nicht...

[Jelly]

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.