Рекурсии. Метод Ньютона

@andrew1990 · Регистрация: 18.08.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте! Помогите пожалуйста решить следующую задачку. Необходимо составить программку извлечения квадратного корня из числа (положительного целого) по методу Ньютона, используя рекурсию. Я смог без рекурсии сделать, а с рекурсией никак не получается. Ниже приведу текст программы, которая у меня получилась:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
    function y(n:integer;eps:real):real;
var
x1,x2:real;
begin
x1:= n/2;
x2 := 0;
repeat
  x2 := (x1+ n/x1)/2;
  x1:= x2;
until abs(x1-x2)< eps;
 y:=x1;
 end;
  var
  e:real;
  x:integer;
  a:real;
  begin
  write ('Введите погрешность вычисления:');
    readln (e);
    write ('Введите подкоренное число:');
    readln (x);
    a:=y(x,e);
    writeln ('Значение корня равно:',a);
end.

Помогите пожалуйста!!!! Заранее благодарен)))

@Puporev · 18.08.2010, 18:22

Сообщение от andrew1990

Я смог без рекурсии сделать,

А ничего что корень из 16=5, а корень из 25=7,5?

@andrew1990 · 18.08.2010, 18:31 **[ТС]**

У меня она нормально считает. Например, введите погрешность 0.001, а подкоренное выражение 15. Ответ получается 4.75)))

Добавлено через 1 минуту
Если я неправ, то подскажите пожалуйста как надо, никак у меня не получается((((((

@Puporev · 18.08.2010, 18:33

andrew1990, 4,75^2=22.56

Добавлено через 1 минуту
без рекурсии

Pascal
1
2
3
4
5
6
7
8
9
10
11
function y(n:integer;eps:real):real;
var x1,x2:real;
begin
x1:=n/2;
x2:=(x1+n/x1)/2;
repeat
  x1:=x2;
  x2:=(x1+n/x1)/2;
until abs(x1-x2)<eps;
y:=x2;
end;

@andrew1990 · 18.08.2010, 18:38 **[ТС]**

А с рекурсией не подскажите как?

@Puporev · 18.08.2010, 19:49

Не знаю.

Добавлено через 1 час 10 минут
Посмотрите
http://www.ict.edu.ru/ft/004285/rsu630.pdf
стр.20 (22).
Вот код, проверил.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
function Y(n,m,eps:real):real;
begin
if abs(n/m-m)<eps then Y:=m
else Y:=Y(n,(n/m+m)/2,eps);
end;
var  e:real;
     x:integer;{непонятно почему в условии целое число? Нужно просто положительное}
     a:real;
begin
clrscr;
write ('Введите погрешность вычисления:');
readln (e);
write ('Введите подкоренное число:');
readln (x);
a:=y(x,x/2,e);
writeln ('Значение корня равно:',a:0:2);
readln
end.

@andrew1990 · 18.08.2010, 22:49 **[ТС]**

СПАСИБО ОГРОМНОЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@andrew1990 0 / 0 / 0 Регистрация: 18.08.2010 Сообщений: 4
	18.08.2010, 18:31 [ТС]
	У меня она нормально считает. Например, введите погрешность 0.001, а подкоренное выражение 15. Ответ получается 4.75))) Добавлено через 1 минуту Если я неправ, то подскажите пожалуйста как надо, никак у меня не получается(((((( 0

@andrew1990 0 / 0 / 0 Регистрация: 18.08.2010 Сообщений: 4
	18.08.2010, 18:38 [ТС]
	А с рекурсией не подскажите как? 0

@andrew1990 0 / 0 / 0 Регистрация: 18.08.2010 Сообщений: 4
	18.08.2010, 22:49 [ТС]
	СПАСИБО ОГРОМНОЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!! 0