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:
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
