Présentation de l'algorithme :
Suite géométrique de raison 4/3
Tester l'algorithme :
Code de l'algorithme :
VARIABLES
a EST_DU_TYPE NOMBRE
compteur EST_DU_TYPE NOMBRE
DEBUT_ALGORITHME
AFFICHER "Initialisation de a :"
LIRE a
AFFICHER a
compteur PREND_LA_VALEUR 0
TANT_QUE (a<=100) FAIRE
DEBUT_TANT_QUE
a PREND_LA_VALEUR a*4/3
compteur PREND_LA_VALEUR compteur + 1
AFFICHER compteur
AFFICHER a
FIN_TANT_QUE
FIN_ALGORITHME