Текст подпрограммы и версий
sfg3r_p.zip  sfg3e_p.zip  		Тексты тестовых примеров
tsfg3r_p.zip  tsfg3e_p.zip 

Функция:  SFG3R (модуль SFG3R_p)

Назначение

Вычисление биномиальных коэффициентов.

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

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

                               N!     
                        -------------       ,
                         K! (N-K)!

где  N и  K - натуральные числа, 0 ≤ K ≤ N, по формуле 

                      e ln N! - ln K! - ln (N-K)!

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

function SFG3R(N :Integer; K :Integer): Real;


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

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

Unit tsfg3r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SFG3R_p;

function tsfg3r: String;

implementation

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

end.


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