Integer zu Float umwandeln

[blink182]

dann setz das result halt auf extended ;)

Delphi-Quellcode:

function modulo(m: Extended; n: Integer): extended;

da m ja bei dir auch extended ist als werte-parameter ;)

aber um das umzuwandeln hilft halt round bzw trunc aber bei so großen zahlen bringt das ja auch nicht so viel, da Int64 ja max 9*10^18 aufnehmen kann und ggf. der rest größer ist als dieser wert, aber schau dir mal http://www.michael-puff.de/Developer...agen_Reddmann/ an, vllt gibts ja da etwas ;)

[brushmate]

ja danke hab ich mir mal angeschaut (du meinst dieses dec oder?)... fand ich aber etwas zu kompliziert...^^

[brushmate]

habs jetzt so gemacht:

Delphi-Quellcode:

function TForm1.modulo(m, n: Extended): Extended;
begin
  while m >= n do begin
    m := m - n;
    result := m;
  end; 
end;

function TForm1.crypt(K: Integer): Extended;
var help: Extended;
begin
  help := N;
  crypt := modulo(power(K, e), N);
end ;

danke für eure hilfe, scheint bis hier zu laufen

[brushmate]

ich hab noch eien frage:

was ist hier dran falsch?

Delphi-Quellcode:

    function modulo(m: Extended, n: Integer): Extended;

delphi zeigt mir folgenden fehler an:
[Fehler] Unit1.pas(25): ';', ')' oder '=' erwartet, aber ',' gefunden

[mkinzler]

Zwischen Variablen mit verschiedenen Typen wird ein ; erwartet

Delphi-Quellcode:

function modulo(m: Extended; n: Integer): Extended;

[Apollonius]

Irgendwie taucht dieses Thema alle paar Monate auf, aber keiner gibt die meiner Meinung nach richtige Antwort: Verwende nie Power, wenn du danach mod verwendest. klick