Итерационная формула Ньютона - Turbo Pascal
Формулировка задачи:
Привет, ребята) Помогите, пожалуйста, решить задачу для универа. У меня она ни в какую не получается.
С помощью итерационной формулы Ньютона найти для натурального n корень квадратный по формуле. Взять 7 итераций.
Решение задачи: «Итерационная формула Ньютона»
textual
Листинг программы
uses crt; var n,i:integer; q1,q:real; begin clrscr; repeat write('Введите натуральное число n='); readln(n); until n>0; q1:=1; for i:=1 to 7 do begin q:=(q1+n/q1)/2; q1:=q; end; write('Корень квадратный из ',n,'=',q:0:2); readln end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая используется для работы с консолью.
- Затем объявляются переменные n и i типа integer, а также переменные q1 и q типа real.
- Выводится сообщение для ввода натурального числа n.
- В цикле repeat-until проверяется, что введенное значение n больше 0. Если это условие выполняется, то переменная q1 инициализируется значением 1.
- Затем идет цикл for, который выполняется 7 раз.
- Внутри цикла переменная q вычисляется по формуле (q1+n/q1)/2.
- После этого переменная q1 обновляется, принимая значение q.
- В конце цикла выводится сообщение с найденным корнем квадратным из введенного числа n.
- Конец программы.