连乘积

and2008

我想实现几个数连乘积，如何用lsp程序实现呢？请高手帮小弟一下。

举个例子来说：

1*2*3*4*5*6*7*8*9*10=4485600

我想这样来实现：选中数字1 2 3 4 5 6 7 8 9 10 ，然后选中任意一个数字x ， 那么x就变成了前面选中数字的连乘积。恳请高手出招......

xuefeng032

用循环语句就可以实现吧！比如“REPEAT”语句

xyp1964

and2008发表于2005-8-31 16:20:00回复：（and2008）连乘积 我想实现几个数连乘积，如何用lsp程序实现呢？请高手帮小弟一下。 举个例子来说： 1*2*3*4*5*6*7*8*9*10=4485600&...

1*2*3*4*5*6*7*8*9*10=4485600

怎么算的能出这个结果？呵呵……

试试szys程序：

dispbbs.asp?BoardID=26&ID=39446

blackhawks

(defun ljx(x)

(setq i 1

lj  1)

(while (< i (1+ x))

(setq lj (* lj i))

(setq i (1+ i))

)

(eval lj)

)

试试这个，输入x，即返回包括x本身在内的连积，不知道是不是你要的

ZZXXQQ

下面程序不知是否能满足楼主的要求。

2. ;明经 ZZXXQQ
3. ;几个数连乘积
4. ;选中数字1 2 3 4 5 6 7 8 9 10，然后选中任意一个数字x，
5. ;那么x就变成了前面选中数字的连乘积。
6. (DEFUN C:PRODUCT (/ ZIN PRU SS I ENT)
7. (SETQ ZIN (GETVAR "DIMZIN"))
8. (SETQ PRU 1.0)
9. (PRINC "\nSelect text(s) : ")
10. (WHILE (SETQ SS (SSGET (LIST (CONS 0 "TEXT"))))
11.   (SETQ I 0)
12.   (REPEAT (SSLENGTH SS)
13.    (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I)
14.          PRU (* (ATOF (CDR (ASSOC 1 ENT))) PRU))
15.   )
16.   (PRINC "\nSelect text(s) : ")
17. )
18. (PRINC "\nSelect a text : ")
19. (IF (SETQ SS (SSGET (LIST (CONS 0  "TEXT")))) (PROGN
20.   (SETQ ENT (ENTGET (SSNAME SS 0))
21.         PRU (* (ATOF (CDR (ASSOC 1 ENT))) PRU)
22.         ENT (SUBST (CONS 1 (RTOS PRU 2 3)) (ASSOC 1 ENT) ENT))
23.   (SETVAR "DIMZIN" 8)
24.   (ENTMOD ENT)
25.   (SETVAR "DIMZIN" ZIN)
26. ))
27. (PRINC)
28. )

复制代码

and2008

多谢楼上的，我加载了你的程序，运行后完全正常。只不过最后一个数字也乘了进去，如果不乘进去就更完美了。也没关系，大不了我最后一个数字都定义为1就是了。在此表示感谢！

ZZXXQQ

and2008发表于2005-9-1 9:11:00多谢楼上的，我加载了你的程序，运行后完全正常。只不过最后一个数字也乘了进去，如果不乘进去就更完美了。也没关系，大不了我最后一个数字都定义为1就是了。在此...

再改一下。

2. ;明经 ZZXXQQ
3. ;几个数连乘积
4. ;选中数字1 2 3 4 5 6 7 8 9 10，然后选中任意一个数字x，
5. ;那么x就变成了前面选中数字的连乘积。
6. (DEFUN C:PRODUCT (/ ZIN PRU SS I ENT)
7. (SETQ ZIN (GETvar "DIMZIN"))
8. (SETQ PRU 1.0)
9. (PRINC "\nSelect text(s) : ")
10. (WHILE (SETQ SS (SSGET (LIST (CONS 0 "TEXT"))))
11.   (SETQ I 0)
12.   (REPEAT (SSLENGTH SS)
13.    (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I)
14.          PRU (* (ATOF (CDR (ASSOC 1 ENT))) PRU))
15.   )
16.   (PRINC "\nSelect text(s) : ")
17. )
18. (PRINC "\nSelect a text : ")
19. (IF (SETQ SS (SSGET (LIST (CONS 0  "TEXT")))) (PROGN
20.   (SETQ ENT (ENTGET (SSNAME SS 0))
21.         ENT (SUBST (CONS 1 (RTOS PRU 2 3)) (ASSOC 1 ENT) ENT))
22.   (SETvar "DIMZIN" 8)
23.   (ENTMOD ENT)
24.   (SETvar "DIMZIN" ZIN)
25. ))
26. (PRINC)
27. )

复制代码

and2008

好了，这个已经是很完美的了。非常感谢黑猫！