Programación General > Pascal

 Triangulo De Pasca

<< < (2/2)

fuhrer:
Se supone que el triangulo de pascal es:

--- Código: Text ---          1        1 1       1 2 1     1 3  3 1   1 4  6  4 1  1 5  10 10 5 11 6 15 20 15 6 1         .         .         .  Y lo que has sugerido solo sirve hasta 11^4, como ya lo habia mencionada antes, la mejor farma es utilizando la formula de las conbinaciones:

--- Código: Text ---      n! / (k!(n-k)!)  
La cual genera el triangulo a la perfeccion, ya que esta tambinén es usada en el polinomio de Newton y tiene muchas otras aplicaciones.

Bueno, espero que alla quedado todo claro y que no haya inconformidades.

Hasta luego.

gangister:
Bueno esas son las formas matematicas, pero suponiendo que no seas tan buen matematico o quieras hacerlo utilizando el potencial de la computadora, deberias intentar generar linea por linea. Cada lineala puedes obtener de la anterior utilizando una recursiva. Este procedimiento quiza te de una idea de lo que hay que hacer.

La razon por la cual empieza el n es dos, es porque el n=1 es usado para guardar un cero, que se utiliza para sacar la suma de los unos exteriores.

Procedure GenerarLinea(numero:integer);

var
n:integer;
begin
n:=2;
if numero=1 then Linea[2]:=1 else
   begin
   while n<=numero do
      begin
      Linea[n]:=LineaPrevia[n]+LineaPrevia[n-1];
                Linea[n+1]:=LineaPrevia[n]+LineaPrevia[n+1];
      n:=n+1;
      end;
   end;

EscribeLinea(numero);
GuardaLinea(numero);
end;

Navegación

[0] Índice de Mensajes

[*] Página Anterior