![[HaBo]](/styles/default/logoklein.png){kind=small}
hallo, wollte hier nur mal meine Primzahlerkennungsfunktion posten:
wahrscheinlich gibt es schnellere formeln, aber ich habe einfach versucht mittels logik ein programm zu schreiben das zahlen darauf testet ob sie primzahlen sind ...
Code:
function primzahltest(zahl:real): boolean;
var i:integer;
begin
primzahltest := true;
for i := 2 to (strtoint(floattostr(round(zahl/2)))) do begin
if frac(zahl/i) = 0 then begin
primzahltest := false;
end
else begin
end;
end;
end;wahrscheinlich gibt es schnellere formeln, aber ich habe einfach versucht mittels logik ein programm zu schreiben das zahlen darauf testet ob sie primzahlen sind ...