Forum: Programmieren allgemein
by KLS,
24. Mär 2006
naja ich rechne einfach von 3 - wurzel n alles durch (bzw jede ungerade).
function IsPrime3(Zahl : Cardinal) : Boolean;
var
i,grenze : Integer;
begin
if zahl > 1 then
Begin
if Zahl mod 2 = 0 then
begin
Forum: Programmieren allgemein
by KLS,
23. Mär 2006
wahnsinn.
Nach Test vier ist 2147483647 eine Primzahl
Das herauszufinden dauerte 0.00393678467571966ms
Da muss ich doch jetzt echt überlegen, was ich an meiner funktion noch optimieren könnte. aber so spontan fällt mir da nix ein.
Forum: Programmieren allgemein
by KLS,
23. Mär 2006
(mal aus dem urschleim hervorkram)
Also meine funktion (drei) topt das bei weitem...
Nach Test eins ist 2147483647 eine Primzahl
Das herauszufinden dauerte 22148.4769255396ms
Nach Test zwei ist 2147483647 eine Primzahl
Das herauszufinden dauerte 10020.2887859163ms
Nach Test drei ist 2147483647 eine Primzahl
Das herauszufinden dauerte 0.411961755996052ms