Primzahl-Check: Javascript > Delphi

[BenjaminH]

Code:

for (var i=2;i<num;i++) {
if (num % i == 0) {
var prime="yes";
form.result.value=(num + " ist keine Primzahl. Sie ist teilbar durch " + i );
break;
}
if (num % i != 0) var prime="no";
}
if (prime == "no") form.result.value=(num + " ist eine Primzahl!");
}

Das ist der interessante Teil, davor werden nur die Variablen initialisiert:

Delphi-Quellcode:

function IsPrime(p:Integer):Boolean;
Var i:Integer;
    isnotPrime:Boolean;
Begin
  If p>1 Then
  Begin
    for i:=2 to p do//p ist die zu testende Zahl, mir ist kein besserer Name eingefallen
  //ich glaube for i:=2 to p div 2 do müsste reichen
    Begin
      IsnotPrime:= (p mod i)=0;
      If IsnotPrime Then
        break;
    end;
    Result:=not IsnotPrime;
  end
  Else
    Result:=false;
end;

//Achja, die sagen 1 ist eine Primzahl, das ist natürlich falsch..
[Edit]Rückgabewert der Funktion eingetragen..
[Edit=2]Deklariation der Variable i vergessen...