Дано действительное число x. Вычислить:(x-1)(x-3)(x-7)...(x-63)/(x-2)(x-4)(x-8)...(x-64)pascal abcВот как моя программа выглядит, но она не работает.program fggt;var a,b,o,x:real;beginwriteln('x');readln(x);a:=1;b:=2;while a ме...
Дано действительное число x. Вычислить:
(x-1)(x-3)(x-7)...(x-63)/(x-2)(x-4)(x-8)...(x-64)
pascal abc
Вот как моя программа выглядит, но она не работает.
program fggt;
var a,b,o,x:real;
begin
writeln('x');
readln(x);
a:=1;
b:=2;
while a<=63 do
begin
o:=(x-a)/(x-b);
a:=a-1;
b:=b*2;
end;
writeln('o=',o);
end.
Гость
Ответ(ы) на вопрос:
ГостьНе мудрствуйте лукаво:)
var
x, p, l: real;
i: integer;
begin
p := 1; l := 1;
for i := 1 to 64 do
if (i mod 2 = 1) then
p := p * (x - i) //Числитель
else
l := l * (x - i); //Знаменатель
writeln(p / l);
end.
Не нашли ответ?
Похожие вопросы