tp en pascal Fermé

Question

Bonjour,
alors jé un tp en pascal c un exercice ke je veux avoir sa solution et je veux savoir comment l'excuté en pascal avec la meilleure possibilité pour avoir une bonne note au tp!!!! svp pouvez vous m'aidez!!!
et voila l'exercice:

soit MAT une matrice carrée (N*N) d'entier 
ecrire l'algorithme qui génere le triangle de pascal
svp aidez moi :(:(

yvesB87 · Answer

program triangle_pascal;
uses wincrt;
type Matrice=array[1..20,1..20]of integer;
var
   n:integer;
   m:Matrice;
procedure remplir(n:integer;var M:Matrice);
          var
             i,j:integer;
          begin
               M[1,1]:=1;
               for i:=2 to n do
                   begin
                        M[i,1]:=1;
                        M[i,i]:=1;
                        for j:=2 to i-1 do
                        M[i,j]:=M[i-1,j-1]+M[i-1,j];
                   end;
          end;
 
procedure affi(n:integer;M:Matrice);
          var
             i,j:integer;
          begin
               For i:=1 to n do
   	           	Begin
   		        	For j:=1 to i do
  			        	 write(M[i,j]:5);
                                         writeln;
                        End ;
 
          end;
 
begin
n:=8;
writeln('*********** Triangle de Pascal ***********');
writeln;
writeln;
     remplir(n,m);
     affi(n,m);
end.

yvesB87 · Answer

program exo;
 uses wincrt;
 type matrice=array[1..100,1..100]of integer;
 var
 n:integer;
 m:matrice;
 procedure somme_mat(n:integer;var m:matrice);
 var
 i,j:integer;
 begin
 m[1,1]:=1;i:=1;
 while i<n do begin
               i:=i+1;
               m[i,1]:=1;
               m[i,i]:=1;
               for j:=2 to i-1 do m[i,j]:=m[i-1,j-1]+m[i-1,j];
               end;
 end;
 procedure affich(n:integer;var m:matrice);
 var
 i,j:integer;
 begin
 for i:=1 to n do begin
                  for j:=1 to i do write(' ',m[i,j]);
                  writeln;
                  writeln;
                  end;
 end;
 begin
 write('entrez n :');read(n);
 somme_mat(n,m);
 affich(n,m);
 end.

Tp en pascal

2 réponses

Discussions similaires