Primzahlen-Programm

**BlackPegasus**

Hallo,
Ich will mit der For-Schleife ein Programm programmieren, das erkennt, ob es sich um eine Primzahl oder keine handelt.
Ich will bzw. muss auf die IsPrime() Funktion verzichten und es irgendwie mit der For-Schleife hinbekommen.
Meine Idee:

markieren

Code:

			procedure TForm1.Button1Click(Sender: TObject);

begin

zahl:=Strtoint(Edit1.Text);

l:=trunc(sqrt(zahl));

for i:=2 to l do begin

erg:=zahl mod i;

if

erg=0

then begin

Label2.Caption:='Das ist keine Primzahl';

end

else

Label2.Caption:='Das ist eine Primzahl';

end;

end;

end.

Leider funktioniert es nicht bei allen Zahlen

...
Bin noch Neuling auf dem Gebiet,
hab auch lange genug recherchiert und nichts passendes gefunden.
Hoffe ihr könnt mir helfen

Primzahlen-Programm

Primzahlen-Programm

Forumregeln