软件工程大题作业

附加题：1、对下列子程序进行调试： procedure example(y,z: real; var x: real) begin if (y>1) and (z=0) then x:=x/y;