8-9.txt

来自「超市进销存管理系统 学生学籍管理系统 1、把源代码解压到适当的目录下（教材讲」· 文本 代码 · 共 13 行

【例8.9】编写带参数的过程SUB1，用于计算圆的面积。
*程序名称：EXAM8-9.PRG
*功能说明：带参数的过程示例
nAREA=0
DO SUB1 WITH 5,nAREA  &&带参数的过程调用
? "圆面积为:",nAREA
RETURN
      PROCEDURE SUB1
PARAMETERS x,y
y=3.1415*x*x
RETURN
ENDPROC