Технология выполнения индивидуальных заданий. Часть 1 - 24 стр.

UptoLike

24
Входные данные: eps константа для оценки величины разности двух
соседних членов последовательности.
Выходные данные: an приближённое значение предела последова-
тельности.
Промежуточные переменные: apпредыдущее значение предела после-
довательности.
Описание алгоритма
В цикле на каждой итерации
запоминается найденное очередное приближённое значение предела,
вычисляется следующее приближённое значение предела,
проверяется абсолютная
величина разности этих двух приближённых
значений предела.
если разность меньше заданного eps, то вычисления завершаются, иначе
вычисления в цикле продолжаются.
Текст программы
program Lim;
var an, ap, eps : real;
begin
writeln(
'введите eps');
readln(eps);
an:=1;
repeat
ap:=an; {запомнить предыдущее значение}
an:=(2-an*an*an)/5 {вычислить следующее значение}
until abs(an-ap) < eps;
writeln(
' предел равен', an:10:7)
end.