Tp en pascal
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 :(:(
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 :(:(
Configuration: Windows XP Internet Explorer 7.0
2 réponses
-
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. -
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.
