Question

Циклические алгоритмы с предусловием :Дано натуральное число n. Вычислить P=(1-1/2)(1-1/3)...(1-1/n), где n>2.На языке Паскаль Помогите пожалуйста

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var p := 1 - 1 / 2;

 var i := 3;

 while i <= n do

 begin

   p *= 1 - 1 / i;

   i += 1

 end;

 Println(p)

end.

Объяснение:

Хороший способ "страдать фигней", программируя подобные задачи.

Ведь понятно, что (1 - 1/2) (1 - 1/3) ( 1 - 1/4) ... (1 - 1/n) всегда равно 1/n

В самом деле? 1/2 × 2/3 × 3/4 × 4/5 × ... (n-1)/n = 1/n, потому что соседние члены взпимно сокращаются.

Правда, задав достаточно большое n, можно убедиться, что арифметика вещественных чисел небезупречна в точности. В приведенном примере для n = 2 миллиарда получаем погрешность уже в 13-й цифре.

Answer 2

Конечно, вот пример алгоритма на языке Pascal, который вычисляет значение P=(1-1/2)(1-1/3)...(1-1/n) для заданного натурального числа n, где n > 2:

pascalCopy code
program CalculateProduct;
var
  n: integer;
  P: real;
  i: integer;
begin
  writeln('Введите натуральное число n (n > 2): ');
  readln(n);

  if n <= 2 then
  begin
    writeln('Число n должно быть больше 2.');
    exit;
  end;

  P := 1.0; // Инициализируем P начальным значением

  for i := 2 to n do
  begin
    P := P * (1 - 1 / i);
  end;

  writeln('Значение P равно: ', P:0:6);
end.

Этот код сначала запрашивает у пользователя натуральное число n. Затем он проверяет, что n больше 2, чтобы убедиться, что вычисления можно выполнить. Затем используется цикл for, чтобы вычислить значение P в соответствии с заданным формулой и выводит результат на экран.