Maple6-ch5.2-程序设计-不练.docVIP

§5.4 程序调试器debugger 很多时候程序出现的结果并不是我们希望的，这时需要对程序进行调试。一般是先进行人工源代码的检查；再是应用调试器(debugger)。 首先来调试求完数的程序： 例：一个数如果恰好等于它的因子之和，这个数称为“完数”。如6的因子为1、2、3，而6=1+2+3。找出其1000之内的所有完数，并按下面格式输出其因子： 6 ist factors are 1,2,3. restart; compute:=proc() local i,j,k,m,a,sum; for m from 1 to 1000 do k=trunc(sqrt(m)); a[1]:=1;j:=1;sum:=1; for i from 2 to k do if (modp(m,i)=0) then j:=j+1; a[j]:=i; sum:=sum+i; end if; end do; if (sum=m) then printf(\n%d its factors are ,m); for i from 1 to j do printf(%d,,a[i]); end do; end if; end do; end; 我们没有得到想要的结果，说明程序中包含有错误，但直接看源程序又很难找出错误，下面我们边介绍调试的方法边详细介绍各个调试函数的功能和具体使用方法。 5.4.1 显示程序（showstat） 调试程序时最常用的是在程序中设置断点，Maple提供了一个利用语句和逻辑表达式来设置断点的方法，但很不幸的是，Maple语句跟我们源程序中的行号并不是一一对应，为了得到语句号我们得首先用Maple提供的显示语句的函数来显示整个源程序，这个函数就是showstat,它的函数表达式如下： showstat(procName); showstat(procName, statRange) 第一参数是我们等显示语句的过程名，第二个参数用来设定需要显示语句号的范围，是可选参数，缺省时显示整个过程的语句号，下面来看上一程序的语句号： showstat(compute); compute := proc() local i, j, k, m, a, sum; 1 for m to 1000 do 2 k = trunc(sqrt(m)); 3 a[1] := 1; 4 j := 1; 5 sum := 1; 6 for i from 2 to k do 7 if modp(m,i) = 0 then 8 j := j+1; 9 a[j] := i; 10 sum := sum+i end if end do; 11 if sum = m then 12 printf(\n%d its factors are ,m); 13 for i to j do 14 printf(%d,,a[i]) end do end if end do end proc 从上面可以看出，语句号和源程序的实际行号确实不一样，假如我们并不需要所有的语句号，也可以只显示一部分，比如语句7到语句10： showstat(compute,7..10); compute := proc() local i, j, k, m, a, sum; ... 7 if modp(m,i) = 0 then 8 j := j+1; 9 a[j] := i; 10 sum := sum+i end if ... end proc 5.4.2 设置断点（stopat） 有了语句号我们就能用来设置断点了，Maple中设置断点的函数是stopat,其具体的函数表达式如下： stopat(procName);——在第一语句设置断点 stopat(procName, statRange); ——在指定语句设置断点 stopat(procName, statRange,condition); ——先判断，真时再设断点 与设置断点的函数相对应的函数是清除断点的函数unstopat,