Получить и вывести на экран последовательность чисел - Pascal ABC
Формулировка задачи:
Сначала решить задачу, используя цикл While, затем - цикл Repeat.
Пусть . Получить и вывести на экран последовательность чисел , если , где
Решение задачи: «Получить и вывести на экран последовательность чисел»
textual
Листинг программы
program prim; uses crt; var y:array [1..25] of real; i:byte; begin y[1]:=1; writeln(y[1]); y[2]:=2; writeln(y[2]); i:=3; while i<=25 do begin y[i]:=(sqr(y[i-1])+y[i-2]+y[i-1])/i; writeln('y[',i,']',y[i]:5:3); inc(i); end; end.
Объяснение кода листинга программы
В данном коде используется язык программирования Pascal ABC.
Переменная y
представляет собой массив из 25 элементов типа real
, что означает, что каждый элемент массива может содержать вещественное число.
Сначала в массив y
записываются первые два элемента: y[1] = 1
и y[2] = 2
.
Затем переменная i
инициализируется значением 3, и в цикле while, который выполняется до тех пор, пока i
меньше или равно 25, происходит следующее:
- Вычисляется квадрат элемента массива
y[i-1]
, затем к этому квадрату прибавляются значения элементовy[i-2]
иy[i-1]
, и результат делится наi
. Это значение записывается в элемент массиваy[i]
. - Выводится на экран значение элемента массива
y[i]
с помощью функцииwriteln()
. - Переменная
i
инкрементируется, то есть увеличивается на единицу. Цикл while повторяется, покаi
меньше или равно 25, и после этого выводится на экран последовательность чиселy[1], y[2], ..., y[24], y[25]
.