Вычислить значение выражения - Pascal (251468)

Узнай цену своей работы

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

Дано натуральное число n. Вычислить: не используя процедур и функций

Решение задачи: «Вычислить значение выражения»

textual
Листинг программы
var
  n, i, k: integer;
  p, s, f: real;
 
begin
  repeat
    write('n > 0;  n = ');
    readln(n)
  until n > 0;
  p := 1;
  f := 1;
  for i := 1 to n do
    begin
      f := f / i;
      s := f;
      for k := i to n do s := s + 1 / k / k / k;
      p := p * s
    end;
  p := p * p;
  write('P = ', p);
  readln
end.

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

  1. Переменные n, i, k инициализируются типом integer.
  2. Переменные p, s, f инициализируются типом real.
  3. В цикле repeat-until пользователю предлагается ввести положительное число n.
  4. Если n не является положительным числом, то цикл продолжается до тех пор, пока не будет введено положительное число.
  5. Инициализируются переменные p и f равными 1.
  6. В цикле for перебираются числа от 1 до n.
  7. Внутри цикла вычисляется значение f как f / i.
  8. Внутри цикла вычисляется значение s как сумма f и 1/k/k/k.
  9. Значение p умножается на s.
  10. После цикла вычисляется значение p как p * p.
  11. Выводится значение p и программа ожидает ввода.

Оцени полезность:

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