exam4.prg

专业数据库程序

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