Рекуррентное вычисление корня k-й степени

@Kronus250 · Регистрация: 10.09.2012

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

Описать рекурсивную функцию RootK(X, K, N) вещественного типа, находящую приближенное значение корня K-й степени из числа X по формуле:

Y0 = 1, YN+1 = YN − (YN − X/(YN)K−1)/K,

где YN обозначает RootK(X, K, N) при фиксированных X и K. Параметры функции: X (> 0) — вещественное число, K (> 1) и N (> 0) — целые. С помощью функции RootK найти для данного числа X приближенные значения его корня K-й степени при шести данных значениях N.

@Kronus250 · 25.11.2012, 23:26 **[ТС]**

Pascal

Var
X:Real;
K,N:Integer;
Function Power(X:Real;K:Integer):Real;
var
i: Integer;
begin
Power:=1;
for i:=1 to K do Power:=Power*X;
end;
Function RootK(X:Real;K,N:Integer):Real;
begin
if N=0 then RootK:=1
else RootK:=RootK(X,K,N-1) - (RootK(X,K,N-1) - X/Power(RootK(X,K,N-1),(K-1)))/K;
end;
Begin
Write('X K N='); Readln(X,K,N);
Writeln(RootK(X,K,N));
End.

@Kronus250 1 / 1 / 1 Регистрация: 10.09.2012 Сообщений: 34
		1
	Рекуррентное вычисление корня k-й степени 25.09.2012, 23:01. Показов 1982. Ответов 1 Метки нет (Все метки) Описать рекурсивную функцию RootK(X, K, N) вещественного типа, находящую приближенное значение корня K-й степени из числа X по формуле: Y0 = 1, YN+1 = YN − (YN − X/(YN)K−1)/K, где YN обозначает RootK(X, K, N) при фиксированных X и K. Параметры функции: X (> 0) — вещественное число, K (> 1) и N (> 0) — целые. С помощью функции RootK найти для данного числа X приближенные значения его корня K-й степени при шести данных значениях N. 0

	25.11.2012, 23:26

Рекуррентное вычисление корня k-й степени

Решение