Получить и вывести на экран последовательность чисел - Pascal ABC
Формулировка задачи:
Сначала решить задачу, используя цикл While, затем - цикл Repeat.
Пусть . Получить и вывести на экран последовательность чисел , если , где
Код к задаче: «Получить и вывести на экран последовательность чисел - Pascal ABC»
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.
14 голосов, оценка 4.143 из 5
СОХРАНИТЬ ССЫЛКУ