vf子程序、函数与过程.pptVIP

例 写出下列程序的输出 set talk off x=1 y=3 do sub with x,(y),5 ? x,y return procedure sub parameter a,b,c a=a+b+c b=a+b-c return clearstore 3 to xstore 5 to ydo plus with x ,y ?x,yprocedure plusparameters a1,a2a1=a1+a2a2=a1+a2endproc 例 写出下列程序的输出 do plus with (x) ,(y)  plus (x , y)  do plus with (x ,y) 错  plus x , y 错 *主程序：MAIN.PRG SET?TALK?OFF CLEAR? S=0 DO?SUB?WITH?10，S ？S RETU  *子程序SUB.PRG PARAMETERS?D1，D2 D1=D1+D1 D2=D1*2 RETURN 作业与实验 1、利用子程序实现 S=A!+B!+C! 2、运行以下程序，写出结果： public x,y procedure p1 procedure p2 x=10