Получить и вывести на экран последовательность чисел - Pascal ABC

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

Сначала решить задачу, используя цикл While, затем - цикл Repeat. Пусть . Получить и вывести на экран последовательность чисел , если , где

Код к задаче: «Получить и вывести на экран последовательность чисел - Pascal ABC»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.143 из 5


СДЕЛАЙТЕ РЕПОСТ