Hallo!
Ich habe die Aufgabe, ein Programm zu schreiben, dass letztendlich das a-t, v-t und s-t-Diagramm vom Fall verschiedener Körper von der Höhe 10 m zeichnen soll...
Leider stecke ich schon am Anfang fest... Das Programm soll zunächst Zeit und Endgeschwindigketi berechnen, jedoch bricht die while-schleife nciht ab... soweit ich es feststellen konnte, werden meine s-werte nicht aufsummiert, jedoch verstehe ich nicht warum... hier der teil des Quelltextes:
Delphi-Quellcode:
procedure TFallmaschine.StartClick(Sender: TObject);
begin
a := 9.81;
v := 0;
s := 0;
t := 0.01;
g := 9.81;
tg := 0;
z := 0;
while z < 100 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;
z := z+1;
end;
AnzeigeGeschwindigkeit.Text := FloattoStr( round (v*100) / 100);
AnzeigeFallzeit.Text := FloattoStr(round (tg*100) / 100);
AnzeigeHoehe.Text := FloattoStr(round (s*100) / 100);
end;
Die Werte für c, flaeche und m werden durch einen Button vorher gesetzt, da sie sich auf den jeweiligen Körper beziehen, der vorher ausgewählt werden kann...
kann jemand den fehler finden??
gruß und danke!
[edit=Jelly]Codetags gesetzt Mfg, Jelly[/edit]
[edit=SirThornberry]Titel angepasst - Hilfe braucht so ziemlich jeder der in der entsprechenden Sparte postet - Mfg, SirThornberry[/edit]