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

UptoLike

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

Рубрика:

function f(x:real):real;

begin

f:=x*x

end;

function Fn(n:integer;x:real; f:func):real;

begin

if n>1 then

Fn:=f(Fn(n-1,x,f))

else Fn:=f(x)

end;

function Fn1(n:integer;x:real; f:func):real;

var i:integer;

begin

for i:=1 to n do

x:=f(x);

Fn1:=x

end;

begin

write('Введите x ');

readln(x);

writeln(' Обращение к рекурсивной функции:');

writeln(Fn(3,x,f));

writeln(' Обращение к нерекурсивной функции:');

writeln(Fn1(3,x,f))

end.