Рекурентные вычисления - Turbo Pascal

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

1. Написать программу, вычисляющую первые n элементов заданной последовательности:

Код к задаче: «Рекурентные вычисления - Turbo Pascal»

textual
var b,b1:real;
    n,i:integer;
begin
write('n=');
readln(n);
b1:=0.1;
writeln(b1:0:15);
for i:=2 to n do
 begin
  b:=(0.02+b1*b1*b1)/6;
  writeln(b:0:15);
  b1:=b;
 end;
end.

6   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ