Для заданного N - Pascal

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

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

Для заданного N вычислить корень из(2+ корень2+...+корень2) N раз

Решение задачи: «Для заданного N»

textual
Листинг программы
var
  n, i : integer;  
 
function v(n : integer) : real;
begin
  if n = 1 then v := sqrt(2 + sqrt(2)) else
  v := sqrt(2 + v(n -1))
end;
 
begin  
  write('N = ');
  readln(n);
  writeln(v(n):6:2);
  readln
end.

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

В данном коде:

  1. Объявлены две переменные: n и i, типа integer (целое число).
  2. Определена функция v(n: integer) : real; (v - функция, n - параметр, real - тип возвращаемого значения).
  3. В функции v(n) реализован рекурсивный алгоритм вычисления числа v с помощью формулы v(n) = sqrt(2 + v(n-1)).
  4. В основной части программы выводится запрос на ввод значения переменной n.
  5. После ввода значения переменной n, вызывается функция v(n) и выводится результат с шагом 2 знака после запятой.
  6. Программа завершается после чтения команды.

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

14   голосов , оценка 3.714 из 5
Похожие ответы