Условие задачи
Реализовать алгоритм решения следующей задачи
Дано действительное а > 0.
Числовая последовательность х0, х1... образована по закону
Найти первый член xn, для которого
где ε - заданный малый параметр (0 < ε << 1).
Ответ
Текст программы Pascal
program Program1;var // x0 - x(n) // x1 - x(n+1) a, x0, x1, eps: Real;begin a := ReadReal('Введите число a: '); repeat eps := ReadReal('Введите eps (eps 0 and eps 1 ): '); until (eps 0) and (eps 1); //читаем eps пока не попадём в интервал (0;1) if (a = 1) t...
Потяни
