2006NOIP初赛.docVIP

3. Program ex403; Const NN=7; Type Arr1=array[0..30] of char; var s:arr1; k,p:integer; function fun1(s:arr1; a:char;n:integer):integer; var j:integer; begin j:=n; while (as[j])and(j0) do dec(j); dec(j)(j:=j-1 fun1:=j; end; Function fun2(s:arr1; a:char; n:integer):integer; var j:integer; begin j:=1; while (as[j])and(jn) do inc(j);inc(j)(j:=j+1 fun2:=j; end; begin for k:=1 to NN do s[k]:=chr(ord(A)+2*k+1); k:=fun1(s,M,NN)+fun2(s,M,NN); writeln(k); end. 输出：_____________ 4. program ex404; var x,x2:longint; procedure digit(n,m:longint); var n2:integer; begin if(m0) then begin n2:=n mod 10; write(n2:2); if(m1) then digit(n div 10,m div 10); n2:=n mod 10; write(n2:2); end; end; begin writeln(Input a number:); readln(x); x2:=1; while(x2x) do x2:=x2*10; x2:=x2 div 10; digit(x,x2); writeln; end. 输入：9734526 输出：______________________________ 五．完善程序 (前5空，每空2分，后6空，每空3分，共28分) 1．（选排列）下面程序的功能是利用递归方法生成从1到n(n10)的n个数中取k(1=k=n)个数的全部可能的排列（不一定按升序输出）。例如，当n=3，k=2时，应该输出（每行输出5个排列）： 12 13 21 23 32 31 程序： Program ex501; Var i,n,k:integer; a:array[1..10] of integer; count:longint; Procedure perm2(j:integer); var i,p,t:integer; begin if ① then begin for i:=k to n do begin inc(count); t:=a[k]; a[k]:=a[i]; a[i]:=t; for ② do write(a[p]:1); write( ); t:=a[k];a[k]:=a[i];a[i]:=t; if (count mod 5=0) then writeln; end; exit; end; for i:=j to n do begin t:=a[j];a[j]:=a[i];a[i]:=t; ③ ; t:=a[j]; ④ ; end end; begin writeln(Entry n,k (k=n):); read(n,k); count:=0; for i:=1 to n do a[i]:=i; ⑤ ; end. 2．（TSP问题的交叉算子）TSP问题(Traveling Salesman Problem)描述如下：给定n个城市，构成一个完全图，任何两城市之间都有一个代价（例如路程、旅费等），现要构造遍历所有城市的环路，每个城市恰好经过一次，求使总代价达到最小的一条环路。 遗传算法是求解该问题的一个很有效的近似算法。在该算法中，一个个体为一条环路，其编码方法之一是1到n这n个数字的一个排列，每个数字为一个城市的编号。例如当n=5时，“3 4 2 1 5”表示该方案实施的路线为3-4-2-1-5-3。遗传算法的核心是通过两个个体的交叉操作，产生两个新的个体。下面的程序给出了最简单的一种交叉算法。具体过程如下： (1)选定中间一段作为互换段，该段的起止下标为t1，t2，随机生成t1，t2后，互换两段。 (2)互换后，在每个新的排列中可能有重复数字，因而不能作为新个体的编码，一般再做两步处理：(2.1) 将两个互换段中，共同的数字标记为0，表示已处理完。