Discussion :

[jeannelimant]

Bonjour, je commence tout juste à étudier la programmation, et nous utilisons Dev Pascal. Je dois réaliser ce même triangle, mais mon programme ne fonctionne pas. Il affiche seulement des "c" les uns en dessous des autres... Je ne comprends pas d'où vient le problème, si vous pouvez m'aider, merci beaucoup!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
program Pyramide
 
Var
   l,c,t: integer;
 {l est le numéro de la ligne, t est nombre total de lignes, c est le numéro de la colonne}
Begin
       repeat
 
           writeln ('<10');
           readln (t);
       until t in [1 .. 9];
 
 
For
   l:=1 to t do;
 
      begin
        for c:= 1 to (t-l) do
            writeln ('    ');
 
        for c:= 1 to l do
            writeln ('c');
        for c:= (l-1)to 1 do
            write(c);
 
writeln ;
readln;
end;
 
End.

[ternel]

Tu es completement en dehors du sujet, cette discussion, vieille de sept ans, porte sur le langage C++, qui n'a qu'un lointain rapport avec le pascal.
Pose ta question sur le forum Pascal

De plus, tu essaie d'afficher des triangles EN pascal, pas le triangle de pascal.

A première vue, tu n'as pas compris la différence entre write et writeln.

[anapurna]

salut

comme le dis leternel tu as déjà un problème de compréhension entre write et writeln
le writeln fait un retour a la ligne systématique
on vas décortiquer les étapes à faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  pour i de 1 to  h Faire 
   EcrireLigne(i)

voila la boucle principale est faites que nous reste t'il a definir ... la ligne
donc la ligne ce décompose en trois partie distinct la parti gauche,le centre et la parti droite c'est trois partie sont variable selon la hauteur ou il se trouve dans la pyramide
a la fin de ces trois partie tu y adjoint un retour chariot

voila un début de piste fort prometteur je te laisse faire quelques essai et ensuite reviens vers nous avec ta nouvelle ébauche de programme afin de voir ta progression

[jeannelimant]

Bonjour ! Merci de vos réponses !!

J'ai étudié la différence entre write et writeln et j'ai trouvé ! Je comprends l'idée du "retour chariot" mais je n'arrive pas a la mettre en œuvre... Il faut aussi que j'initialise c pour qu'il prenne une valeur croissante puis décroissante, mais je ne vois pas quel indicateur utiliser.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program Pyramide;
 
 
Var
 
l,c,t : integer;
 
Begin
     Repeat
           writeln ('<10');
           read (t);
     Until t in [1 .. 9];
 
 For l:=1 to t do
 
     begin
           for c:=1 to (t-l) do write (' ') ;
           writeln ;
           for c:=1 to l do write ('c');
           writeln;
           for c:=c to l+1 do write (' ')  ;
           writeln ;
        end;
        readln (c);
    end.

[anapurna]

salut

si je comprend bien ton t correspond a la hauteur de ta pyramide

le plus simple pour comprendre ce que tu doit faire tu par de ta forme finale et tu essai de trouver la formule que tu a besoin
pour construire tes ligne

AAACAAA 0
AACCCAA 1
ACCCCCA 2
CCCCCCC 3

donc pour notre exemple la hauteur de 4 dans notre exemple
on as une largeur de 7 ce qui veut dire que ta base est égale a

2*(h-1)+1

le + 1 est la pointe
imaginons maintenant que tu as une hauteur de 7 => la base seras égale a (7-1)*2 +1 = 13 voila
on as déjà calculé la base nécessaire pour dessiner ta pyramide

maintenant il te reste juste à définir la disposition de tes éléments dans chaque ligne
en regardant le dessin on vois très bien que chaque ligne est un multiple de 2

1 ligne 2*0+1 = 1
2 ligne 2*1+1 = 3
3 ligne 2*2+1 = 5
4 ligne 2*3+1 = 7 et ainsi de suite

maintenant que l'on connais l'encombrement de ton nombre de c dans chaque ligne le reste n'est qu'une soustraction
chaque ligne doit faire la taille de la base défini plus haut
ce qui nous donne pour chaque ligne les éléments suivant

NbBlanc = (base-NbrC) div 2

ensuite nbrc
et NbBlanc

donc pour chaque ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
   For i:= 1 to NbBlanc
     write(' ');
  For i:= 1 to nbrc
    write('C');
  For i:= 1 to NbBlanc
    write(' ');
  writeln();

voila je pense t'avoir donné toutes les infos nécessaire pour que tu puisse faire ta pyramide