domingo, 4 de maio de 2014

Triângulo de Pascal - O Código

Na minha última postagem sobre o triângulo de Pascal, mencionei alguns detalhes sobre ele. Muitos devem estar até o momento um tanto curioso quando ao seu código. 

Abaixo segue um exemplo utilizando a linguagem Pascal.

Program Pzim ;

type
  matriz = array[1..100,1..100] of integer;
var
  a : matriz;
  i, j, k, num : integer;
 Begin                                
   writeln('Entre com um número: ');
   read(num);
   for i:=1 to num do
     for j:=1 to i do
          if (j = 1) or (i = J) then
 a[i,j]:=1
else
      a[i,j]:=a[i-1,j-1] + a[i-1,j];

     clrscr;
     writeln('TRIANGULO DE PASCAL :');
     writeln('------------------------------ ');
     for i:=1 to num do
       begin
         for  j:=1 to i do
     write(a[i,j]:6);
         writeln;
       end;
     writeln;
     readkey;                                                            

 End.


Espero que tenham gostado e até a próxima

Nenhum comentário:

Postar um comentário