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

[mkinzler]

In welcher Zeile kommt der Fehler und bei welchen Werten?

[heru1990]

v:=(-8/5)*i+sqrt((39/25)*(i*i)-19);

direkt wenn ich auf den button klicke

[mkinzler]

Welchen Wert hat i, v, v2 dann?

[heru1990]

interessant...

Delphi-Quellcode:

  begin
  i:=i+0.0001;
    v:=(-8/5)*i+sqrt((39/25)*(i*i)-19);
    v2:=round(v);
    showmessage('v2 : '+floattostr(v2));
    showmessage('v : '+floattostr(v));
    //label1.caption:=floattostr(v2);
    //label2.caption:=floattostr(v);
  end;

wenn ich ne showmessage reinmache läuft er ohne problme und gibt werte immer aus

nach dem klick:
v = 248,8235...
v2 = 285
i = -99,999

[mkinzler]

label1.caption:=IntToStr(v2);

[heru1990]

hab mehere varianten ausprobiert... er gibt die werte nur mit einem showmessage aus

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, heru1990.

Du suchst iterativ in Schritten von 1E-4 nach einer ganzzahligen Lösung einer Funktion. Dein Abbruchkriterium ist aber unzuverlässig, da dein Rechner ganzzahlige Ergebnisse oft nach Art der ersten Taschenrechner nur näherungsweise als Fließkommazahl wiedergeben kann. Notwendig ist da ein Epsilon-Test:

Delphi-Quellcode:

const
  EPSILON = 1E-8;

function F(x: Double): Double;
begin
  Result := (-8/5) * x + Sqrt(39 / 25 * x * x - 19);
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  x, y: Double;
begin
  x := -100;
  repeat
    x := x + 0.0001;
    y := F(x);
  until IsZero(y - Round(y), EPSILON);
  ShowMessage(Format('%0.4f   %.0n', [x, y]));
end;

Getippt und nicht getestet.

Freundliche Grüße vom marabu

[heru1990]

Wow vielen dank =)

jedoch kommt die gleiche meldung mit der kommastelle in folgender zeile:

  Result := (-8/5) * x + Sqrt(39 / 25 * x * x - 19);

[marabu]

Deine Funktion ist nicht für alle x aus R definiert.

Sobald der Ausdruck 39 / 25 * x * x - 19 negativ wird, siehst du die Ausnahme "Ungültige Gleitkommaoperation".

Du solltest das zu durchsuchende Intervall geeignet begrenzen.