exam4.prg

来自「专业数据库程序」· PRG 代码 · 共 9 行

narea=0
do sub1 with 4,narea
?"圆面积为:",narea
return
procedure sub1
parameters x,y
y=3.1415*x*x
return
endproc