Текст подпрограммы и версий
sfg2r_p.zip  sfg2e_p.zip  		Тексты тестовых примеров
tsfg2r_p.zip  tsfg2e_p.zip 

Функция:  SFG2R (модуль SFG2R_p)

Назначение

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

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

Подпрограмма - функция SFG2R вычисляет натуральный логарифм от факториала натурального числа по формуле 

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

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

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

function SFG2R(N :Integer): Real;


   Параметры
N - заданное значение натурального числа, для которого необходимо вычислить  ln N! (тип: целый). 
   Версии
SFG2E - вычисление натурального логарифма от факториала натурального числа в режиме расширенной (Extended) точности; при этом функция SFG2E должна быть описана как Extended. 
   Вызываемые подпрограммы
       SF66R -
       SF66E   		вычисление натурального логарифма от гамма - функции Г (x) вещественного аргумента в режимах одинарной и расширенной (Extended) точности; используются в подпрограммах - функциях SFG2R и SFG2E соответственно. 
   Замечания по использованию:  нет

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

Unit tsfg2r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SFG2R_p;

function tsfg2r: String;

implementation

function tsfg2r: String;
var
N :Integer;
RES :Real;
begin
Result := '';  { результат функции }
N := 5;
RES := SFG2R(N);
Result := Result + Format(' %16.7f ',[RES]) + #$0D#$0A;
UtRes('tsfg2r',Result);  { вывод результатов в файл tsfg2r.res }
exit;
end;

end.


Результат:    RES = 0.478749E + 01