Exercice en Algorithmique (Boucles) [Résolu]

C'est un bon début, mais maintenant essaye de faire "tourner" toi-même ton algorithme à l'aide d'une feuille de papier (note les valeurs de m et nb à chaque passage dans la boucle, et regarde lorsque tu ne rentres plus dans la boucle que vaut nb). Tu y verras j'espère au moins une erreur grossière. Et peut-être une deuxième un peu plus subtile!

Debut
Ecrire ("entrer un entier :");
Lire (n);
M <- 0;
nb<- 0;
Tant que (M<n) faire
si (n modulo M = 0 )
alors nb <- nb +1;
fin si;
M <- M +1;
Fin tant que
...
... ca remonte à loin mais je pense que c'est ça...

par exemple, si on donne n= 15
les multiples de 3 inférieur à 15 sont : 3 - 6 - 9 - 12
Le nombre que le programme doit afficher c'est 4

si on reviens à mon programme, voilà comment j'ai réfléchi :

Debut
Ecrire ("entrer un entier :");
Lire (n);          <=   n=15
M <- 0;
nb<- 0;
Tant que (M<n) faire     <=  M= 3*nb = 3*4 = 12 donc 12<15
  M <- M+3*nb;            <=    3*1 et 3*2  et 3*3 et 3*4
  nb<- nb+1;                 <=      1     2     3    4
Fin tant que
Ecrire ("Le nombre des entiers est :",nb);    <= Le programme affiche le nombre  "4"
Fin

C koi comme langage? du TI basic ou un truk comme ça?

Avant la boucle :

M = 0 et nb =0

ensuite, à tour de rôle :

M<- M + 3*nb ce qui fait 0+3*0=0 donc M vaut 0 après cette ligne.
nb<- nb+1 donc ce qui fait 0+1=1, donc nb vaut 1 à la fin de cette ligne.

Condition de boucle : est-ce que M<15 ? oui donc on continue.

M<- M + 3*nb ce qui fait 0+3*1=3, donc M vaut 3 à la fin de cette ligne.
nb<-nb+1 ce qui fait 1+1=2, donc nb vaut 2 à la fin de cette ligne.

Condition de boucle : est-ce que M<15 ? oui donc on continue.

M<- M + 3*nb ce qui fait 3+3*2=9, donc M vaut 9 à la fin de cette ligne.
nb<-nb+1 ce qui fait 2+1=3, donc nb vaut 3 à la fin de cette ligne.

Condition de boucle : est-ce que M<15 ? oui donc on continue.

M<- M + 3*nb ce qui fait 9+3*3=18, donc M vaut 18 à la fin de cette ligne. (*)

(*) Je pense que la boucle ne peut pas passer à la ligne suivante puisque M=18>15 donc elle revient à la boucle précèdente et elle affiche nb=3


Pour régler ce probléme j'ai rajouter un 3 au nombre entrer par l'utilisateur pour pouvoir passer à la boucle suivante et j'obtiens ce algorithme :

Debut
Ecrire ("Entrer un entier :");
Lire (n);
M <- 0;
nb<- 0;
N <- n+3;
Tant que (M<N) faire
 M <- M+nb*3;
 nb<- nb+1;
Fin tant que
Ecrire ("Le nombre des entiers est :",nb);
Fin

J'espére que c'est bon maintenant :)

Relis ma solution et essaie de comprendre ce que je fais... et pourquoi.

l'algorithmie sert justement a ne pas avoir a compiler et donc a utiliser un language spécifique (on écrit le programme avec notre propre language sans avoir besoin de connaitre le nom de tel librairie ou la syntaxe de x boucle ou test)

sinon pour en revenir a l'algo, tu peu écrire ceci dans la boucle

nb<- nb+1;
M <- 3*nb;

et après la boucle tu enleve 1 a nb

algorithme exo;
var i ,n : entier;
debut
lire(n);
m<-0;
pour i allantde 3 jusqua n faire;
si (i mod3=0) alors m<- m+1; finsi;
finpour;
ecrire(m);
fin.