Tp en pascal
nesrina
-
yvesB87 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
yvesB87 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
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 :(:(
A voir également:
- Tp scrabble
- Ordi scrabble - Télécharger - Jeux vidéo
- Débloquer scrabble go - Forum jeux en ligne
- Tp-link connecté mais pas internet - Forum WiFi
- Isc.ro scrabble - Forum jeux en ligne
- Scrabble isc ro ✓ - Forum Réseaux sociaux
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.