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...