bacichuandai.txt

经纬度换带,BASIC语言编的,网上找到的大家共享一下

5cLS

10 print″请依次输入所求地点经度的度、分、秒，中间用逗号隔开，″

20 input″东经为正、西经为负：″；a,b,c

30 x = a + b/60 + c/3600 + 1 + 1000000

40 If x ＜ - 180 or x ＞ 180 then print″输入错误，请重新输入…！″：cls:goto 10

50 print″请依次输入所求地点纬度的度、分、秒，中间用逗号隔开，″

60 input″北纬为正，南纬为负：″；d,e,f

70 y = d + e/60 + f/3600+1/1000000

80 if y ＜ - 90 or y ＞ 90 then print″输入错误，请重新输入…！″：cls : goto 50

90 a = x/20 + 9 : b = int (a)

100 L $ = chr $ ( B + 65 ) : c = y/10 + 9 : D = int (c)

110 L $ = L $ + chr $ ( D + 65 ) : a = ( a ? b ) * 10 : B = int (a)

120 L $ = L $ + chr $ ( B + 48 ) : c = ( c ? d ) * 10 : = int (c)

130 L $ = L $ + chr $ ( D + 48 )

　140 b = int(( a ? b )*24):L $ = L $ + chr $( B + 65 )

150 d = int(( c ? d )*24):L $ = L $ + chr $( D + 65 )

160 print″″

170 print″************************** ″

180 print″你所求地点的网格位置是：″；L $

190 print″************************* ″

200 end