计算机奥赛初赛知识讲座幻灯片.ppt

以下程序完成对数组每个元素向后移动n个单位。数组元素的下标依次为0到m-1，对任意一个数组元素a[i]而言，它的值移动后将存储在数组元素a[(i+n) mod m]中。 例如，m=10，n=3，移动前数组中存储的数据如下前一行所示，则程序运行后数组中存储的数据如下后一行所示。 0 3 86 20 27 67 31 16 37 42 16 37 42 0 3 86 20 27 67 31 const maxm=10000; var i,k,m,n,rest,start,temp:longint; a:array [0..maxm] of longint; begin write(input m,n:); readln(m,n); for i:=0 to m-1 do a[i]:=random(100); writeln(before move); for i:=0 to m-1 do write(a[i]:5); writeln; rest:=m; start:=0; while ① do begin k:=start; repeat k:=(k+n) mod m until k=start; if ② then begin temp:=a[k]; repeat a[k]:=a[(m*n+k-n) mod m]; k:=(m*n+k-n) mod m; ③ until k=start; ④ end; ⑤ end; writeln(after move); for i:=0 to m-1 do write(a[i]:5); writeln end. 模块1——初始化 模块2——移动计算 ，其中 子模块1：判断以a[k]开始的的循环链上的元素是否都未移动过 子模块2：若以a[k]开始的的循环链上的元素都未移动过，则该循环链进行移动 子模块3：寻找下一个未移动过的循环链 模块3——输出移动后的数组 由此得出解为 ① rest0 或 rest0 ② k=start ③ rest:=rest-1 ④ a[(k+n) mod m]:=temp 或 a[(start+n) mod m]:=temp ⑤ start:=start+1 完善含子程序结构的程序 如果子模块采用过程或函数，则通常以子程序为单位划分层次结构，这样可以使得其层次性相对不含子程序的程序来说要清晰一些。 程序的任务是用0…9中的n个数字填入如下乘法运算的*处，数字可重复使用，且所用的数字至少有一个是素数，要求输出满足下列算式的方案数。 * * * × * * * * * * * * * * *　* const p:set of 0..9=[2,3,5,7]; var s:set of 0..9; n:integer; ans:longint; f:text; procedure init; var i:integer; t:byte; begin readln(n); s:=[]; for i:=1 to n do begin read(t); s:=s+[t]; end; close(f); end; function ok(x,l:integer):boolean; {此函