Algorithme nombre de

[093hd]

Bonsoir à vous !

Je souhaite écrire un algorithme qui va me permettre d'avoir le nombre d'étapes pour ramener un nombre à zéro selon les conditions :
Si le nombre est pair, on le divise par 2; sinon on en soustrait 1 puis on le divise par 2 jusqu'à ce qu'on obtienne 0.
Exemple !
8
Étape(1): 8/2=4
Étape (2):4/2=2
Étape (3):2/2=1
Étape (4):1-1=0

Nombre d'étapes egale 4

J'ai pu écrire l'algorithme qui le ramene à zéro mais je ne sais pas comment procéder pour avoir le nombre d'étapes :

Algorithme nombreEtapes
Var n: entier p:entier m:reel q:entier
debut
ecrire('')
lire(n)
p<-n/2;
m<-n/2;
q=0
tantque q<>0 faire
si p-m=0 alors
q<- (p/2);
sinon
q<-(p-1)/2

finsi
fintantque
ecrire(q)
Fin
-----

[jiherve]

bonsoir,
ton algo n'est pas fonctionnel car:

q=0
tantque q<>0 faire

c'est un peu contradictoire
ensuite il suffit de compter entre finsi et fintantque.
de plus comparer un entier à un réel c'est olé olé.
ton langage doit bien avoir la fonction modulo i.e le reste de la division entière!
JR

[umfred]

on pourrait aussi passer par un décalage de bit vers la droite puisqu'on travaille sur un entier.

 Cliquez pour afficher

 nombreEtapes:
Var n: entier, cpt: entier
ecrire("saisir un nombre entier:")
lire(n)
cpt=0
si n & 1 ==1 alors cpt++ (& ou AND au sens binaire)
tantque n<>0 faire
  n=n>>1 (décalage de 1 bit vers la droite, revient à faire une division entière par 2)
  cpt++
fintantque
ecrire(cpt)
Fin

[jiherve]

re
oui en effet je devais dormir!
JR

[A voir en vidéo sur Futura]

[093hd]

merci beaucoup !����