Получить треугольник паскаля - Turbo Pascal
Формулировка задачи:
Получить треугольник паскаля (биноминальные коэффициенты)
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
Помогите пожалуйста, мне нужен именно этот вид треугольника, пользователь вводит число строк
Решение задачи: «Получить треугольник паскаля»
textual
Листинг программы
var a:array[0..100,0..100]of integer; i,j,n:integer; begin readln(n); writeln; a[1,1]:=1; for i:=2 to n do for j:=1 to i do a[i,j]:=a[i-1,j-1]+a[i-1,j]; for i:=1 to n do begin for j:=1 to i do write (a[i,j],' '); writeln; end; end.
Объяснение кода листинга программы
- В начале программы объявляются переменные:
—
a
— массив размером 0..100,0..100 типа integer; —i
,j
,n
— целочисленные переменные. - Затем программа запрашивает значение переменной
n
и выводит его на экран. - Значение первого элемента массива
a
инициализируется единицей, так как это первый элемент треугольника Паскаля. - Далее, с помощью двух вложенных циклов, происходит заполнение остальных элементов массива
a
. Первый цикл идет от i=2 до n, второй — от j=1 до i. Значение каждого элемента массиваa
равно сумме соответствующих элементов массиваa
(i-1, j-1) и (i-1, j). - Затем, с помощью двух вложенных циклов, происходит вывод значений элементов массива
a
на экран. Первый цикл идет от i=1 до n, второй — от j=1 до i. - В конце программы заканчивается работа с циклом и выполняется выход из программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д