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

[Pascaler]

Сообщение от kta87

у вас в цикле р умножается на 2 в цикле. степени там нет!

Не подскажете, как правильно тогда написать?

[Poma][a]

у вас в цикле р умножается на 2 в цикле. степени там нет!

Все там прально

[kta87]

Сообщение от Poma][a

Все там прально

Да я уже пост поправил... не выспался ))

[Pascaler]

Ладно спасибо что отозвались, оставлю также, по логике правильно вроде.

[Poma][a]

Косяк в том, что Вы не умножаете(и соответственно не делите на x-1(и x-2))

[Pascaler]

Сообщение от Poma][a

Косяк в том, что Вы не умножаете(и соответственно не делите на x-1(и x-2))

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.

Где это поставить по вашему?

[Аватар]

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

А как должно быть правильно и что выдает и для какого x?

[Poma][a]

Для 128 ответ должен быть 1.060766..
Поставить можно в инициализацию s

[Аватар]

s:=s*(x-p+1)/(x-p);