Hallo, ich habe die Aufgabe gekriegt eine Werte Tabelle für die Funktion f(x) = sin(x) * x² + 3/x.
Ich habe 3 Editfelder in die der Startwert, Endwert und die Schrittzahl.
Ich bin auch eig. schon fast fertig. Es funktioniert eig. alles, aber sobald man für die Schrittzahl einen etwas kleineren Wert nimmt(Wenn f_schritt < 0.5), läuft die Schleife Endloss weiter. Unser Lehrer hat aber gesagt, dass man für die Schrittzahl auch Float Werte nehmen kann.
Ich finde den Fehler einfach nicht, da das Program so ohne Fehler läuft.

Rechnung:

markieren

Code:

FUNCTION Tform1.Rechnung;
 BEGIN
  me_x.lines.Add(FloatToStr(f_start));
  Result := Sin(f_start)*sqr(f_start)+(3/f_start);
  me_y.Lines.Add(FloatToStr(Result));
 END;

Click Prozedur:

markieren

Code:

//Button-Click Prozedur
procedure TForm1.b_goClick(Sender: TObject);
 BEGIN
   //Die Editfelder den Variablen zuweisen
   f_start := StrToFloat(ed_start.Text);
   f_end := StrToFloat(ed_end.Text);
   f_schritt := StrToFloat(ed_Schritt.Text);
   me_x.Lines.Clear;
   me_y.Lines.Clear;
  ///////////////////////////////////////
  IF f_start<f_end THEN
   BEGIN
    repeat
     Rechnung;
     f_start := f_start + f_schritt;
    until f_start=f_end;
   END
  ELSE IF f_start>f_end THEN
   BEGIN
    repeat
     Rechnung;
     f_start := f_start - f_schritt;
    until f_start=f_end;
   END;
  Rechnung;
 END;

Zitat von eugene222:

Unser Lehrer hat aber gesagt, dass man für die Schrittzahl auch Float Werte nehmen kann.

Hat euer Lehrer denn nicht auch gesagt, daß man Floatwerte niemals auf Gleichheit testen soll? Wegen der Ungenauigkeiten sind solche Vergleiche nicht zuverlässig. In deinen until Bedingungen solltest du stattdessn <= bzw. >= verwenden.

Eigentlich meinte Ich mit dem Satz, dass unser Leher meinte, dass die Schrittzahl ein Floatwert sein muss.

*edit*
Es funktioniert, vielen Dank!

BTW

markieren

Delphi-Quellcode:

If Foo < EndWert then
  repeat
  ...
  until Foo >= EndWert;

Ist eigentlich

markieren

Delphi-Quellcode:

While Foo < EndWert do
  begin
  ...
  end;

Edit: korrigiert

Sicher? So hat die Repeat-Until-Schleife nur 1 Durchlauf! Das würde auch ein einfaches IF erledigen.

Hast ja recht darum habe ich es auch schon geändert

Zitat von Sir Rufo:

BTW

markieren

Delphi-Quellcode:

If Foo < EndWert then
  repeat
  ...
  until Foo >= EndWert;

Ist eigentlich

markieren

Delphi-Quellcode:

While Not Foo < EndWert do
  begin
  end;

Edit: korrigiert

Du solltest das, was du da schreibst, nochmal gründlich überdenken! Jetzt stimmt nämlich fast gar nichts mehr...

Oh Mann, ich muss das Zeug mal untersuchen lassen, was ich heute geraucht habe.

Jetzt sollte es aber passen (i hope)

Das Zeug würde ich auch gerne einmal testen