Цитата:
Сообщение от Соёл
Вычислить значение выражения: y=5!/(4^5+35-4!/(4^4+34-3!/(4^3+33-2!/(4^2+32-1/(4+31-x)))))
|
Если предполагается использование рекурсии, то тут помочь не могу - никогда таких функций не составлял. Но если можно без рекурсии, то так:
Код:
VAR
x:Real;
n_4, n_30, n_f, i:Word;
BEGIN
Write('x= ');
Readln(x);
n_4:=4;
n_30:=31;
n_f:=1;
x:=1/(n_4+n_30-x);
For i:=1 to 4 do
begin
n_f:=n_f*(i+1);
n_30:=n_30+1;
n_4:=n_4*4;
x:=n_f/(n_4+n_30-x);
end;
Writeln('y= ',x:12:10);
Readln
END.