阶乘的计算机阶乘

Logo 语言因为是少儿的学习语言，阶乘方法要复杂一些，而且时间较慢，下面是低精度、高精度、统计位数的阶乘算法：
TO DJDJC :N ;低精度阶乘
MAKE S 1;累乘器开始的值是1
FOR I 1 :N[MAKE S :S * :I]
(PR :N [！=] :S)
END
TO GJDJC :N;高精度阶乘
IF :N>=100