Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.02.2019, 01:19   #1
furymaxim
Пользователь
 
Регистрация: 25.11.2017
Сообщений: 28
По умолчанию Вычислить произведение. Рекуррентная формула.

Вычислить произведение, при x = 2. Как найти рекуррентную формула для данного выражения?На любом языке, Pascal,C++,Java

P = Произведение от n=1 до n= 8 ( x/n) ^n

Последний раз редактировалось furymaxim; 16.02.2019 в 01:22.
furymaxim вне форума Ответить с цитированием
Старый 16.02.2019, 11:25   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var n:integer;
    p,x:real;
begin
   x:=2;
   p:=1;
   For n:=1 to 8 do
      p:=p*x/n;
   Writeln(p:5:8);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 16.02.2019, 11:57   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

Код:
function recu (x:extended;arg:integer) : extended;
begin
   if arg=1 then recu := x
   else recu := Power((x/arg),arg) * recu (x,arg-1)
end ;
В Delphi это так. У Паскаля Power нет, см.
https://www.programmersforum.ru/showthread.php?t=3205
newerow1989 - дык оно ж без рекурсии И неправильное к тому же (см. пост #4)
- Куда ты завел нас, Сусанин ?!
- Да ну вас на фиг, я сам заблудился.
©

Последний раз редактировалось digitalis; 16.02.2019 в 12:34.
digitalis вне форума Ответить с цитированием
Старый 16.02.2019, 12:00   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Не сойдет) P(n)=P(n-1)*x/(n^n)
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 16.02.2019, 12:26   #5
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

Кому возражение - мне или Неверову ? Я за базар отвечаю
Код:
procedure TForm1.FormClick(Sender: TObject);
var i : integer ; x,y,tmp,ifl: extended ;
function recu (x:extended;arg:integer) : extended;
begin
   if arg=1 then recu := x
   else recu := Power((x/arg),arg) * recu (x,arg-1)
end ;
//--------------------
begin
  y := recu (2.0,8) ;
  Memo1.Lines.Add (FloatToStr(y)) ;
  y := 2 ; ifl := 2 ; x := 2 ;
  tmp := y ;
  for i := 2 to 8 do
     begin
       tmp := x/ifl ;
       tmp := Ln(tmp)*ifl ;
       ifl := ifl + 1.0 ;
       tmp := Exp(tmp) ;
       y := y * tmp
     end ;
  Memo1.Lines.Add (FloatToStr(y)) ;
end;
Результат : по рек. формуле и прямым расчетом в цикле. Подтверждено Excel' ем
1,23382175369813E-15
1,23382175369813E-15

Последний раз редактировалось digitalis; 16.02.2019 в 12:33.
digitalis вне форума Ответить с цитированием
Старый 16.02.2019, 13:07   #6
furymaxim
Пользователь
 
Регистрация: 25.11.2017
Сообщений: 28
По умолчанию

Cпасибо большое за помощь.
furymaxim вне форума Ответить с цитированием
Старый 16.02.2019, 15:15   #7
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
Кому возражение - мне или Неверову ?
А кто спрашивал - сойдет? Тому и возражение)
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рекуррентная формула Damning Помощь студентам 6 19.01.2015 19:57
Рекуррентная формула(вычислить сумму ряда) в паскале GaJIbI4 Помощь студентам 2 25.12.2011 17:17
Рекуррентная формула topside Помощь студентам 2 29.09.2011 22:07
Рекуррентная формула Paradoxer Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 05.06.2009 20:14
рекуррентная формула redisque Паскаль, Turbo Pascal, PascalABC.NET 2 06.05.2009 21:08