Hi,
allerdings scheint da noch ein paar Fehler drin zu sein. Die folgende Funktion sagt, dass 0 und 1 eine Primzahl ist, allerdings stimmt das ja nicht wirklich und bei 3 hängt er sich auf bzw. braucht etwas sehr lange.
Das passiert beim Original nicht.
Delphi-Quellcode:
function isPrime (n: int64): boolean;
var
i: int64;
begin
Result := true;
i := 2;
while ((i <= n-1) and (bOK)) do begin
if (n mod i) = 0 then
begin
Result := False;
exit;
end;
Application.ProcessMessages;
end;
end;
Chris