Problème de boucles imbriquées

Bonjour
Voilà je chercher simplement à m'amuser un peu et à faire ceci qui est un grand classique: un triangle équilatéral qui a pour coté le nb entre par l'utilisateur. Ainsi si celui ci entre 3 on aura:

Code:

---

1 2 3

*** ** *

---

J'ai donc essayé de faire un algo avec des boucles comme suit:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Algo triangle Var nb en entier; Var cpteur en entier;   Ecrire (Entrez un nbre svp:); lire (nb);   Pour (cpteur=0; cpteur<nb; nb++) ecrire (retour chariot); Pour (cpteur=0; cpteur<nb, nb--) ecrire (*); Fin algo

---

Si je traduis ça rapidement en perl je n'ai que *** qui s'affiche avec le retour chariot. Je me demande comment écrire ma boucle interne de façon à effectuer la décrémentation.
En fait je pensais utiliser la boucle externe pour effectuer les retours chariot.
MErci de votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Var entier i=0,j=0,nbr=0;   Debut   Lire (nbr);   Pour i=nbr à 0 faire   pour j=0 à i faire ecrie (*) fin pour   fin pour   Fin

---

Bonjour

Code:

---

Pour i=nbr à 0 faire

---

Pourquoi à 0? Je comprends pas trop là ce que tu fais: tu affectes nbr à i et...?
MErci de ta réponse

Salut

mais il ne s'agit pas d'un affectation, il s'agit d'une intialisation !!!


pour i=nbr vers 0 c-a-d pour i de nbr à 0 (ou à 1 plus juste) faire

a+

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Algo triangle Var nb en entier; Var cpteur_e en entier; Var cpteur_i en entier;   Ecrire (Entrez un nbre svp:); lire (nb);   Pour (cpteur_e=nb; cpteur_e>0; cpteur_e--) Pour (cpteur_i=0; cpteur_i<nb, cpteur_i++) ecrire (*); FinPour ecrire (retour chariot); nb--; FinPour Fin algo

---

Pourrait être une démarche valide, non ?

Salut :D
Que designe cpteur_i? Et pourquoi tu décrémentes le nb à la fin seulement et pas dans la boucle?

Salut

Mais comme ca tu va toucher à la variable saisie (nbr);


A+

Citation:

---

Envoyé par Gnux

Salut :D
Que designe cpteur_i? Et pourquoi tu décrémentes le nb à la fin seulement et pas dans la boucle?

---

cpteur_i et cpteur_e sont deux compteurs ... celui de la boucle interne, et celui de la boucle externe.

Toucher à la variable saisie ne me pose aucun état d'âme s'il n'a pas été précisé qu'elle devrait encore servir ...

L'algo proposé n'est qu'une vague déclinaison du tien, gnux.

J'aurai plutôt fait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Algo triangle Var nb en entier; Var cpt en entier;   Ecrire (Entrez un nbre svp:); lire (nb);   Tantque (nb > 0) Pour (cpt=0; cpt<nb, cpt++) ecrire (*); FinPour ecrire (retour chariot); nb--; FinTantque Fin algo

---

Ce qui ne change pas grand chose, finalement ...

Salut

Citation:

---

***
**
*

---

Si on regarde bien ce qui se passe :
:arrow: On entre trois
:arrow: On ecrit 3 étoiles
:arrow: on va à la ligne
:arrow: On ecrit 2 étoiles
:arrow: on va à la ligne
:arrow: On ecrit 1 étoiles
:arrow: on va à la ligne
:arrow: Il n'y a plus d'étoiles à écrire donc on s'arrète.

Première analyse

Code:

---

1 2 3 4 5

Tant qu'on a des étoiles à écrire on écrit les étoiles on va à la ligne on décremente de 1 le nombre d'étoiles fin tant que

---

Seconde analyse "écrire les étoiles"

Code:

---

1 2 3 4

n est le nombre d'étoiles pour i de 1 à n par pas de 1 ecrire une étoile fin pour

---

On obtient donc le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Var n entier nombre d'étoiles à écrire Var j entier compteur de boucle debut Ecrire "Quel est le nombre d'étoiles" Lire nb   tant que nb > 0 faire pour j de 1 à nb par pas de 1 faire Ecrire une étoile fin pour Aller à la ligne nb <- nb - 1 fin tant que fin

---

Ce n'est jamais qu'un clone de celui de 2Eurocents

Autre analyse :
Quand on fait un triangle de n de côté, on écrit n étoiles, un passage à la ligne, puis le triangle à n-1 de côté :

Code:

---

1 2 3 4 5 6 7 8 9

Triangle( entier N ) : Si( N > 0 ) Pour I = 1 à N Ecrire "*" FinPour Ecrire "\n" Triangle( N - 1 ) FinSi

---

:)

Mais bon puisque tu as écris "Perl" dans ton message initial, je te livre une solution plus perlienne :

Code:

---

1 2 3 4 5

sub triangle { local $\ = "\n"; map { print "*" x $_ } (reverse (1..$_[0])); }

---

:wink:

--
Jedaï