Мета роботи: Отримання навичок реалізації циклічних алгоритмів зневідомим числом повторень циклу, операторів циклу з передумовою іпостусловіем і ітераційних циклічних алгоритмів.
Завдання № 17. Корінь n-ною мірою, з числа межеюпоследовательностікаждий член якої визначається итерацией:
визначити з точністю корінь 2-ий і 4-го ступеня з числа
і число ітерацій, необхідний при цьому.

Блок-схема.
Нехай.

Программа на Turbo Pascal

{***************************** ***********************************)
(Програма: lab6, Лаб. раб. № 7, Вар. 17

)
(Мета: обчислення кореня з заданою похибкою по ітераційного циклу)
(Опис параметрів і змінних:

)
(n, x-змінна циклу, y-значення функції, eps - похибка

)
(Необхідні підпрограми: ні.

)
(Програміст: Позднишев А.А., гр. 316

)
(Перевірив: Барінов В.В., каф. ВПМ

)
(Дата написання: 18 березня 2004

)
{************************************************* ****************}

program lab7;var n, k: integer; eps, d, x, y: real;beginwriteln ( 'Похибка eps ='); read (eps);writeln ( 'Ступінь кореня n ='); read (n);writeln ( 'Подкоренное число x ='); read (x);k: = 0;y: = x; repeat (початок циклу) d: = (x/exp ((n-1) * ln (y))-y)/n; k: = k +1; y: = y + d; until abs (d)