Harmonische Reihe - "Ungültige Gleitkommaoperation"??

[himitsu]

Zitat von himitsu:

teilweise

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x,eingabe :extended;
    I :integer;
begin
  x:=0;
  eingabe:=StrtoFloat(Edit1.Text);
  for I := 1 to 100000 do begin
    x:=x+(1/i);
    if x>eingabe then begin
      Edit1.Text:=('Die eingabe wurde überschritten. Summationen:');
      Edit2.Text:=(IntToStr(i));
      exit;
    end;
  end;
  Edit1.Text:=('Die Zahl wurde nicht erreicht, da die Berechnung nach 100000 Summationen abgebrochen wurde.')
end;

oder eben

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x,eingabe :extended;
    I :integer;
    fertig :boolean;
begin
  x:=0;
  eingabe:=StrtoFloat(Edit1.Text);
  fertig:=true;
  for I := 1 to 100000 do begin
    x:=x+(1/i);
    if x>eingabe then begin
      Edit1.Text:=('Die eingabe wurde überschritten. Summationen:');
      Edit2.Text:=(IntToStr(i));
      fertig:=false;
      break;
    end;
  end;
  if fertig then Edit1.Text:=('Die Zahl wurde nicht erreicht, da die Berechnung nach 100000 Summationen abgebrochen wurde.')
end;