Einzelnen Beitrag anzeigen

brushmate

Registriert seit: 19. Dez 2008
Ort: Kempen
20 Beiträge
 
Delphi 7 Personal
 
#13

Re: Integer zu Float umwandeln

  Alt 16. Mär 2009, 20:25
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
  Mit Zitat antworten Zitat