SET TALK OFF
F1(3) && 调用函数F1,传递数值3,并显示返回值
RETURN
FUNCTION F1 &&定义函数 F1
PARAMETER R &&用R接受传递数值
S=PI()*R**2 && 计算出S值
RETURN S && 改为 RETURN S,把计算结果返回到调用位置
SET TALK OFF
F1(3) && 调用函数F1,传递数值3,并显示返回值
RETURN
FUNCTION F1 &&定义函数 F1
PARAMETER R &&用R接受传递数值
S=PI()*R**2 && 计算出S值
RETURN S && 改为 RETURN S,把计算结果返回到调用位置