Дано действительное x. Вычислить.

[Pascaler]

Дано действительное x. Вычислить. [Pascal]

(x-1)(x-3)(x-7)...(x-63)
(x-2)(x-4)(x-8)...(x-64)

Буду благодарен, если будут решения похожиx задач.

[Poma][a]

Если x нецелое - то ничего интересного..
А если оно целое, то начинается самое интересное..
Давайте скажем, мол если в некоторый момент x-smt принимает отрицательное значение, мы подсчитаем - и если что потом умножим ответ на -1.. А пока будем брать натуральные x, больше 64
Вот..
Давайте бахнем так :
опишем некую функцию, которая будет принимать массив, и некое число
Массив будем структурка.. Там будет два поля.. Ключ и значение..
В нашем случае : ключ = простой множитель, значение - кол-во
Давайте делать так..
Будем раскладывать число на множители.. И увеличивать\уменьшать кол-во этих множителей в массиве
Вот.. Можно отсортировать ключи.. и тогда будем искать бинарным поиском.. Правда иногда нужно будет вставлять простые множители.. а это будет у нас неэффективно.. Поэтому этот вопрос спорный.. Можно написать какое-нить дерево.. Чтобы искать, добавлять за log N..
Вот..
А еще чтобы описать одну и туже процедурку для числителя и знаменателя, будем использовать 3-ий параметр, равный +1 или -1
Вот
В конце у нас останутся простые множители.. Мы их красиво перемножим, предварительно возведя в степень, которую будет показывать значение ключа..
Вот..
Ляпота!
Я бы так шпарил

[Pascaler]

Я не совсем понимаю как это все сделать.

[Poma][a]

Вот.. Так должно быть понятнее

[Pascaler]

Program x3;
uses crt;
Var i,p:integer;
    x,s:real;
Begin
clrscr;
writeln('Vvedite dejstvitelnoe x=');
readln(x);
s:=1;
p:=1;
for i:=1 to 6 do
 begin
  p:=p*2;
  s:=s*(x-p-1)/(x-p);
 end;
writeln('s=', s:5:2);
readln;
end.

У меня есть черновик, но где ошибка я не могу найти

[Poma][a]

А.. Ну ясно.. Я малясь перегнул..

Косяк в i := 1 to 6.. Там другое что-то надо

[Pascaler]

Там в цикле 2 возводится в степень от 1 до 6, так 2^6 это и есть 64
Там все в поряде думаю

[Poma][a]

Да. Пардон. Был уверен, что там x-1, x-3, x-5, x-7 и т.д

А почему Вы думаете, что где-то ошибка?

[kta87]

Верно все... вычисляет не правильно?

[Pascaler]

Я попробовал его выполнить, у меня не выходит правильно.