[LISP程序]：求助

checkily

用vlisp设一个键，使它可以求得小于N的奇数和.谢谢

newer

最初由 checkily 发布
[B]用vlisp设一个键，使它可以求得小于N的奇数和.谢谢 [/B]

程序应该好写，但是设一个键是什么意思？

checkily

可以提供代码我参考吗？我不太会啊。至于那个键，先不用理它。谢谢！

aeo

数求和的基本算法

参考下, VAL 是你要求的上限,下面程序求小于VAL的所有的奇数的和的基本算法,VAL>1

;包括val(如val为奇 val>=1)

2. <normalfont>
   
3. (setq sum -1 all 0)
   
4. (while (< sum val)
   
5.    (setq sum (+ sum 2) all(+ all sum) )
   
6. )
   
7. </normalfont>
   

<normalfont><br /> (setq sum -1 all 0)<br /> (while (< sum val)<br />    (setq sum (+ sum 2) all(+ all sum) )<br /> )<br /> </normalfont><br />

checkily

谢谢！但是我好笨，刚学什么都不会。请多多指教。