在Qbasic中,如何将厘米数显示为小数点后一位。73.53而不是73.53315
经典QBasic没有圆形功能,因此您需要自带在Qbasic中,如何将厘米数显示为小数点后一位。73.53而不是73.53315,qbasic,Qbasic,经典QBasic没有圆形功能,因此您需要自带 CLS REM Declare Varibles DIM MILES, YARDS, FEET, INCHES AS DOUBLE DIM KM, METER, TINCH AS DOUBLE DIM CM, TMETER AS DOUBLE REM INPUT THE DATA INPUT "ENTER THE DISTANCE IN MILES", MILES INPUT "ENTER THE DISTANCE IN YARDS", YARDS
CLS
REM Declare Varibles
DIM MILES, YARDS, FEET, INCHES AS DOUBLE
DIM KM, METER, TINCH AS DOUBLE
DIM CM, TMETER AS DOUBLE
REM INPUT THE DATA
INPUT "ENTER THE DISTANCE IN MILES", MILES
INPUT "ENTER THE DISTANCE IN YARDS", YARDS
INPUT "ENTER THE DISTANCE IN FEET", FEET
INPUT "ENTER THE DISTANCE IN INCHES", INCHES
REM CONVERT INTO TOTAL INCHES
TINCH = 63360 * MILES + 36 * YARDS + 12 * FEET + INCHES
REM CONVERT INTO TOTAL METER
TMETER = TINCH / 39.37
REM CONVERT TO KILOMETER
KM = INT(TMETER / 1000)
REM CONVERT TO METER
METER = INT(TMETER - KM * 1000)
REM CONVERT TO CENTIMETER
CM = (TMETER - (KM * 1000) - METER) * 100
REM PRINT DETAILS
PRINT "KILOMETER", KM
PRINT "METER", METER
PRINT "CENTIMETER", CM;
借用了,如果我没记错,您可以使用PRINT-USING语句
FUNCTION round# (num AS DOUBLE, dp AS INTEGER)
'WARNING: USE "#" at the end of constant values,
'or else you will get rounding errors:
' "num = .45" >> "num = .449999988079071
' "num = .45#" >> "num = .45"
DIM exp1 AS LONG, num2 AS LONG
exp1 = 10 ^ dp: num2 = num * exp1: round# = num2 / exp1
PRINT num
END FUNCTION
“#”-表示数字,
“”-表示小数点的位置
单击此处可获得更详细的解释。您的示例有2位小数位…请阅读,或者使用round()(如果可用)(QB64.org),因为这个问题尚未得到回答,为了以后能够获得这些信息,我发布了您需要的相关函数。
cm_number = 73.53315
PRINT USING "##.##"; cm_number
OUTPUT: 73.53