本帖最后由 作者 于 2008-10-13 10:20:17 编辑
请各位高手指教,程序怎么修改,先谢过了。 (defun c:mdnum() (setq num1 (getreal "\n Enter first number:")) (setq num2 (getreal "\n Enter second number:")) (setq ans(strcase (getstring "enter M or D:"))) (if (= ans "M") (setq x (* num1 num2)) ) (if (= ans "D") (setq x (/ num1 num2)) ) (if (and (/= ans "D") (/= ans "M")) (prompt "sorry!wrong entry, Try again") ) (princ x) (Princ) ) 以下是运行结果,错误出现在第三个方式: 命令: MDNUM Enter first number:10 Enter second number:2 enter M or D:m 20.0 命令:(**********请教这行能否去掉啊)
命令: MDNUM Enter first number:10 Enter second number:2 enter M or D:d 5.0 命令:(***********请教这行能否去掉啊)
命令: MDNUM Enter first number:10 Enter second number:2 enter M or D:h sorry!wrong entry, Try again5.0(******这个5.0怎么去掉啊) |