Ergebnis der Suchanfrage

• Forum: Library: Algorithmen

  Nicht-Primzahl-Test nach Fermat

    Delphi
    by CalganX, 30. Mai 2005
  (Für mathematischen Hintergrund und Beweis, siehe Wikipedia)
  uses Math;
  
  {a ist eine beliebige Zahl zwischen 1 und n-1; n ist zu testende Zahl}
  function IsNotPrime(const a, n: longint): boolean;
  begin
  Result := (Round(Power(a, n-1)) mod n) <> 1;
  end;
  Wichtig: Wenn diese Funktion false zurückgibt, heißt das nicht, dass n eine Primzahl ist. Es ist lediglich eine Pseudo-Primzahl.