Discussion :

[momo1367]

Bonjour

Voilà, je suis vraiment bloqué pour résoudre un exercice.
On demande d'écrire un algorithme à l'aide d'une boucle qui affiche tous les diviseurs d'un nombre, exceptés 1 et lui-même.
Exemple : 30 - les diviseurs sont 2, 3, 5, 6, 10, 15.
Moi j'ai fait comme ça mais je crois bien qu'il manque quelque chose.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
program diviseur(input,output);
var i,n,y :longint;
begin
writeln('entrz un nombre entier');
readln(n);
y:=n div 2;
for i:=2 to y do  begin
if n mod i=0 then
writeln  (i)
else writeln('pas de diviseur');
end;
readln
end.

[krachik]

Vu que tu as compris l'utilisation de la balise code voila uen occasion de l'utiliser
Ou se situe ton probleme?(ton code est correcte)
Si c'est pour l'affichage t'a juste qu'a pas afficher le "else writeln('pas diviseur')"
et utiliser un "write" pour l'affichage
@+

[droggo]

Siu,

Franchement, je ne te comprends pas ! Car j'ai bien déterminé la valeur maximale du compteur i.

Code :

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

y = x div 7;

Je ne dis pas le contraire, mais que pour Pascal, le stockage dans une variable à part ne change pa l'exécution : cette valeur est calculée une fois pour toute en entrée de la boucle, et ne sera donc pas refaite tant que tous les tours n'auront pas été exécutés.
On ne gagne donc rien à faire le calcul pour le sauver dans une variable.

Comme je l'ai ajouté, c'est quand même une bonne habitude à prendre, en prévision du passage à d'autres langages, qui eux, recalculeront cette valeur à chaque tour de boucle.

[droggo]

Zoi,

Vu que tu as compris l'utilisation de la balise code voila uen occasion de l'utiliser
Ou se situe ton probleme?(ton code est correcte)
Si c'est pour l'affichage t'a juste qu'a pas afficher le "else writeln('pas diviseur')"
et utiliser un "write" pour l'affichage
@+

Et on peut ajouter : prends l'habitude de formater ton code correctement (indenter, aérer, commentaires).

[sayko-kara]

Voilà ton programme :

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 divise;
uses wincrt;
var
n:integer;
 
procedure diviseur(n:integer);
var
i:integer;
begin
     i:=1;
     repeat
          i:=i+1;
          if n mod i=0 then
          writeln(i);  
     until(i=n div 2);
end;
begin
    readln(n);
    diviseur(n);
end.

[droggo]

Jie,

Joli déterrage (4 ans) !

Et qui n'amène rien, puisque c'était déjà ok (enfin, presque).

Au passage, pour les modos : on dirait bien que ce sujet a été amputé d'au moins un message, sinon je ne comprends pas ce que fait ici le mien sous le numéro #3.

[Dr.Mimo]

Ton code est correct, il marche avec moi tout correctement.

[israr]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program ff;
uses wincrt;
var n,i:integer;
begin
  readln(n);
  for i:=1 to n do
   begin
    if ((n mod i =0) and (i<>n) ) then
    begin      
 
     writeln(i);
     end;
     end;
     end.

[droggo]

Joe,

program ff;
uses wincrt;
var n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
if ((n mod i =0) and (i<>n) ) then
begin

writeln(i);
end;
end;
end.

Belle tentative, mais ton programme est faux, il se trompe.

Je te laisse trouver pourquoi.