Помогите, пожалуйста, с паскалем

[Соёл]

Помогите, пожалуйста, с паскалем

Составление, ввод, трансляция и выполнение программ циклической структуры
Вычислить значение выражения:
y=5!/(4^5+35-4!/(4^4+34-3!/(4^3+33-2!/(4^2+32-1/(4+31-x)))))

 

[Vladimir_S]

Вычислить значение выражения: 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.