Afficher tous les diviseurs d'un nombre

[momo1367]

bonjour
voila je suis vraiment bloquer pour resoudre un exercice
on demande d'ecrire un algorithme a l'aide d'une boucle pour qui affiche tous les diviseurs d'un nombre excepter le 1 et lui meme.
exemple 30
les diviseurs sont 23,5,6,10,15.
moi j'ai fais comme ca mais je crois bien qu'il manque quelque chose.

Code :

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,

Envoyé par sidahmed

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

Code :

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,

Envoyé par 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
@+

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

[sayko-kara]

Voilà ton programme :

Code :

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.