Вычислить (x-1)(x-3)(x-7)...(x-63)/(x-2)(x-4)(x-8)...(x-64) - Turbo Pascal

Формулировка задачи:

Вычислить: (x-1)(x-3)(x-7)...(x-63)/(x-2)(x-4)(x-8)...(x-64)


textual

Код к задаче: «Вычислить (x-1)(x-3)(x-7)...(x-63)/(x-2)(x-4)(x-8)...(x-64) - Turbo Pascal»

program iuly;
 
var x, y: real;
    i, p: integer;
    f: boolean;
 
begin
  write('x = ');
  readln(x);
  y := 1;
  write('y = ');
  f := true;
  p := 1;
  for i := 1 to 6 do
    begin
      p := p * 2;
      if x - p <> 0
        then y := y * (x - p - 1) / (x - p)
        else begin
          writeln('<indeterminacy>');
          f := false;
          break
        end
    end;
  if f then writeln(y);
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 3.923 из 5

Источник