0803信息学第四轮试卷.pdf

面朝大海，春暖花开！oier 编写： 陈朝晖 路桥中学信息学奥赛第四次测试暨选拔参考程序 本次出题同学（丁磊、陈牡军、夏自远、潘汉） 首先，让我们共同感谢本次出题同学为本次比赛规划、测试所付的努力！ 试卷说明： １．本次考试共12 道题，分A 、B 卷； 由出题人承担所出题型的评判及打分等事项。 ２．考试前5 分钟必须决定采用A 卷或B 卷。（任选） ３．每题计100 分，共400 分。（第5、6 题为置换题，只允许选择其中一道） 考试时间：3 月9 日下午 （1：304：30 ）共 3 小时 程序代码仅供参考，欢迎提出 同见解！ 班级（ ） 姓名__________ 总得分：（ ） A 卷 1 (丁磊) 中国象棋半张棋盘如下，马自左下角往右上角跳。现规定只许往右跳，不许 往左跳。比如下图所示为一种跳行路线。编程输出所有的跳行路线，打印格式如下： 1 (0,0) (1,2) (3,3) (4,1) (5,3) (7,2) (8,4) 4 3 2 1 0 1 2 3 4 5 6 7 8 program A 1dl; const d:array[1..4,1..2]of -2..2=((1,2),(2,1),(2,-1),(1,-2)); var b :array[0..8,0..4]of boolean; xz :array[0..8,1..2]of 0..8; k,num:integer; procedure print; var i:integer; begin inc(num); write(,num :2, ,(,xz[0,1]:2,,,xz[0,2]:2,)); for i:=1 to k do write(-,(,xz[i,1]:2,xz[i,2]:2,)); writeln; end; procedure atm(x,y:integer); var 1 用心去聆听春天的脚步！ 面朝大海，春暖花开！oier 编写： 陈朝晖 x1,y1,i:integer; begin for i:=1 to 4 do begin x1:=x+d[i,1]; y1:=y+d[i,2]; if (x 10)or(x18)or(y10)or(y14) then continue; if b [x1,y1] then begin inc(k); b [x1,y1]:=false; xz[k,1]:=x1; xz[k,2]:=y1; if (x 1=8)and(y1=4) then print else atm(x 1,y1); dec(k); b [x1,y1]:=true; end; end; end; begin fillchar(b,sizeof(b),true); fillchar(xz,sizeof(xz), 0); k:=0;num :=0; xz[k,1]:=0; xz[k,2]:=0; atm(0,0); end.