primzahlen die x-te

[Timo]

hi!
ich bräuchte eine funktion die primzahlen generieren kann ...
komme damit leider nicht so ganz zurecht und wollte fragen, ob ihr schonmal sowas gemacht habt? wäre nett wenn einer eine funktion posten könnte ... oder nen source von nem programm, dass primzahlen von x bis y anzeigt!

danke, danke und nochmals: DANKE!

[thomasdrewermann]

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

[Timo]

wenn ihr schonmal dabei seit: wie prüfe ich, ob eine zahl x teiler von zahl y ist ))

bin heute zu faul zum denken )))

danke ...


edit: argh bin ich dumm ... geht doch ganz einfach mit mod!