Déterminer si un nombre est premier

Bonjour à tous,

Je rencontre un problème avec mon programme, est-ce quelqu'un pourrait m'éclairer?
Le programme reçoit un nombre entier et renvoie si c'est un nombre premier ou pas:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

program test; var a, diviseur :integer; result :BOOLEAN;   begin writeln('Entrez un nombre entier'); readln(a);   IF (a = 2) THEN Result := True   ELSE IF (a > 2) THEN result := false   ELSE IF (a mod 2 = 0) THEN Result := False   For diviseur := 2 to (a-1) DO ELSE IF (a mod diviseur = 0) THEN result := false     ELSE result := true;   writeln('Est-ce que ce nombre est premier? ', result) end.

---

Je suppose que le problème vient d'à partir de la ligne 20 ...

Merci d'avance!

Ton indentation n'est pas du tout claire, de même que l'imbrication des condition If/Then/Else. Essaye de bien découper ces instructions, et ton problème devrait apparaître plus clairement.

De cette manière, j'arrive à faire fonctionner mon programme mais l'écriture ne me plaît pas... Je n'arrive vraiment pas à faire fonctionner le premier... Est-ce quelqu'un pourrais me montrer la bonne écriture ? Ce n'est pas faute d'avoir y essayé...

Merci pour la réponse d'au dessus mais je n'y vois pas plus clair... Je re essayerai demain à tête reposée.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

program test;   var a, diviseur :integer; result :BOOLEAN; begin writeln('Entrez un nombre entier'); readln(a); result := true; IF a = 2 THEN result := true; IF a < 2 THEN result := false; for diviseur := 2 to (a-1) DO IF (a mod diviseur = 0) then result := false;   writeln('Est-ce que ce nombre est premier? ', result) end.

---

Citation:

---

Envoyé par Weldan

Est-ce quelqu'un pourrais me montrer la bonne écriture ?

---

Pour tenir compte du conseil qui t'a été donné plus haut, tu ferais peut-être bien d'utiliser systématiquement l'écriture suivante:

Code:

---

1 2 3 4 5 6 7 8 9

if condition then begin {...} end else begin {...} end;

---

Ainsi tu te rendrais mieux compte de ce qui ne va pas dans ton code. ;)

Koa,

+1, ET d'utiliser une mise en forme cohérente et régulière.

Merci à tous pour vos réponses qui m'aide. J'ai enfin réussi à faire fonctionner la bête ! ;-)
Est-ce que vous pourriez m'éclairer sur 2-3 points:
Il y a-t-il un moyen d'éviter que mon programme calcul tous les diviseurs jusqu'au (nombre-1) une fois qu'il a trouvé un nombre qu'il le divise.
Peut-être que je ne suis pas clair, je vais vous donner un exemple:
Imaginons que je rentre le chiffre 9: mon programme va le diviser par 2 puis 3, puis 4... jusqu'à 9 diviser par 8. Est-ce qu'il y a moyen qu'une fois que mon programme remarque que 9 est divisible par 3 il arrête la boucle ? ça me permettrait d'économiser... Devrais-je utiliser la boucle repeat... until ?

Deuxième question:
Est-ce si par exemple mon programme rempli la première condition, il y-a-t-il moyen qu'il évite toutes les autres conditions ? Ou est-ce que ça le fait déjà lorsqu'on utilise IF, ELSE IF, Else ... ?

Merci à vous et désolé si mes questions semblent stupides ...

Bonjour,

Il existe un théorème en arithmétique qui stipule que si un nombre n'est divisible par aucun entier inférieur à sa racine carré, alors ce nombre est premier. Tu n'as donc pas besoin de monter jusqu'à n-1 mais seulement jusqu’à l'entier immédiatement inférieur à la racine de n.

Pour ce qui est de stopper le test quand un diviseur est trouvé, tu peux remplacer ta boucle for par une boucle while qui teste deux conditions, quelque chose comme :

Code:

---

1 2 3 4 5

while (diviseur <= sqrt(a)) and (result = false) do begin ... diviseur:=diviseur+1; end;

---

Edit : Pour ta deuxieme question, la structure if , else if, ..., else if, else permet effectivement d'ignorer toutes les conditions suivantes dès qu'il y en a une de vraie. Ainsi si la première condition est vraie, tout le reste de la structure est ignorée.

Hoi,

Et n'oublies pas de ne pas utiliser les diviseurs pairs comme tu le fais avec ta boucle for

Code:

---

for diviseur := 2 to (a-1) DO

---

:)

Code:

---

1 2 3 4 5

while (diviseur <= a div 2) and (result = false) do begin ... diviseur:=diviseur+1; end;

---

Tiens cette réponse :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

program premier; var n,c,i:integer; begin repeat begin Writeln('donner un entier naturel'); readln(n); if n=1 then writeln('1 n''est pas un premier') else begin i:=1; repeat begin i:=i+1; c:=n mod i; end until c=0; if i=n then writeln(n,' est un premier ') else writeln(n,' n''est pas un premier'); end; end until false; end.

---

Woe,

Quand on donne une réponse, on essaye d'en fournir une qui améliore ce qui a déjà été fait, ce qui n'est pas du tout le cas de la tienne. :)

Vous n'arrivez pas a comprendre que le changement est la meilleure façons d'améliorer les choses???:lol:

Hoa,

Citation:

---

Envoyé par ragone

Vous n'arrivez pas a comprendre que le changement est la meilleure façons d'améliorer les choses???:lol:

---

Le changement est une bonne chose, quand il va dans le bon sens. Mais pour le côté amélioration, ce n'est pas le cas de ton code, qui reprend tout ce qu'il ne faut pas faire pour résoudre le problème posé.

Bonjour
lien de telechargement d'un programme en pascal qui détermine si un nombre est premier ou pas http://www.4shared.com/zip/YZ9ohCgj/...e_premier.html

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

function EstPremier(const a: Integer): Boolean; var nmax, i: Integer; begin if (a = 2) then Result := True else if (a = 1) or (a mod 2 = 0) then Result := False else begin nmax := Trunc(Sqrt(a))+1; i := 3; Result := True while (i < nmax) do begin Result := (a mod i <> 0) if not Result then exit Inc(i, 2); // que les nombres impairs end end; End;

---

est une solution parmi d'autres, j'ai testé l'algo en Python, j'ai pas FPC sur place.

Il est peut-être possible d'éviter les divisions en adaptant une mise en oeuvre simple du crible d'Eratosthène (Il y a eu des discussions ici il y a peu sur le sujet), je n'ai pas vérifié cette solution.

@+