Вычисление факториала - PascalABC.NET
Формулировка задачи:
Найти m! + (m+n)!, создав функцию для вычисления факториала произвольного натурального числа.
Решение задачи: «Вычисление факториала»
textual
Листинг программы
function fact(n: integer): BigInteger := n < 2 ? BigInteger.One : Range(2, n).Aggregate(BigInteger.One, (r, i) -> r * i); begin var (m, n) := (ReadlnInteger('M ='), ReadlnInteger('N =')); writeln(fact(m) + fact(m + n)); end.
Объяснение кода листинга программы
В данном коде на языке PascalABC.Net реализована функция вычисления факториала.
- Переменная
n
объявляется как параметр функции fact с типом integer, который представляет собой целое число. - Переменная
m
иn
объявляются внутри блока begin как результат работы функции ReadlnInteger, которая считывает целое число с консоли. - Вычисляется факториал числа
m
с помощью рекурсивного вызова функции fact. - Вычисляется факториал числа
m + n
с помощью рекурсивного вызова функции fact. - Результат вычисления факториала
m
иm + n
выводится на экран с помощью функции writeln. Таким образом, данный код считывает два целых числа с консоли, вычисляет их факториалы и выводит их сумму на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д