Текст подпрограммы и версий ( Фортран )
sfg1r.zip  sfg1d.zip 
Тексты тестовых примеров ( Фортран )
tsfg1r.zip  tsfg1d.zip 
Текст подпрограммы и версий ( Си )
sfg1r_c.zip  sfg1d_c.zip 
Тексты тестовых примеров ( Си )
tsfg1r_c.zip  tsfg1d_c.zip 
Текст подпрограммы и версий ( Паскаль )
sfg1r_p.zip  sfg1e_p.zip 
Тексты тестовых примеров ( Паскаль )
tsfg1r_p.zip  tsfg1e_p.zip 

Функция:  SFG1R

Назначение

Вычисление факториала натурального числа.

Математическое описание

Подпрограмма - функция SFG1R вычисляет факториал натурального числа N! = 1 * 2 * 3 ...* N непосредственным умножением, если N ≤ 32, и по формуле

                          N!  =  e ln Г(N+1) ,  

если N > 32, где Г (N + 1) - значение гамма - функции от N + 1. Значение 0! полагается равным 1 .

Использование

    FUNCTION  SFG1R (N) 

Параметры

N - заданное значение натурального числа, для которого необходимо вычислить факториал (тип: целый).

Версии

SFG1D - вычисление факториала натурального числа в режиме удвоенной точности; при этом функция SFG1D должна быть описана как DOUBLE PRECISION  FUNCTION.

Вызываемые подпрограммы

       SF66R -
       SF66D  
вычисление натурального логарифма гамма - функции Г (x) вещественного аргумента в режимах одинарной и удвоенной точности; используются в подпрограммах - функциях SFG1R и SFG1D соответственно.

Замечания по использованию

 

В подпрограммах - функциях SFG1R и SFG1D возможны остановы по переполнению арифметического устройства, если требуемое значение N! превосходит максимальное представимое число на используемой машине.

Пример использования

       N = 5 
       RES = SFG1R(N) 

Результат:     RES = 120