Lista de Exercicios

13. Escreva um programa para calcular os coeficientes binomiais de Pascal. Este triangulo tem a forma

onde, em geral, uma linha ‚ obtida somando-se os dois elementos imediatamente acima. Gerar n primeiras linhas deste triangulo.

program P13;
uses crt;
type
matriz = array[0..13,0..26] of word;
var
a : matriz;
n, i, j : byte;
procedure ler_n;
begin
clrscr;
highvideo;
gotoxy(19,2);
write('PROGRAMA FEITO POR KARINE E MARIA DA GLORIA');
gotoxy(19,4);
write('Calcula os coeficientes binomiais de Pascal');
lowvideo;
gotoxy(10,6);
write ('Entre com o número de linhas desejado: ');
read (n);
if n>13 then
begin
gotoxy(5,8);
write('O número de linhas deve ser menor que 13, para ser poss¡vel a visualização!');
repeat until keypressed;
ler_n;
end;
end;
procedure zera_matriz;
begin
for i:=0 to n do
for j:=0 to n*2 do
a[i,j]:=0;
end;
procedure calcula;
begin
a[1,n] := 1;
for i:=2 to n do
for j:=1 to n*2-1 do
a[i,j] := a[i-1,j-1] + a[i-1,j+1];
end;
procedure imprime;
begin
clrscr;
for i:=1 to n do
for j:=1 to n*2-1 do
if a[i,j]<>0 then
begin
gotoxy (1+(j-1)*2,1+(i-1)*2);
write (a[i,j]);
end;
end;
{programa principal}
begin
ler_n;
zera_matriz;
calcula;
imprime;
repeat until keypressed;
end.

Para retornar a tela principal clique aqui.