Получить треугольник Паскаля

[McFrey]

Получить треугольник паскаля (биноминальные коэффициэнты)
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1

Язык Паскаль

[Mad_Cat]

uses
  Crt;
const
  N = 30;
var
  I,J,Nn: Integer;
  A:array[1..N, 1..N] of longint;
begin
  writeln('Input n');
  readln(Nn);
  ClrScr;
  for I:=1 to Nn do
    begin
      A[I,1]:=1;
      A[I,i]:=1;
    end;
  for I:= 3 to Nn do
    begin
      For J:=2 to I-1 do A[I,J]:= A[I-1,J-1]+A[I-1,J];
    end;
  ClrScr;
  for I:= 1 to Nn do
    begin
      for J:=1 to I do Write(a[I,J],' ');
      WriteLn;
    end;
end.

[McFrey]

Огромное спасибо

[canadamoscow]

Треугольник Паскаля
Мы знаем, что j-я запись в строке line является биномиальным коэффициентом С(line, j),
и все строки начинаются со значения 1. Идея состоит в том, чтобы вычислить С(line, j),
используя C(line, j - 1) . Его можно рассчитать используя следующее.

C(line, j) = line! / ( (line - j)! * j! )

C(line, j - 1) = line! / ( (line - j + 1)! * (j - 1)! )

Из приведенных выше двух выражений мы можем вывести следующее выражение.

C(line, j) = С(line, j - 1) * (line - j) / j

На PascalABC.NET

begin  
  var n := ReadInteger('Введите кол-во строк треугольника Паскаля на вывод:');
  for var line := 1 to n do
  begin
    var c := biginteger(1); 
    for var j := 1 to line do c := c.Print * (line - j) / biginteger(j); 
    Println;
  end;
end.