pascal中有没有求阶乘的函数？

显示全部楼层 · 2012-1-21 12:14:46

没有直接函数，但是也没必要有，因为：function f(n:longint):longint;//计算阶层的函数f()如 3!在程序中为 f(3)var i:longint;begin
f:=1;
for i:=1 to n do f:=f*i; //累乘从1到n 即 n!end;话说楼主，这种小问题即使有函数也没必要背压...

千问 · 2012-1-21 12:14:46

没有，写高精吧近似公式斯特林公式快速高精乘法FFT（快速傅里叶）...

千问 · 2012-1-21 12:14:46

function q(n:longint):qword;var i:longint;begin q:=1; for i:=2 to n do q:q*i;end;能算阶乘！...

千问 · 2012-1-21 12:14:46

没有。绝大多数的程序语言都没有自带阶乘函数，自己写一个吧~...