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