FOXPRO下面的程序,根据输入的半径计算圆面积,输入结果中的数据值一律取小数两位显示,试填写完善程序。

来源:百度知道 编辑:UC知道 时间:2024/05/15 07:45:40
SEF TALK OFF
CLEAR
? S=0
?
INPRT [请输入半径R:] TO R
IF _R〈0__________&&1
? R
? [半径为负数,无意义,结束!!!]
ELSE
S=3.1415926*R*R
? S
? [半径为] +__R__________+ [的圆的面积为:] +__________S________&&2,3
ENDIF
RETURN

SET TALK OFF
CLEAR
S=0
?
INPUT [请输入半径R:] TO R
IF R<0
? R
? [半径为负数,无意义,结束!!!]
ELSE
S=3.1415926*R*R
? S
? [半径为] +ALLT(STR(R))+ [的圆的面积为:] +STR(S,6,2)
ENDIF
RETURN