Простейшие циклы.

[margarit]

Помогите решить задачу с помощью оператора цикла for to do. Дано действительное число x. Вычислить: ((x-2)(x-4)...(x-64))/((x-1)(x-3)...(x-63)).

[veniside]

. .

[margarit]

нуль выдаёт

[veniside]

если х целое и меньше 65 и больше 1, то ноль или бесконечность неизбежны

[Alex Cones]

А где в решении Odd или 2n-1? Что-то непонятно, как вы делаете четные\нечетные.

[veniside]

упс, извиняюсь, поспешил.

function calc_another_who_knows_what_who_knows_why(x: double): double;
var
  i: integer;
  v1, v2: double;
begin
  v1 := 1;
  v2 := 1;
  for i := 1 to 32 do begin
    //
    v1 := v1 * (x - i shl 1 + 0);
    v2 := v2 * (x - i shl 1 + 1);
  end;
  //
  if (0 <> v2) then
    result := v1 / v2
  else
    result := INF; // positive or negative infinity
end;