muss das denn so kompliziert sein? ich dachte immer, man könne eine Primzahl daran erkennen, dass sie nur 2 teiler hat?!
Oder ist diese Lösung sehr langsam?
Delphi-Quellcode:
ZuUntersuchenderWert:=StrToInt(EUntergrenze.Text);
Obergrenze:=StrToInt(EObergrenze.Text);
REPEAT
anzahlTeiler:=0;
FOR i:=2 to ZuUntersuchenderWert-1 DO
IF (ZuUntersuchenderWert mod i = 0) THEN inc(anzahlTeiler);
IF (anzahlTeiler=0) and (ZuUntersuchenderWert>=2)THEN Listbox1.Items.Add(InTtoStr(ZuUntersuchenderWert));
inc(a);
UNTIL ZuUntersuchenderWert=Obergrenze;