Вычисление факториала - 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 реализована функция вычисления факториала.

  1. Переменная n объявляется как параметр функции fact с типом integer, который представляет собой целое число.
  2. Переменная m и n объявляются внутри блока begin как результат работы функции ReadlnInteger, которая считывает целое число с консоли.
  3. Вычисляется факториал числа m с помощью рекурсивного вызова функции fact.
  4. Вычисляется факториал числа m + n с помощью рекурсивного вызова функции fact.
  5. Результат вычисления факториала m и m + n выводится на экран с помощью функции writeln. Таким образом, данный код считывает два целых числа с консоли, вычисляет их факториалы и выводит их сумму на экран.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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