Hallo Timo,
Mit dieser Funktion lässt sich eine Zahl überprüfen:
Delphi-Quellcode:
function prim(zahl:integer):boolean;
var
i:integer;
begin
result:=true;
for i := 2 to round(sqrt(zahl)) do
if zahl mod i=0 then result:=false;
end;
Hier die Funktion für einen Bereich von Zahlen:
Delphi-Quellcode:
function primzahlen(anfang,ende:integer):primzahlenliste;
var i:integer;
begin
for i:=anfang to ende do
if prim(i) then
begin
setlength(result,length(result)+1);
result[length(result)-1]:=i;
end;
end;
Für die letzte Funktion musst du den Typ primzahlenliste deklarieren:
type primzahlenliste=array of integer;
Ich hoffe es funtzt
MFG
Thomas