Numeric Programs

源代码在线查看: bico.txt

软件大小: 1570 K
上传用户: __catcher
关键词: Programs Numeric
下载地址: 免注册下载 普通下载 VIP

相关代码

				Function BICO(N,K:Integer):real;
				begin
				  BICO:=Int(Exp(FACTLN(N)-FACTLN(K)-FACTLN(N-K)));
				end;			

相关资源