Рекурсия

[MaSS93]

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



program rec;
uses crt;
var n,i,x:integer; znach:real; k:integer;
function f(x:real; k:integer; n:integer):real;
var i:integer;
begin
k:=1;
for i:=1 to n do
f:=k*exp((2*n-2)*ln(x))+f(x,-k,n-1);
end;
begin
clrscr;
write('n=');readln(n);
write('x='); readln(x);

znach:=f(x,-k,n);

writeln('Значение =',znach:8:4);
end.