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

Соёл · 29.05.2011, 22:34

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

Vladimir_S · 30.05.2011, 10:50

Цитата:

Сообщение от Соёл

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

29.05.2011, 22:34	#1 (permalink)
Соёл Новичок Регистрация: 29.05.2011 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите, пожалуйста, с паскалем Составление, ввод, трансляция и выполнение программ циклической структуры Вычислить значение выражения: y=5!/(4^5+35-4!/(4^4+34-3!/(4^3+33-2!/(4^2+32-1/(4+31-x)))))

29.05.2011, 22:34
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Похожие темы на форуме уже были, рекомендую к прочтению Помогите с Паскалем Помогите с Паскалем

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070