Triangle de Pascal : "wrong amount of parameters specified"

Version imprimable

1 pièce(s) jointe(s)

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:

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:

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 :
Pièce jointe 224618

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

Merci d'avance.

11/11/2016, 20h56
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. :)

Citation:

Envoyé par 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. :)

Bonjour,

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

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).

Bonsoir !

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

Code:

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. ;)

12/11/2016, 00h18
Alcatîz

Bonjour et bienvenue,

Citation:

Envoyé par Bloudon

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.

;)

Citation:
Envoyé par Roland Chastain
Bonsoir !

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

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 !

Citation:

Envoyé par Alcatîz

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 ;)

12/11/2016, 11h33
Roland Chastain

Citation:

Envoyé par Bloudon

Merci beaucoup pour cette aide !

Pas de quoi. ;)

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

Code:

Write(triang[l, c]:7,

7 étant la largeur du plus grand nombre obtenu lorsque NC égale Nmax.
12/11/2016, 12h46
Bloudon

Citation:

Envoyé par Roland Chastain

Pas de quoi. ;)

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

Code:

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.