0
DECLARE SUB cube(!)
INPUT "Enter  a length";l
CALL cube(l)
END
SUB cube(l)
area=6*l^2
PRINT "Area of a cube",area
END SUB
4

1 回答 1

2

这个片段描述了在 QBasic 中调用一个子程序来获取立方体的面积:

DECLARE SUB Cube(L!)
INPUT "Enter a length"; L!
CALL Cube(L!)
END

SUB Cube (L!)
Area! = 6 * L! ^ 2
PRINT "Area of a cube"; Area!
END SUB

这 !将变量声明为单精度。

于 2016-08-20T00:15:29.527 回答