Hallo zusammen,
ich habe ein Problem, und zwar programmiere ich gerade für einen Bekannten ein paar Sachen zusammen (wegen Iteration -> Harmonische Reihe, Bierschaumzerfall ...all solche simplen Dinge.)
Eigentlich könnte ich das auch alles... aber Delphi (ich benutze TurboDelphi 2006) ist ein bisschen bockig. Es geht um folgenden Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var X,eingabe :extended;
I :integer;
fertig:boolean;
begin
eingabe:=StrtoFloat(Edit1.Text);
for I := 2 to 100000 do begin
x:=x+(1/i);
if x>eingabe then fertig:=true; {Überprüfung ob X größer als die Eingegebene Zahl ist}
end;
if fertig then begin Edit1.Text:=('Die eingabe wurde überschritten. Summationen:');
Edit2.Text:=(IntToStr(i));
end else Edit1.Text:=('Die Zahl wurde nicht erreicht, da die Berechnung nach 100000 Summationen abgebrochen wurde.');
end;
end.
Eigentlich sehr einfach alles, aber er hört nicht auf mir, sobald ich den besagten Button betätige, eine Fehlermeldung auszugeben -"Ungültige Gleitkommaoperation".
Wahrscheinlich irgendwas ganz blödes was ich einfach übersehe.
Für Antworten bedanke ich mich im Voraus.
So Long
Joscha