中科新闻网青岛开发区保安招骋:请教高手一个QBASIC中整数保留小数点的问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/13 15:49:46
我编了一个求坐标程序，最后结果输出为X_Y_（_部分为算出的数值）现在结果能出来，比X100Y100，但是，我想改成X100.000Y100.00这样的，哪位高手帮我看一下
INPUT "角度"; A
INPUT "个数"; B
INPUT "直径"; C
CLS
OPEN "F" FOR OUTPUT AS #1
PRINT #1, "角度"; A, ; "个数"; B, ; "直径"; C
PRINT "角度"; A
PRINT "个数"; B
PRINT "直径"; C
CONST PI = 3.14159265358979#
H = 1
WHILE H <= B
D = A + (H - 1) * 360 / B
X = C / 2 * COS((D / 180) * PI)
Y = C / 2 * SIN((D / 180) * PI)
H = H + 1
X = INT(X * 1000 + .5) / 1000
Y = INT(Y * 1000 + .5) / 1000
M$ = LTRIM$(STR$(X))
N$ = LTRIM$(STR$(Y))
M1$ = RTRIM$(M$)
N1$ = RTRIM$(N$)
PRINT "X"; M1$; "Y"; N1$
PRINT #1, "X"; M1$, "Y"; N1$
WEND
CLOSE #1
INPUT "角度"; A
INPUT "个数"; B
INPUT "直径"; C
CLS
OPEN "F" FOR OUTPUT AS #1
PRINT #1, "角度"; A, ; "个数"; B, ; "直径"; C
PRINT "角度"; A
PRINT "个数"; B
PRINT "直径"; C
CONST PI = 3.14159265358979#
H = 1
WHILE H <= B
D = A + (H - 1) * 360 / B
X = C / 2 * COS((D / 180) * PI)
Y = C / 2 * SIN((D / 180) * PI)
H = H + 1
X = INT(X * 1000 + .5) / 1000
Y = INT(Y * 1000 + .5) / 1000
M$ = LTRIM$(STR$(X))
N$ = LTRIM$(STR$(Y))
M1$ = RTRIM$(M$)
N1$ = RTRIM$(N$)
PRINT "X"; M1$; "Y"; N1$
PRINT #1, "X"; M1$, "Y"; N1$
WEND
CLOSE #1
看看Format函数就行了。