Получить и напечатать первые n строк треугольника Паскаля - Turbo Pascal

Формулировка задачи:

Дано натуральное число n. Получить и напечатать первые n строк треугольника Паскаля.

Решение задачи: «Получить и напечатать первые n строк треугольника Паскаля»

Листинг программы

program PascalTriangle;
 
var
  a: array[1..100] of integer;
  n: integer;
  i, j: integer;
  tmp1, tmp2: longint;
begin
  readln(n);
  a[1] := 1;
  for i := 1 to n do
  begin
    tmp2 := a[1];
    for j := 1 to i do
    begin
      if j >= 2 then
      begin
        tmp1 := a[j];
        a[j] := tmp2 + a[j];
        tmp2 := tmp1;
      end;
      Write(a[j]: 6);
    end;
    writeln;
  end;
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных. У нас есть массив a для хранения чисел, переменная n для хранения количества строк треугольника, переменные i и j для итерации по строкам треугольника, временная переменная tmp1 для хранения промежуточных значений, и временная переменная tmp2 для хранения суммы двух предыдущих элементов.
Затем мы читаем введенное пользователем количество строк треугольника (n).
Мы устанавливаем первый элемент массива a равным 1. Это будет первым элементом в первой строке треугольника.
Затем мы используем цикл for для итерации от 1 до n. На каждой итерации мы обновляем значение tmp2 путем добавления значения a[1] к значению a[j]. Это позволяет нам вычислить сумму двух предыдущих элементов в текущей строке треугольника.
Мы также используем вложенный цикл for для итерации от 1 до i. Внутри этого цикла мы обновляем значение tmp1 путем установки значения a[j] равным значению tmp2. Это позволяет нам установить значения для всех элементов в текущей строке треугольника.
После завершения вложенного цикла мы записываем значение a[j] на экран.
После завершения внешнего цикла мы записываем символ новой строки (writeln) для перехода на следующую строку треугольника.
Мы повторяем шаги 4-7 для каждой строки треугольника до тех пор, пока не достигнем n строк.