Delphi Formel anwenden...

Thema durchsuchen

Ansicht

Themen-Optionen

Formel anwenden...

Offene Frage von "horst"

Ein Thema von horst · begonnen am 28. Feb 2004 · letzter Beitrag vom 28. Feb 2004

Antwort

MrKnogge

Registriert seit: 9. Jun 2003
Ort: Pforzheim
2.458 Beiträge

Delphi 2007 Professional

Re: Formel anwenden...

28. Feb 2004, 11:01

Zitat von horst:

markieren

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.

Christian Bootz
Einstein ist tot, Newton ist tot,
und mir ist auch schon ganz schlecht...