Discussion :

[Weldan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[M.Dlb]

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.

[Weldan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Roland Chastain]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[droggo]

Koa,

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

[Weldan]

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

[ragone]

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

[droggo]

Hoa,

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

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é.

[hichaman]

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

[e-ric]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

@+