[原创]做数学软件的朋友

cc90042938

谢谢,可以考虑.

coolmoon

朋友，希望你能在你的basic数学工具集里加入排列组合的公式：

送你个阶乘的模块源码：

0 GOTO 80:RAM 次下面是运算模块输入：N开始， M结束。得到：S底数，E指数
10 S=1:E=0:FOR IIC=N TO M
20 S=S*IICOKE 1025,0
30 IF INT((IIC-N)/(M/N)*160)=XLI THEN 35 ELSE 40
35 XLI=XLI+1RAW XLI,79
40 IF S/10^9>1 THEN 45 ELSE 50
45 S=S/10^9:E=E+9
50 NEXT: BEEP:FOR IIC=1 TO 9
60 IF S/10^IIC<1 THEN 65 ELSE 70
65 S=S/10^(IIC-1):E=E+IIC-1 :GOTO 75
70 NEXT
75 RETURN:RAM 以上是运算模块 使用变量：S,E,M,N,IIC,XLI
80 RAM 此下面为调用实例
85 INPUT "HOW! ?";H
90 M=H:N=1
100 GOSUB 10
110 PRINT S;:IF E>0 THEN PRINT CHR$(13);E

不对之处请指正
[em10]

[此贴子已经被作者于2005-3-1 18:01:01编辑过]