Получить и вывести на экран последовательность чисел - 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, происходит следующее:

  1. Вычисляется квадрат элемента массива y[i-1], затем к этому квадрату прибавляются значения элементов y[i-2] и y[i-1], и результат делится на i. Это значение записывается в элемент массива y[i].
  2. Выводится на экран значение элемента массива y[i] с помощью функции writeln().
  3. Переменная i инкрементируется, то есть увеличивается на единицу. Цикл while повторяется, пока i меньше или равно 25, и после этого выводится на экран последовательность чисел y[1], y[2], ..., y[24], y[25].

Оцени полезность:

14   голосов , оценка 4.143 из 5
Похожие ответы