又一个看不懂的问题
以下是一个包含过程和参数传递的程序。过程的功能是计算长方形的面积。
CLEAR L=8 W=10 面积=0 @10,10 SAY "矩形的度为:"+STR(L,2) @11,10 SAY "矩形的宽为:"+STR(W,2) DO QMJ WITH L,W,面积 @12,10 SAY "矩形的面积为:"+STR(面积,4) DO QMJ WITH (L),(W),面积 @13,10 SAY "矩形的度为:"+STR (L,2) @14,10 SAY "矩形的宽为:"+STR(W,2) @15,10 SAY "矩形的面积为:"+STR(面积,4) PROCEDURE QMJ PARAMETERS X,Y,A A=X*X X=X+8 Y=Y+10 ENDPROC |