Primzahl-Check: Javascript > Delphi

[KLS]

naja ich rechne einfach von 3 - wurzel n alles durch (bzw jede ungerade).

Code:

function IsPrime3(Zahl : Cardinal) : Boolean;
var
  i,grenze : Integer;
begin
  if zahl > 1 then
  Begin
    if Zahl mod 2 = 0 then
    begin
      result := zahl = 2;
      Exit;
    end;
    i := 3;
    grenze := Trunc(sqrt(Zahl));
    result := true;
    while (i <= grenze) and Result do
    begin
      Result := Zahl mod i <> 0;
      inc(i,2);
    end;
  end else result := false;
end;