Рекурсия - 21 стр.

UptoLike

Составители:

Рубрика:

program Rec_9;

var x, y, eps: real;

function Sq(x,y,eps: real):real;

begin

if abs(x/y-y)<eps then

Sq:=y

else

Sq:=Sq(x,(x/y+y)/2, eps)

end;

begin

writeln('Введите x и eps');

readln(x,eps);

y:=Sq(x,x/2,eps);

writeln('Квадратный корень=',y:8:4)

end.

Пример 10 Описать рекурсивную функцию, которая n раз вызывает задан-

ную функцию f (x):

fn ( n , x )=f ( f (…f (x) ) )

Для сравнения описать нерекурсивную функцию, n раз вызывающую за-

данную функцию f (x).

Используя рекурсивную и нерекурсивную функции, вычислить значение

( ( x

)

program Rec_10;

type func = function (x:real):real;

var x:real;