Рассмотрим несколько последовательностей, заданных формулами
k := k + 1
until eps > 1;
t := k
end;
{----------------------------------------------------------------------------------------}
Procedure Root(u, n, eps : real; var
x : real);
var
x1, x2, xn : real;
i : integer;
begin
x1 := (u + n - 1)/2;
repeat
xn := 1;
for i := 1 to trunc(n) - 1 do
xn := xn*x1;
x1 := ((n - 1)*x1 + u/xn)/n;
x2 := ((n - 1)*x1 + u/xn)/n
until abs(x1 - x2) <= eps;
x := x2
end;
{--------------------------------------------------------------------------------------}
begin
write('Введите подкоренное выражение '); readln(u);
write('Введите показатель корня '); readln(n);
write('Введите точность вычисления '); readln(eps);
Root(u, n, eps, x);
writeln('Значение корня равно ', x:8:t(eps));
writeln('С точностью до ', eps:1:t(eps))
end.
Рассмотрим несколько последовательностей, заданных формулами n-го члена:
3)
4)
5)
Нам еще придется на следующем занятии иметь дело с этими последовательностями, но уже при постановке несколько иной задаче. А теперь составим программы вычисления членов последовательности, причем вычисления вести до того члена, который по абсолютной величине станет равным или меньше заданной точности. Выполним это задание для последовательностей 2-й и 4-й.
Пример 4.
Последовательность задана формулой
Вывести на экран члены последовательности до члена, меньшего заданного положительного числа eps. Желательно принять 0 < eps < 1.
Самое важное - это перейти от формулы n-го члена к рекурретному соотношению, которое впоследствии надо использовать при составлении программы.
