Zitat von
xZise:
Die Wurzel kann man vereinfachen:
Statt auf Wurzel(x) zu überprüfen, kann man auch prüfen ob i² = x ist
Außerdem könnte man es einmal in eine Variable schreiben, da sich "Value" nicht ändern (sollte)... Dabei könnte man es auch konstant machen
Ich habe es mal größtenteils optimiert... Das mit den Quadrat hab ich mal nicht eingebaut... war mir net sicher...
sicher wäre es vermutlich schon, aber so ist es schon besser, da die berechnung nur einmal gemacht wird.
Bei i² müte das ja schließlich jedesmal berechnet werden.
Zitat von
xZise:
Auch sind die ganzen exits unschön ...
na ja .. dat Letzte könntest du och noch loswerden.
Delphi-Quellcode:
function Prim(const Value: Cardinal) : Boolean;
var
i, sr : Cardinal;
begin
if (Value <= 1) or ((Value mod 2 = 0) and (Value => 2)) then
Result := false
else if Value > 2 then
begin
Result := true;
i := 3;
sr := Trunc(Sqrt(Value)) + 1;
while i <= sr do
if Value mod i = 0 then
begin
Result := false;
break;
end
else
Inc(i, 2);
end;
end;
eventuell könnte man die Schleife auch umdrehn:
Delphi-Quellcode:
function Prim(
const Value: Cardinal) : Boolean;
var
i: Cardinal;
begin
if (Value <= 1)
or ((Value
mod 2 = 0)
and (Value => 2))
then
Result := false
else if Value > 2
then
begin
Result := true;
i := (Trunc(Sqrt(Value)) + 1)
or 1;
while i >= 3
do
if Value
mod i = 0
then
begin
Result := false;
break;
end
else
Dec(i, 2);
end;
end;
[add]
ups, da war ja schon einer mit'm Exit
