Bonjour,

J'ai tenté ce programme pour répondre à l'exercice , pourriez vous me dire mes erreurs?
Je vous remercie de votre aide précieuse!
voici l'énoncé:

Écrire un programme qui affiche les n premières lignes du triangle de Pascal (calcul des
coefficients binomiaux) de la façon suivante (ici : n = 5) :
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
Pour rappel, l'élément qui se trouve à la ligne i et la colonne j représente le coefficient
binomial : Ci= i!/(j! (i -j)!)

N.B. : On pourra supposer, dans un premier temps, que l’on dispose d’une fonction
factorielle(k) permettant de calculer k! On écrira ensuite cette fonction

et voici mon programme.

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
Program Triangle ;
 
Var
  factdif,facti, temp,factj,c,n,i,j : integer ;            //fact di est la fact de i-j//
 
Begin
   writeln('entrez la taille du triangle');
   read(n);
 
   facti:=1;
   factj:=1;
   factdif:=1;
   for i:=1 to n do
      begin
          write('1');
             for j:=2 to n do
                       begin
                        if (i>j) then
                          begin
                            for i:=i downto 1  do
                             facti:=facti*i;
                            for j:=j downto 1 do
                               factj:=factj*j;
                            for temp:=(i-j)downto 1 do
                               factdif:= factdif*temp  ;
                            c:=(facti)/(factj*factdif);
                         end;
                        if i=j then
                              write('1');
 
                      end;
 
             for j=n-1 to 1 do
                begin
                     write(' ');
                end;
          writeln;
          readln;
      end;
end.