Triangle de Pascal
Page 1 sur 1
Triangle de Pascal
program pascal;
uses wincrt;
type
mat=array[0..20,0..20] of integer;
var
n:integer; m:mat;
{procedure triangle(var m:mat;n:integer);
var
l,c:integer;
begin
m[0,0]:=1;
for l:=1 to n do
for c:=1 to l do
begin
m[l,0]:=1;
m[c,c]:=1;
m[l,c]:=m[l-1,c-1]+m[l-1,c];
end;
end;}
procedure triangle(var m:mat;n:integer);
var
i,j:integer;
begin
for i:=0 to n Do
for j:=0 to i do
if(i=j) or (j=0) Then
m[i,j]:=1
else m[i,j]:=m[i-1,j-1]+m[i-1,j];
end;
procedure affiche(m:mat;n:integer);
var
l,c:integer;
begin
for l:=0 to n do
begin
for c:=0 to l do
write(m[l,c],' ');
writeln;
end;
end;
{Triangle de Pascal}
begin
write('n=');
readln(n);
triangle(m,n);
affiche(m,n);
end.
Remarque: on peut ajouter un commentaire à ce programme, il doit figurer entre {}.
Voir la partie en gras dans le programme
uses wincrt;
type
mat=array[0..20,0..20] of integer;
var
n:integer; m:mat;
{procedure triangle(var m:mat;n:integer);
var
l,c:integer;
begin
m[0,0]:=1;
for l:=1 to n do
for c:=1 to l do
begin
m[l,0]:=1;
m[c,c]:=1;
m[l,c]:=m[l-1,c-1]+m[l-1,c];
end;
end;}
procedure triangle(var m:mat;n:integer);
var
i,j:integer;
begin
for i:=0 to n Do
for j:=0 to i do
if(i=j) or (j=0) Then
m[i,j]:=1
else m[i,j]:=m[i-1,j-1]+m[i-1,j];
end;
procedure affiche(m:mat;n:integer);
var
l,c:integer;
begin
for l:=0 to n do
begin
for c:=0 to l do
write(m[l,c],' ');
writeln;
end;
end;
{Triangle de Pascal}
begin
write('n=');
readln(n);
triangle(m,n);
affiche(m,n);
end.
Remarque: on peut ajouter un commentaire à ce programme, il doit figurer entre {}.
Voir la partie en gras dans le programme
Imen ESSASSI- Messages : 9
Date d'inscription : 21/02/2018
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|