mod mit extendet

[Nepos]

ist es möglich den befehl mod mit einer extendet variable zu benutzen?

z.b:

Code:

e:=e mod 2;

ebi mir sagt er dann immer:

operator ist auf diesen operandentyp nicht anwendbar

[Dax]

Delphi-Quellcode:

function FloatMod(left, right: Extended): Extended;
begin
  Result := Frac(left / right) * right;
end;

[Nepos]

Kannst du mir ein bsp geben zu aufrufen?

vielen dank

Nepos

[Khabarakh]

Das dürfte doch eigentlich selbsterklärend sein.

Delphi-Quellcode:

 i := FloatMod(4.2, 2);  // i = 0.2

[Nepos]

hallo nochmal...

ich habe jetzt meine anweisungen:

Delphi-Quellcode:

    chipher:= power(i,e);
    chipher:= FloatMod(chipher,n);

nur jetzt werden die zahlen ungenau:

der taschenrechner zeigt ganze zahlen an. die sind auch erwartet.
doch delphi spuckt etwas abweichende zahlen aus:

3,99999993597 - 4 (4 und 80 sind die erwarteten werte)
80,0000001601 - 80

kann mir jemand sagen woher das kommt oder was ich dagegen tuen kann??

vielen dank im voraus

Nepos

[malo]

Dein Taschenrechner rundet wohl. Schau dir mal round an ;)

[BenBE]

Für die Begrenzung von Winkeln im Gradmaß, kann man folgendes nehmen:

Delphi-Quellcode:

Function LimitAngleDeg2(Var Angle: Extended): Extended;
Asm
    FILD    WORD PTR [@@Value360]
    FLD     TBYTE PTR [Angle]
    FPREM
    FSTP    ST(1)

    JMP     @@Ret
@@Value360:
    DW      360
@@Ret:
End;

Die FILD-Anweisung durch

Delphi-Quellcode:

    FLD     TBYTE PTR [ObereSchranke]

ersetzen für andere Grenzen, wenn Obere Grenze ein Parameter ist.

[bigg]

Die Modulo Divison mit Fließkomma-Werten hatten wir bereits schon einmal:
http://www.delphipraxis.net/internal...t=mod+extended