Triangle de Pascal

Version imprimable

26/04/2011, 16h16
brunetta24

Triangle de Pascal

Bonjour, je viens d'apprendre la programmation en Pascal petit à petit
et je bloque sur les tableaux et les matrices. J'ai beau lire des tutoriels, je n'y comprend rien .
J'ai en vue un triangle qui a le schéma suivant :
1
12
123
1234
12345

Mais je ne sais pas par où commencer, y a-t-il une personne qui peut m'aider s'il vous plaît ??
Merci et bonne journée
27/04/2011, 06h58
Alcatîz

Bonjour,

Voilà un sujet qui a été plusieurs fois traité sur le forum; une recherche préalable s'impose avant de poster. ;)

Voilà par où commencer l'exercice : comment le résoudrais-tu sur papier ? Une fois que tu as trouvé une manière de procéder sur papier, traduis-la en langage courant, ce qui te permettra d'aboutir à un pseudo-code que tu n'auras plus qu'à traduire en Pascal.
27/04/2011, 10h04
brunetta24

re

Bonjour
le probleme c'est que je ne sais pas quelle structure aplliquée si c'est une matrice ou bien tableau?
27/04/2011, 12h01
mick605

Salut

Une matrice, un tableau, c'est la même chose ... La différence est le nombre de dimensions. Ne te préoccupes pas du vocabulaire, de toute facons, la déclaration est la même (array [0..Max] of).

Ensuite, il te faut aller lire des cours, et particulièrement des cours sur les tableau comme : http://fbeaulieu.developpez.com/guid...=page_7#LVII-F

Dans ton cas, un tableau a 2 dimensions devrait convenir ...

Bonne chance ;)

Bonjour à tous,
corrigez-moi ça s'il vous plaît :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program Triangle;
Var  T:array [1..50,1..50]:of Integer;
       NL:Integer;
Begin
    Readln(NL,NC);
    For i:=1 to NL do 
       T[i,1]:=1;
 
    For i:=2 to NL do
      For j:=2 to i do
        T[i,j]:=j;
write('Le traingle est le suivant:');
For i:=1 to NL do
For j:=1 to i do
   Write(T[i,j] );
End.

28/04/2011, 21h48
Alcatîz
Bon, faisons abstraction des erreurs de syntaxe et des variables qui n'ont pas été déclarées. :?

Tu dois absolument passer par le stade papier+crayon avant de te mettre à écrire en Pascal !

Raisonnons :

A la ligne 1, il faut affecter la valeur 1 à la colonne 1.
A la ligne 2, il faut affecter la valeur 1 à la colonne 1 et la valeur 2 à la colonne 2.
A la ligne 3, il faut affecter la valeur 1 à la colonne 1, la valeur 2 à la colonne 2 et la valeur 3 à la colonne 3.
... etc.

Tentons de généraliser ce que nous faisons pour chaque ligne :

A la ligne i, il faut respectivement affecter les valeurs 1 à i aux colonnes 1 à i.
Donc, pour la ligne i, si j est l'indice de colonne, on pourra dire :

Code:

Pour j allant de 1 à i, Tableau[i,j] reçoit j.

Tentons de généraliser à tout le tableau :

Si n est le nombre de lignes du tableau, i l'indice de ligne et j l'indice de colonne :
Code:

1 2 3 Pour i allant de 1 à n, Pour j allant de 1 à i, Tableau[i,j] reçoit j
Un test sur papier pour voir si l'algorithme fait exactement ce que tu veux et puis, seulement, tu pourras le traduire en Pascal.

;)

Citation:

A la ligne 1, il faut affecter la valeur 1 à la colonne 1.
A la ligne 2, il faut affecter la valeur 1 à la colonne 1 et la valeur 2 à la colonne 2.
A la ligne 3, il faut affecter la valeur 1 à la colonne 1, la valeur 2 à la colonne 2 et la valeur 3 à la colonne 3.
... etc.

Mon instruction est la suivante
Code:

1 2 for i:=1 to NL do t[i,1]:=1;/*sa veux dire la colone 1 est toujours égale a 1*/
Citation:

Tentons de généraliser ce que nous faisons pour chaque ligne :

"A la ligne i, il faut respectivement affecter les valeurs 1 à i aux colonnes 1 à i.
Donc, pour la ligne i, si j est l'indice de colonne, on pourra dire :
[Pour j allant de 1 à i, Tableau[i,j] reçoit j.

Ici le i aura quelles valeurs : de 1 à NL ou bien de 2 a NL?

Donc ma faute est que j'ai fais une instruction en plus qui est
Code:

1 2 for i:=1 to NL do t[i,1]:=1;
donc mon algo aura la structure suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Program Traingle; var t=array[1..50,1..50]of integer; i,j,NL:integer; begin for i:=1 to NL do for j:=1 to i do t[i,j]:=j; write('le triangle est le suivant:'); for i:=1 to NL do for j:=1 to i do write(t[i,j]); end.

30/04/2011, 22h37
mick605
Salut

C'est exactement ca !

Tu auras juste un petit soucis au niveau de l'affichage de ton tableau. Tu as oublié de retourner a la ligne a chaque fois ... Ton programme va donner :
```
112123123412345...
```
Pour retourner a la ligne, il te suffit d'utiliser WriteLn;

Bonne chance ;)
01/05/2011, 12h48
brunetta24

re

bonjour
ah c'est vrai j'ai oublier ce detail
merci de m'avoir corriger
bonne journée