Zitat von
horst:
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
for k := 1 to (StrToInt(gewicht.Text) * (StrToInt(minuten.Text) div 15)) do
Wenn faktor1 die Werte pro Kilo pro Minute sind, dann muss doch k die Anzahl der Kilos pro Minute sein, oder ?
Nimm die "div 15" mal raus, und pack sie in die Schleife. Es könnte ja schlieslich sein, Die Anzahl der Minuten lässt sich nicht durch 15 teilen, wenn keine Fehlermeldung erscheint, wird wohl gerundet und das verfälscht das Ergebnis.