efrei/algorithmique/recursivite/pyramide.algo

23 lines
594 B
Text

Algorithme : Dessine une pyramide d'étoiles selon un entier N donné, N étant impair
Début
Var N : Entier
Var T : Tableau
Var i : Entier = 0
Fonction CreerPyramide(N : Entier, T: Tableau)
Si N = 0
Retourner T
Sinon
nombre_etoiles : Entier = 2 * N - 1
T[i] = ("*" * nombre_etoiles)
i = i + 1
CreerPyramide(N - 1, T)
FinSi
FinFonction
T = CreerPyramide(9, [])
Pour i allant de N à 0 /* décroissant pour parcourir le tableau à l'envers */
Ecrire(T[i])
FinPour
Fin