Dark_Horset D Dark_Horset Регистрация 28 Июл 2013 Сообщения 89 Репутация 0 Спасибо 0 Монет 0 3 Ноя 2016 #1 Помогите написать программу Вычислить произведение первых N сомножителей: 2/1*2/3*4/3*4/5*6/5*6/7....
Помогите написать программу Вычислить произведение первых N сомножителей: 2/1*2/3*4/3*4/5*6/5*6/7....
BroGamer B BroGamer Регистрация 13 Окт 2013 Сообщения 98 Репутация 0 Спасибо 0 Монет 0 3 Ноя 2016 #2 примерно так function f(x: integer): single; begin if x<1 then result:=1 else if odd(x) then result:=((x+1)/x)*f(x-1) else result:=(x/(x+1))*f(x-1); end; Позитивный голос 0
примерно так function f(x: integer): single; begin if x<1 then result:=1 else if odd(x) then result:=((x+1)/x)*f(x-1) else result:=(x/(x+1))*f(x-1); end;