Discussion :

[Bloudon]

Bonjour,

Je suis en train de faire un exercice en Pascal qui me demande de calculer le triangle de Pascal de dimension N (Définie par l'utilisateur) et en utilisant une procédure calcul(Triang) et une procédure Affichage(Triang). Etant débutant avec les procédures, j'ai encore un peu de mal à avoir le truc, du coup j'ai du mal à corriger mes erreurs.

Voici ce que j'ai fait :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Program Exo4TP9;
 
Const Nmax=25;
 
TYPE tableau=array [1..Nmax,1..Nmax] of integer;
 
PROCEDURE calcul(VAR N:integer);
VAR c,l :integer;
    Triang:tableau;
 
Begin
 
Triang[1,1]:=1;
for l := 2 to N do
   begin
    Triang[l,1]:=1;
    for c := 1 to l-1 do
      Triang[l,c]:=Triang[l-1,c]+Triang[l-1,c-1];
      Triang[l,l]:=1;
   end;
End;
 
PROCEDURE Affichage(N:integer ; Triangl:tableau);
VAR l,c:integer;
 
          Begin
              for l := 1 to N do
              begin
                for c := 1 to l do
                  write(Triangl[l,c],' ');
                  writeln('');
              end;
End;
 
VAR NC:integer;
 
Begin
Writeln('Saisir N');
Readln(NC);
 
calcul(NC);
Affichage(NC);
 
readln;
 
END.

Mais en compilant j'obtient cette erreur : 42 / 11 Error: Wrong amount of parameters specified

J'ai donc essayé de faire une modification dans ma deuxième procédure :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Program Exo4TP9;
 
Const Nmax=25;
 
TYPE tableau=array [1..Nmax,1..Nmax] of integer;
 
PROCEDURE calcul(VAR N:integer);
VAR c,l :integer;
    Triang:tableau;
 
Begin
 
Triang[1,1]:=1;
for l := 2 to N do
   begin
    Triang[l,1]:=1;
    for c := 1 to l-1 do
      Triang[l,c]:=Triang[l-1,c]+Triang[l-1,c-1];
      Triang[l,l]:=1;
   end;
End;
 
PROCEDURE Affichage(N:integer);
VAR l,c:integer;
    Triang:tableau;
 
          Begin
              for l := 1 to N do
              begin
                for c := 1 to l do
                  write(Triang[l,c],' ');
                  writeln('');
              end;
End;
 
VAR NC:integer;
 
Begin
Writeln('Saisir N');
Readln(NC);
calcul(NC);
Affichage(NC);
 
readln;
 
END.

Je n'ai plus d'erreur cette fois-ci mais un avertissement : 31 / 41 Warning: Local variable TRIANG does not seem to be initialized

Et quand je le lance j'obtiens ce résultat :


J'aurais besoin de votre aide car je n'arrive pas à trouver le problème.

Merci d'avance.

[droggo]

Bonjour,

Tu cherches à afficher les données d'une variable locale, qui n'est pas initialisée.

Ta première version était meilleure, car tu passais le tableau à ta procédure, ce que tu avais quelque peu oublié en route.

[Bloudon]

Bonjour,

Tu cherches à afficher les données d'une variable locale, qui n'est pas initialisée.

Ta première version était meilleure, car tu passais le tableau à ta procédure, ce que tu avais quelque peu oublié en route.

Bonjour,

J'ai essayé de modifier quelques trucs, j'obtiens bien un triangle mais cette fois-ci composé uniquement de 0 :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Program Exo4TP9;
 
Const Nmax=25;
 
TYPE tableau=array [1..Nmax,1..Nmax] of integer;
 
PROCEDURE calcul(VAR N:integer);
VAR c,l:integer;
    triang:tableau;
 
Begin
Writeln('Saisir N');
Readln(N);
 
Triang[1,1]:=1;
for l := 2 to N do
   begin
    Triang[l,1]:=1;
    for c := 1 to l-1 do
      Triang[l,c]:=Triang[l-1,c]+Triang[l-1,c-1];
      Triang[l,l]:=1;
   end;
End;
 
PROCEDURE Affichage(N:integer; triang:tableau);
VAR l,c:integer;
 
          Begin
              for l := 1 to N do
              begin
                for c := 1 to l do
                  write(Triang[l,c],' ');
                  writeln('');
              end;
End;
 
VAR NC:integer;
    triangl:tableau;
 
Begin
 
calcul(NC);
Affichage(NC,triangl);
 
readln;
 
END.

J'obtiens toujours le même problème : 43 / 10 Warning: Variable TRIANGL does not seem to be initialized

Mais je ne sais pas comment en venir à bout

Peut-être auriez-vous un tuto sur les procédures qui pourrait me permettre de mieux comprendre mon erreur ? (J'ai déjà essayé de comprendre avec celui-ci, mais sans succès).

[Roland Chastain]

Bonsoir !

Après une première lecture, voici les modifications qui me paraissent nécessaires :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Program Exo4TP9;
 
Const Nmax=25;
 
TYPE tableau=array [1..Nmax,1..Nmax] of integer;
 
//PROCEDURE calcul(VAR N:integer);
PROCEDURE calcul(CONST N:integer; VAR triang: tableau);
VAR c,l:integer;
    //triang:tableau;
 
Begin
//Writeln('Saisir N');
//Readln(N);
 
Triang[1,1]:=1;
for l := 2 to N do
   begin
    Triang[l,1]:=1;
    for c := 1 to l-1 do
      Triang[l,c]:=Triang[l-1,c]+Triang[l-1,c-1];
      Triang[l,l]:=1;
   end;
End;
 
//PROCEDURE Affichage(N:integer; triang:tableau);
PROCEDURE Affichage(CONST N:integer; CONST triang:tableau);
VAR l,c:integer;
 
          Begin
              for l := 1 to N do
              begin
                for c := 1 to l do
                  write(Triang[l,c],' ');
                  writeln('');
              end;
End;
 
VAR NC:integer;
    triangl:tableau;
 
Begin
 
//calcul(NC);
Writeln('Saisir N');
Readln(NC);
calcul(NC,triangl);
Affichage(NC,triangl);
 
readln;
 
END.

Je n'ai pas testé le programme. Mais il n'y a plus d'avertissement à la compilation.

[Alcatîz]

Bonjour et bienvenue,

Peut-être auriez-vous un tuto sur les procédures qui pourrait me permettre de mieux comprendre mon erreur ?

Celui-ci est très détaillé : http://lazarus.developpez.com/cours/...pg_02#LIII-B-4.
Il traite des procédures et fonctions, des paramètres, de la portée des variables, etc.

[Bloudon]

Bonsoir !

Après une première lecture, voici les modifications qui me paraissent nécessaires :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Program Exo4TP9;
 
Const Nmax=25;
 
TYPE tableau=array [1..Nmax,1..Nmax] of integer;
 
//PROCEDURE calcul(VAR N:integer);
PROCEDURE calcul(CONST N:integer; VAR triang: tableau);
VAR c,l:integer;
    //triang:tableau;
 
Begin
//Writeln('Saisir N');
//Readln(N);
 
Triang[1,1]:=1;
for l := 2 to N do
   begin
    Triang[l,1]:=1;
    for c := 1 to l-1 do
      Triang[l,c]:=Triang[l-1,c]+Triang[l-1,c-1];
      Triang[l,l]:=1;
   end;
End;
 
//PROCEDURE Affichage(N:integer; triang:tableau);
PROCEDURE Affichage(CONST N:integer; CONST triang:tableau);
VAR l,c:integer;
 
          Begin
              for l := 1 to N do
              begin
                for c := 1 to l do
                  write(Triang[l,c],' ');
                  writeln('');
              end;
End;
 
VAR NC:integer;
    triangl:tableau;
 
Begin
 
//calcul(NC);
Writeln('Saisir N');
Readln(NC);
calcul(NC,triangl);
Affichage(NC,triangl);
 
readln;
 
END.

Je n'ai pas testé le programme. Mais il n'y a plus d'avertissement à la compilation.

Merci beaucoup pour cette aide !

Bonjour et bienvenue,


Celui-ci est très détaillé : http://lazarus.developpez.com/cours/...pg_02#LIII-B-4.
Il traite des procédures et fonctions, des paramètres, de la portée des variables, etc.

Merci beaucoup pour ce tutoriel, je le trouve excellent

[Roland Chastain]

Merci beaucoup pour cette aide !

Pas de quoi.

Un dernier petit truc pour améliorer l'affichage du triangle :

Code :

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

Write(triang[l, c]:7,

7 étant la largeur du plus grand nombre obtenu lorsque NC égale Nmax.

[Bloudon]

Pas de quoi.

Un dernier petit truc pour améliorer l'affichage du triangle :

Code :

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

Write(triang[l, c]:7,

7 étant la largeur du plus grand nombre obtenu lorsque NC égale Nmax.

Je ne savais pas que l'on pouvait faire cela, merci beaucoup.