Итерационная формула Ньютона - 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.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая используется для работы с консолью.
  2. Затем объявляются переменные n и i типа integer, а также переменные q1 и q типа real.
  3. Выводится сообщение для ввода натурального числа n.
  4. В цикле repeat-until проверяется, что введенное значение n больше 0. Если это условие выполняется, то переменная q1 инициализируется значением 1.
  5. Затем идет цикл for, который выполняется 7 раз.
  6. Внутри цикла переменная q вычисляется по формуле (q1+n/q1)/2.
  7. После этого переменная q1 обновляется, принимая значение q.
  8. В конце цикла выводится сообщение с найденным корнем квадратным из введенного числа n.
  9. Конец программы.

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы