Lisp编程转换

acadstudent · 发表于 2022-7-5 23:52:59

早上好

我再次需要一个lisp程序的帮助，以将摄氏度转换为华氏度，反之亦然，这些将需要在一个文件中的两个单独的程序中。以下是我需要的输入和输出：

输入：以摄氏度为单位输入温度：x

输出：x.x摄氏度等于xx。x华氏度。

第二个程序将简单地翻转：

输入：输入华氏温度：x

输出：xx。x华氏度相当于x.x摄氏度。

需要的算法是：C=5/9（F-32）
F=（9/5）＋32

到目前为止，我已经将摄氏度设置为C，摄氏度到F的公式由C2F表示：

copy


(defun C:CONV-TEMP ( / )
;; Celsius to Fahrenheit
(setq C (getreal "\nEnter
temperature in Celsius: ")
)
(setq C2F (+ (* (/ 9 5) C) 32)
)
(textscr)
(prompt (strcat (rtos F 2 1) "\ndegrees Celsius is equivalent to"
(rtos C2F 2 1) "degrees Fahrenheit."))
;;Fahrenheit to Celsius
(setq F (getreal "\nEnter
temperature in Fahrenheit: ")
)
(setq F2C (* (- F 32) (/ 5 9))
)
(textscr)
(prompt (strcat (rtos C 2 1) "\ndegrees Fahrenheit
equivalent to" (rtos F2C 2 1) "degrees Celsius."))
);eop

谢谢你的帮助/指导。
Acadstudent学生

MSasu · 发表于 2022-7-6 00:01:41

请查找INITGET和GETKWORD函数。

此外，对于用户输入，是验证其有效性的良好编程实践：

copy

(if ([i]getsomething[/i])
(progn
 ;your processing
)
)

acadstudent · 发表于 2022-7-6 00:07:32

我收到的输入列表格式不正确，但在调试之前，这是你的建议吗？

copy


(defun C:CONV-TEMP ( / )
;; Celsius to Fahrenheit
(initget 1 "Yes No")
(if (="Yes" (getkword "\nConvert
Celsius to Fahrenheit? [Yes/No]: " ))
(setq C (getint (+ 1 2 "\nEnter temperature in Celsius:
")
)
(setq C2F (+ (* (/ 9 5) C) 32)
)
(textscr)
(prompt (strcat (rtos F 2 1) "\ndegrees Celsius is equivalent to"
(rtos C2F 2 1) "degrees Fahrenheit."))
); Close first if statement
(if (="No")
(setq F (getreal "\nEnter temperature in Fahrenheit: ")
)
(setq F2C (* (- F 32) (/ 5 9))
)
(textscr)
(prompt (strcat (rtos C 2 1) "\ndegrees Fahrenheit
equivalent to" (rtos F2C 2 1) "degrees Celsius."))
(princ)
)
);close second if statement
);eop

MSasu · 发表于 2022-7-6 00:15:55

这意味着你有一些不平衡的法兰西斯-请更加注意代码格式，以便能够自己注意到这些问题。
我已经修复了你的代码；请将其与您的进行比较，以了解我的更改（因为我没有对它们全部发表评论）。

copy

(defun C:CONV-TEMP( / [color=red]C C2F F F2C[/color] )   [color=red];localize variables[/color]
(initget 1 "Yes No")
(if (= "Yes" (getkword "\nConvert Celsius to Fahrenheit? [Yes/No]: " ))
 [color=red](progn [/color]
;;  Celsius to Fahrenheit
  (setq C (getint "\nEnter temperature in Celsius: "))   [color=red];why constrain to integer?!?[/color]
  (setq C2F (+ (* (/ 9[color=red].0[/color] 5[color=red].0[/color]) C) 32))                    [color=red];ALWAYS use real values for division[/color]
  (textscr) 
  (prompt (strcat [color=red]"\n"[/color] (rtos C 2 1) " degrees Celsius is equivalent to " (rtos C2F 2 1) " degrees Fahrenheit."))   [color=red];spaces!!![/color]
 [color=red])[/color]; Close if branch
 [color=red](progn[/color]
;;  Fahrenheit to Celsius
  (setq F (getreal "\nEnter temperature in Fahrenheit: "))
  (setq F2C (* (- F 32) (/ 5[color=red].0[/color] 9[color=red].0[/color])))                    [color=red];ALWAYS use real values for division[/color]
  (textscr)
  (prompt (strcat [color=red]"\n"[/color] (rtos F 2 1) " degrees Fahrenheit equivalent to " (rtos F2C 2 1) " degrees Celsius."))   ;spaces!!!
 [color=red])[/color]; Close else branch
)
(princ)
);eop