信息奥赛测试题 (3).doc

深索题：1分书rocedure try(i:integer); var j:integer; begin if i=n+1 then print else for j:=1 to n do if bookj and (ai,j=1) then begin bi:=j; bookj:=false; try(i+1); bookj:=true; bi:=0; end; end;procedure print; var i:integer; begin for i:=1 to n-1 do write(bi, ); writeln(BN); end;主程序:begin fillchar(b,sizeof(b),0); fillchar(book,sizeof(book),true); readln(n); for i:=1 to n do for j:=1 to n do read(ai,j); try(1);End.2、四色问题program tt;const num=20;var a:array 1.num,1.num of 0.1; s:array 1.num of 0.4; 用1-4分别代表RBWY四种颜色;0代表末填进任何颜色 k1,k2,n:integer;function pd(i,j:integer):boolean;判断可行性：第I个省填上第J种颜色var k:integer;begin for k:=1 to i-1 do 一直从第一个省开始进行比较一直到I省减一的那个省，目的是对已经着色的省份来进行比较，因为I的省还没 有着色，比较没有意义，着色的顺序是先第一、二、三I个省 if (ai,k=1) and (j=sk) then 省I和省J相邻且将填进的颜色和已有的颜色相同 begin pd:=false; 即不能进行着色 exit; 退出当前函数 end; pd:=true; 可以进行着色end;procedure print;打印结果var k:integer;begin for k:=1 to n do将数字转为RBWY串 case sk of 1:write(R:4); 2:write(B:4); 3:write(W:4); 4:write(Y:4); end; writeln;end;procedure try(i:integer);var j:integer;begin for j:=1 to 4 do if pd(i,j) then begin si:=j; if i=n then print else try(i+1); 对下一个省进行着色 si:=0; 不能进行着色，将当前状态设置0，即不进行着色 end;end;BEGIN write(please input city number: ); readln(n); writeln(please input the relation of the cities:); for k1:=1 to n do begin for k2:=1 to n do read(ak1,k2); AK1，K2=1表示省K1、K2相邻，为0就不相邻 readln; end; for k1:=1 to n do sk1:=0; 把所有的颜色设置为0，即还没有进行着色 try(1);END.3、素数环、program tt;var a:array 1.20 of integer; k:integer;function pd1(j,i:integer):boolean;beginpd1:=true;for k:=1 to i-1 doif ak=j then begin pd1:=false;exit;end;end;function pd2(x:integer):boolean;beginpd2:=true;for k:=2 to trunc(sqrt(x) do if x mod k=0 then begin pd2:=false; exit;end;end;function pd3(j,i:integer):boolean;beginif i20 then pd3:=pd2(j+ai-1)else pd3:=pd2(j+ai-1) and pd2(j+1);end;procedure print;begin for k:=1 to 20 do write(ak:4); writeln;end;procedure try(i:integer);var j:integer;begin for j:=2 to 20 dobeginif pd1(j,i) and pd3(j,i) then begin ai:=j; if i=20 then