в качестве подпрограммы функцию вычисления
until eps > 1;
t := k
end;
{----------------------------------------------------------------------------------------}
Function s(k: integer; p : real) : real;
var
i : integer; z : real;
begin
z := 1;
for i := 1 to k do z := z*p;
s := z
end;
{----------------------------------------------------------------------------------------}
begin
write('Задайте точность '); readln(eps);
n := 1;
repeat
x := s(n, (1 + 1/n));
n := n + 1;
x1 := s(n, (1 + 1/n))
until abs(x1 - x) < eps;
writeln('Предел последовательности равен ', x1:6:t(eps));
writeln('С точностью до ', eps:1:t(eps))
end.
Задание 5
Последовательность un принимает значения
Показать, что un
стремится к некоторому пределу при
(При составлении программы использовать в качестве подпрограммы функцию вычисления степени числа 3 с показателем n).
