您所在位置：主题：[讨论]在QB中有度分秒转换成十进制度的程序
yiyunli
[专家分：0] 发布于 2005-04-23 10:56:00
在QB中有度分秒(DDD。MMSS）转换成十进制度的程序：
10 INPUT "X=";X
20 D=INT(X)
30 M=INT((X-D)*100)
40 S=INT((X-D-M/100)*1000000)/100
50 DEG=D+M/60+S/3600
60 PRINT "DEG=";DEG
70 END
为什么在转换下列数据会出错：1.30 2.30 3.30 25.30 0.01 1.01 2.01 3.01
25.30为25度30分，转换为以度为单位结果应为25.5度，但结果为25.5111误差来源在哪？
错出在哪？求各位高手回答！
10 INPUT "X=";X
20 D=INT(X)
30 M=INT((X-D)*100)
40 S=INT((X-D-M/100)*1000000)/100
50 DEG=D+M/60+S/3600
60 PRINT "DEG=";DEG
70 END
为什么在转换下列数据会出错：1.30 2.30 3.30 25.30 0.01 1.01 2.01 3.01
25.30为25度30分，转换为以度为单位结果应为25.5度，但结果为25.5111误差来源在哪？
错出在哪？求各位高手回答！
