Tp en pascal
nesrina
-
yvesB87 Messages postés 12 Statut Membre -
yvesB87 Messages postés 12 Statut Membre -
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
A voir également:
- Tp scrabble
- Débloquer scrabble go - Forum jeux en ligne
- Beug scrabble - Forum Jeux vidéos smartphones
- Ordi scrabble - Télécharger - Jeux vidéo
- Scrabble go faux joueurs - Forum jeux en ligne
- Pour scrabble go - Forum jeux en ligne
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.
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.
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.
