|
Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://www.srcc.msu.ru/num_anal/lib_na/cat/sf/sfg1r.htm
Дата изменения: Mon Mar 14 11:07:52 2011 Дата индексирования: Mon Feb 4 02:17:34 2013 Кодировка: Windows-1251 |
|
Текст подпрограммы и версий ( Фортран ) 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 вычисляет факториал натурального числа 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