易语言温度单位换算:摄氏度与华氏度、开氏度、兰氏度、列氏度转换 (返回双精度小数型)

CNWTEPRG

1. .版本 2
   
2. 
   
3. .程序集 程序集1, , , 非摄氏度转换 比如:华氏度到开氏度 等 需要转换成摄氏度再转换过去
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 
   
8. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 _临时子程序
    
12. 
    
13. 输出调试文本 (摄氏度到华氏度 (100))
    
14. 输出调试文本 (华氏度到摄氏度 (100))
    
15. 输出调试文本 (摄氏度到开氏度 (100))
    
16. 输出调试文本 (开氏度到摄氏度 (100))
    
17. 输出调试文本 (摄氏度到兰氏度 (100))
    
18. 输出调试文本 (兰氏度到摄氏度 (100))
    
19. 输出调试文本 (摄氏度到列氏度 (100))
    
20. 输出调试文本 (列氏度到摄氏度 (100))
    
21. 
    
22. 
    
23. .子程序 摄氏度到华氏度, 双精度小数型, 公开
    
24. .参数 摄氏度, 双精度小数型
    
25. 
    
26. 返回 (32 ＋ 摄氏度 × 1.8)
    
27. 
    
28. .子程序 华氏度到摄氏度, 双精度小数型, 公开
    
29. .参数 华氏度, 双精度小数型
    
30. 
    
31. 返回 ((华氏度 － 32) ÷ 1.8)
    
32. 
    
33. .子程序 摄氏度到开氏度, 双精度小数型, 公开
    
34. .参数 摄氏度, 双精度小数型
    
35. 
    
36. 返回 (摄氏度 ＋ 273.15)
    
37. 
    
38. .子程序 开氏度到摄氏度, 双精度小数型, 公开
    
39. .参数 开氏度, 双精度小数型
    
40. 
    
41. 返回 (开氏度 － 273.15)
    
42. 
    
43. .子程序 摄氏度到兰氏度, 双精度小数型, 公开
    
44. .参数 摄氏度, 双精度小数型
    
45. 
    
46. 返回 ((摄氏度 ＋ 273.15) × 1.8)
    
47. 
    
48. .子程序 兰氏度到摄氏度, 双精度小数型, 公开
    
49. .参数 兰氏度, 双精度小数型
    
50. 
    
51. 返回 (兰氏度 ÷ 1.8 － 273.15)
    
52. 
    
53. .子程序 摄氏度到列氏度, 双精度小数型, 公开
    
54. .参数 摄氏度, 双精度小数型
    
55. 
    
56. 返回 (摄氏度 ÷ 1.25)
    
57. 
    
58. .子程序 列氏度到摄氏度, 双精度小数型, 公开
    
59. .参数 列氏度, 双精度小数型
    
60. 
    
61. 返回 (列氏度 × 1.25)
    

复制代码