поседовательность чисел как задать формулой?, Закономерность Опции

[dff]

Уравнение:
S:=1-(1/2)*x-(1*3/2*4)x^2+(1*3*5/2*4*6)*x^3-(1*3*5*7/2*4*6*8)x^4 ...

Планирую задать перемену знака через оператор odd перемену х через х^(i-1)
а вот поседовательность чисел как задать формулой?

1/2 , 1*3/2*4 , 1*3*5/2*4*6 , 1*3*5*7/2*4*6*8 ...
ну или
1/2 , 3/8 , 15/48 , 105/384 ...

[volvo]

а вот поседовательность чисел как задать формулой?

Можно - вот так:

var
   i, j : integer;
   nom, denom : integer;

begin
   writeln(1/2 :6 :4, ' ',
           (1*3)/(2*4) :6 :4 , ' ',
           (1*3*5)/(2*4*6) :6 :4, ' ',
           (1*3*5*7)/(2*4*6*8) :6 :4); // Это для проверки, чтоб было с чем сравнивать

   for i := 1 to 4 do
   begin
     nom := 1; denom := 1;
     for j := 1 to 2 * i do
       if odd (j) then
         nom := nom * j
       else
         denom := denom * j;

     writeln(nom/denom :6 :4); // А это - вычисленные значения
   end;
end.

, а можно - чуть-чуть по-другому сделать, использовать 2 цикла while с шагом = 2, чтоб избавиться от if-а. Попробуй сделать с двумя while-ами самостоятельно, если не получится - поможем...

P.S. В поиске, кстати, можно найти много интересного. И разложение вот в такой ряд - тоже. (Это разложение (1 - X)^-1/2, я ничего не путаю?)

[dff]

P.S. В поиске, кстати, можно найти много интересного. И разложение вот в такой ряд - тоже. (Это разложение (1 - X)^-1/2, я ничего не путаю?)

Я не все понял.Посижу посмотрю.
А вообще (1 - X)^-1/2 откуда это? уравнение то
S:=1-(1/2)*x-(1*3/2*4)x^2+(1*3*5/2*4*6)*x^3-(1*3*5*7/2*4*6*8)x^4 ...