8-9.txt

超市进销存管理系统 学生学籍管理系统 1、把源代码解压到适当的目录下（教材讲到的目录）。 2、1-9章 打开对应章节例子代码复制到命令窗口

【例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