Sehr schneller Primzahl-Finder

[sakura]

Zitat von GTA-Place:

War nur für hier, damit man sie versteht.

Wo tragen folgende Beispiele zum Verständnis bei

Delphi-Quellcode:

Result := True;    // Result = True  
  if not odd(Zahl) OR (Zahl <= 5) then    // Ist die Zahl nich ungerade oder kleiner als 5, dann  
...
      Result := False;    // Result = False  
    Exit;                 // Exit  
...
  Teiler := @PrimS[0];    // Teiler = @PrimS[0]  
  Wurzel := Trunc(sqrt(Zahl));    // Wurzel aus der Zahl  
...

......