NOIP备战读程序完善程序.pptVIP

第二部分;阅读程序现写结果方法;基本运算题;Var

u::array[0..3]ofinteger;

I,a,b,c,x,y,z:integer;

Begin

fori:=0to2dou[i]:=i*2+1;

u[3]:=u[0]oru[1]andu[2]+1;

a:=u[0]+u[1]+u[2]+u[3]-5;

b:=u[0]*(u[1]-u[2]divu[3]+8);

c:=u[0]*u[1]divu[2]*u[3];

x:=(a+b+2)*3-u[(c+3)mod4];

y:=(c*100-13)divadiv(u[bmod3]*5);

if((x+y)mod2=0)thenz:=(a+b+c+x+y)div2;

z:=(a+b+c-x-y)*2;

writeln(x+y-z);

End.;可关注递归计算题,如

斐波那契数列;对于一些语句少、结构简单且可读性较强的程序，不妨通过分析程序流程，直接寻找其间蕴含的计算模型。;【分析】由for循环可以看出

t=，即

i=1时，t=n；

i=2时，t=n*(n-1)/2；

i=3时，t=n*(n-1)/2*(n-2)/3；

………

i=m时，t=c(n,m)=n!/(m!*(n-m)!);对于一些易读性不十分好的程序，最好的办法是画流程图。其步骤如下

⑴跟着程序画流程图，一句一框；

⑵根据上下文的联系合并流程图。若前几句计算值都要代入后一表达式，则合并为一框。接连合并几次，使程序成为一个大功能块；

⑶由大功能块推断算法；

⑷代入输入值，计算结果。;label10,20,30;

var

s,p:string;

i,k,n,j,m:integer;

begin

readln(s);n:=length(s);

readln(p);m:=length(p);

i:=0;

10:i:=i+1;j:=i;k:=1;

20:ifs[j]p[k]

thenbegin

ifin-m+1thengoto10;i:=0;goto30;

end

elseifkm

thenbeginj:=j+1;k:=k+1;goto20;end;;;

动态模拟方法是采用人工模仿机器执行程序的方法计算结果值。首先选择程序中比较重要的变量作为工作现场。人工执行程序时，只要按照时间先后一步步记录下现场的变化，就能最后得出程序的运算结果。其具体布置如下：

⑴画表，画出程序执行时要用的现场情况表；

⑵基本读懂各语句的功能

⑶走程序，即动态模拟程序。主要根据各语句的功能，按照程序执行路径的先后顺序逐项填写现场情况表，直至得出最后结果；;var

i,j:integer;

a:array[1..3,1..3]ofinteger;

begin

fori:=1to3do

begin

forj:=1to3do

begin

ifi=3thena[i,j]:=a[i-1,a[i-1,j]]+1

elsea[i,j]:=j;

write(a[i,j]);

end;

writeln

end;

readln

end.

输出：;j

i

;var

a,d:array[1..100]ofinteger;

n,i,j,k,x,s:integer;

begin

n:=5;a[1]:=1;d[1]:=1;

fori:=1tondo

begin

s:=i+1;x:=0;

forj:=1ton+1-ido

begin

k:=s+x;x:=x+1;a[j+1]:=a[j]+k;

write(a[j],);

end;

writeln(...);d[i+1]:=d[i]+i;a[1]:=d[i+1];

end;

end.

输出：;由底向上分析的阅读分析方法就是在剖析了子程序和模块资源的基础上，建立对高层程序结构的理解，从而完成整个程序的阅读分析，即从最底层的子目标开始分析起，看它们做了哪些事情；然后分析上一层的子目