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