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

z.b:

markieren

Code:

e:=e mod 2;

ebi mir sagt er dann immer:

operator ist auf diesen operandentyp nicht anwendbar

markieren

Delphi-Quellcode:

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

Kannst du mir ein bsp geben zu aufrufen?

vielen dank

Nepos

Das dürfte doch eigentlich selbsterklärend sein.
 i := FloatMod(4.2, 2); // i = 0.2

hallo nochmal...

ich habe jetzt meine anweisungen:

markieren

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

Dein Taschenrechner rundet wohl. Schau dir mal round an

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

zusammenfalten · markieren

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     FLD TBYTE PTR [ObereSchranke] ersetzen für andere Grenzen, wenn Obere Grenze ein Parameter ist.

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