Вычислить (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)

Решение задачи: «Вычислить (x-1)(x-3)(x-7)...(x-63)/(x-2)(x-4)(x-8)...(x-64)»

Листинг программы

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.

Объяснение кода листинга программы

Этот код написан на Turbo Pascal и предназначен для вычисления произведения чисел от x до 63, деленного на произведение чисел от x до 2. В начале программы пользователю предлагается ввести значение переменной x. Затем программа присваивает переменной y значение 1 и устанавливает переменную f в значение true. Переменная p устанавливается в 1. Затем следует цикл for, который выполняется 6 раз. На каждой итерации переменная p удваивается, а затем проверяется, не превышает ли разность между x и p предел, заданный в выражении. Если это условие выполняется, то переменной y присваивается результат вычисления произведения чисел от x до p-1, деленного на разность между x и p. Если же условие не выполняется, то выводится сообщение , переменная f устанавливается в значение false, и цикл прерывается. Если после выполнения цикла переменная f все еще имеет значение true, то выводится значение переменной y. Затем программа завершается, и пользователю предлагается ввести еще один входной параметр.