SoloCodigo

Porfavor queria pedirles ayuda, lo que pasa es que no se me ocurre nada para programar el triangulo de pascal, no les pido que me de el programa fuente si no que me den ideas de como puedo hacer

Lastent.

Bueno sabes que para hacer el triangulo de pascal si no te has dado cuenta son potencias de 11

 11^0 =       1
 11^1=        11
 11^2 =      121  y asi sucesivamente asi lo que tienes que hacer es

program tria_pascal;
var
     factor,i:integer;
begin
  factor:=1;
  for i:=1 to 12(depende cuantas filas quieres que tenga el triangulo de pascal) do
    begin
     writeln(factor);
     factor:=factor*11;
     end;
end.

No man lo de las potencias es correcto lo que pasa es que te has confundido ya que tu piensas que en la potencial 6 no sale la suma pero si te das cuenta como la suma es mayor a 10 le pasa una unidad al siguiente digito
1
11
121
1331
14641
161051
1771561
19487171
214358881

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;