primzahl, warum macht if nicht, was if machen soll?

heyhow · Hält's aus hier Beiträge: 7

Hallo,

habe folgendes Problem

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

for i := 1 to zahl-1 do
  begin
    if (zahl mod  i) = 0
    then
      label3.Caption := 'Zahl ist keine Primzahl!';
    end
  end;

Das ist ein Teil meines Sources. Ich möchte prüfen, ob die eingegeben zahl (in dem Falle die Variable zahl) eine Primzahl ist. Allerdings gibt er mit auch aus, dass die zahl eine Primzahl ist, wenn ich z.B. die 7 eingebe.. Das dürfte eigentlich nicht sein.

Wo liegt bei diesem Source der Fehler?

heyhow · Hält's aus hier Beiträge: 7

Oh, sorry!

Hab den Fehler schon gefunden :-)

Jede Ganzzahl ist durch 1 Teilbar....

Allesquarks · Beiträge: 510 Win XP Prof Delphi 7 E

Die sieben ist auch tatsächlich eine Primzahl

F34r0fTh3D4rk · Verfasst: Do 22.06.06 18:18

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

for i := 2 to zahl-1 do
    if (zahl mod  i) = 0
    then
    begin
      label3.Caption := 'Zahl ist keine Primzahl!'; 
      exit;
    end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme