这个是用循环吗?该怎么判断

ysq101 · 发表于 2013-6-16 20:04:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(initget 6)
(setq h1 (getreal "\n请输入唧嘴总高度")
h2 (getreal "\n请输入唧嘴底部车空深度"))
(IF (>= 0 (- h1 h2));判断 H1是否大于或等于H2
(alert "车空深度不可能大于总高度吧!!是不是输入错了?")
)
;如H1大于或等于H2 如何让程序返回到第二行(setq h1 (getreal)重新输入H1
的值?

wowan1314 · 发表于 2013-6-16 20:07:28

这个简单，我知道。

(SETQ LOOP T)
(WHILE LOOP
(setq h1 (getreal "\n请输入唧嘴总高度")
h2 (getreal "\n请输入唧嘴底部车空深度"))
(IF (>= 0 (- h1 h2));判断 H1是否大于或等于H2
(alert "车空深度不可能大于总高度吧!!是不是输入错了?")
(SETQ LOOP NIL)
)
)

牢固 · 发表于 2013-6-16 20:07:56

(while (>= h1 h2)
(princ "车空深度不可能大于总高度吧!!是不是输入错了?")
(initget 6)
(setq h1 (getreal "\n请输入唧嘴总高度"))
)

ysq101 · 发表于 2013-6-16 20:09:32

wowan1314 发表于 2013-6-16 20:07
这个简单，我知道。

后面为什么要设LOOP为空呢?是为了跳出循环吗??

wowan1314 · 发表于 2013-6-16 20:14:32

本帖最后由 wowan1314 于 2013-6-16 20:15 编辑

ysq101 发表于 2013-6-16 20:09
后面为什么要设LOOP为空呢?是为了跳出循环吗??

对呀！人家都输入正确了，你还不让人跳出循环吗？你太坏了{:soso_e151:}

ysq101 · 发表于 2013-6-16 20:23:41

wowan1314 发表于 2013-6-16 20:14
对呀！人家都输入正确了，你还不让人跳出循环吗？你太坏了

你测试过了吗??还是不行啊

laibinwu · 发表于 2013-6-16 20:52:38

本帖最后由 laibinwu 于 2013-6-16 21:00 编辑

G版的代码最简单

(initget 6)
(setq h1 (getreal "\n请输入唧嘴总高度")
h2 (getreal "\n请输入唧嘴底部车空深度")
)
(while (>= h2 h1)
(alert "车空深度不可能大于总高度吧!!是不是输入错了?")
(setq h2 (getreal "\n请输入唧嘴底部车空深度"))
)

ysq101 · 发表于 2013-6-16 22:52:35

也怪我没说明白,其实如果H1大于H2的话,证明输入错了..H1和H2都需要重新输入的...

ysq101 · 发表于 2013-6-16 22:53:54

laibinwu 发表于 2013-6-16 20:52
G版的代码最简单

看起来简单...新手表示看不到是如何跳出循环的......

ll_j · 发表于 2013-6-17 15:30:39

这类问题一般有两种方法循环：
1.直接条件循环。设定循环条件，满足条件（这里是不满足输入要求）则循环，否则退出循环继续。

(setq h1 0.0 h2 1.0) ;预设while循环条件
(while (< (- h1 h2) 0.0) ;如果h1<h2，循环
(initget 7)
(setq h1 (getdist "\n请输入唧嘴总高度: ") ;输入高度距离等一般用getdist，可以键盘输入，也可以鼠标输入
h2 (getdist "\n请输入唧嘴底部车空深度: ")
)
(if (< (- h1 h2) 0.0)
(princ "\n车空深度不可能大于总高度吧!!是不是输入错了?") ;这是无关紧要的，只是提示
)
)

2.自身调用完成循环。将循环体做成函数，需要时自身调用，达到循环目的。
需要说明的是，这种循环是利用了递归机制，如果每次调用都可能消耗一部分堆栈空间，如果循环体的有不良结构，可能会造成程序的堆栈溢出，使用时要慎重。
本例的循环体没有需要保存的内容，故基本不占用堆栈空间。

(defun inp() ;定义一个输入函数
(initget 7)
(setq h1 (getdist "\n请输入唧嘴总高度: ")
h2 (getdist "\n请输入唧嘴底部车空深度: ")
)
(if (< (- h1 h2) 0.0)
(progn
(princ "\n车空深度不可能大于总高度吧!!是不是输入错了?")
(inp) ;不满足条件时调用本身
)
)
)

ysq101 · 发表于 2013-6-17 18:35:04

ll_j 发表于 2013-6-17 15:30
这类问题一般有两种方法循环：
1.直接条件循环。设定循环条件，满足条件（这里是不满足输入要求）则循环， ...

先汗一个先:L 解释也超级详细。。。
感觉还是第一种方试通用。。。更适合初学者.....
关于GETDIST方面。。。我这个LISP作为一个计算器使用。所以getreal就足够了
感谢你的热心回答了！！如果我没记错你的ID的话。。。你应该就是别人所称的长老是吧？
想不到我这新手也能等到你这大神回答，万分感谢。。。当然上面几位也算是高手中的高手了。。感谢了~~
我的问题解决了~~~~~~

账号		自动登录	找回密码
密码			立即注册

[求助] 这个是用循环吗?该怎么判断

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评

点评

点评

点评

点评

评分