Eine ganzzahl herrausfinden?

[heru1990]

Heyho,

ich möchte das eine funktion als ergbnis eine Ganzzahl hat und habe das bisher folgendermaßen umgesetzt:

Delphi-Quellcode:

var
  Form1: TForm1;
   v:extended;
   v2:integer;
   i:real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=-100;
  v:=1;
  v2:=2;
  while v/v2<>1 do
  begin
  i:=i+0.0001;
    v:=(-8/5)*i+sqrt((39/25)*(i*i)-19);
    v2:=round(v);
   // label1.caption:=floattostr(v2);
   // label2.caption:=floattostr(v);
  end;
    label1.caption:=floattostr(v2);
    label2.caption:=floattostr(v);
   showmessage('YEAH');
end;

Es soll die funktion kalkuliert werden und durch den gerundeten wert geteilt werden. wenn beide werte gleichgroß sind und man diese dividiert kommt 0 raus --> ganze zahl


jedoch bringt er nach dem Klick die Meldung 'EInvalidOp' - 'Ungültige Gleitkommastelle'


was habe ich falsch gemacht?!?


vielen dank für eure hilfe