SỞ GIÁO DỤC VÀ ĐÀO TẠO KỲ THI HỌC SINH GIỎI TỈNH NĂM HỌC 2011-2012 ĐẮK LẮK MÔN : TIN HỌC 12 - THPT (Thời gian: 180 phút, không kể thời gian giao đề) Ngày thi: 10/11/2011 Ghi chú : Đề thi này gồm 2 trang. Bài File bài làm Dữ liệu vào Kết quả Tính tổng Siêu nguyên tố Tô màu BAI3.INP BAI3.OUT Bài 1: Tính tổng (5 điểm). !"#$%&'"("&)*+,*-*./*0! 123%4./%3 56%7 $ $8$ 9*:";<";"=&> ?%@".5 A,9%73<>"&) B A,$./A, . " C Yêu cầu:=<&)*<D%EF%*0G./%3 " >A, HI<(./%3 : Dữ liệu vào: J:+%K"L%41M% BNM%<( %H./%3 $G$9$≤≤O P Q≤G≤O P Q ≤≤O R B+%1M%.$1M%:*:./ ? SO R C Dữ liệu ra:TK"L!./"F%<&)* Ví dụ: BAI1.INP BAI1.OUT UVW W V R Bài 2(6 điểm) - Siêu nguyên tố /. %3 /"./%3 /5HX!./YZ*-**[./H \*0](*M"=9^=+!./%3 / _1`V"!./. %3 /*]P*[./9V$V$V*a%"*-* ./%3 / _>*&b%1[",9+"!./%3 ?OSSOC9<& 5>c\"*-*./. %3 /*]*[./*d%./"&)%*0*e% ĐỀ CHÍNH Bài 3(9 điểm) -Tô màu Cho một bảng gồm các ô vuông kích thước M x N (M, N ≤100), trong đó có một số ô đen, còn lại là các ô trắng. Yêu cầu: Hãy tô màu tất cả các ô trắng bằng hai màu xanh và vàng sao cho trên mỗi dòng cũng như trên mỗi cột số các ô màu xanh và vàng lệch nhau không quá 1. Dữ liệu vào: Được cho trong file văn bản BAI3.INP - Dòng đầu ghi hai số M, N - M dòng tiếp theo mỗi dòng ghi N số, gồm các số 0 hoặc 1 biểu diễn bảng ô vuông, với 0 biểu thị ô trắng, 1 biểu thị ô đen. Kết quả: Ghi ra file văn bản BAI3.OUT gồm M dòng, mỗi dòng gồm N ký tự viết liền nhau biểu diễn trạng thái màu đã tô của bảng với D: màu đen, X: màu xanh, V: màu vàng. Ví dụ: BAI3.INP 6 4 1 0 1 0 1 0 0 0 0 1 0 1 1 1 0 0 0 1 0 1 1 0 1 0 BAI3.OUT DVDX DXXV XDVD DDVX VDXD DXDV Hết Ghi chú: Giám thị coi thi không giải thích gì thêm. SỞ GIÁO DỤC VÀ ĐÀO TẠO KỲ THI HỌC SINH GIỎI TỈNH NĂM HỌC 2011-2012 ĐẮK LẮK MÔN : TIN HỌC 12 - THPT (Thời gian: 180 phút, không kể thời gian giao đề) Ngày thi: 10/11/2011 Ghi chú : Đề thi này gồm 2 trang. Bài File bài làm Dữ liệu vào Kết quả Tính tổng Siêu nguyên tố Tô màu BAI3.INP BAI3.OUT Bài 1: Tính tổng (5 điểm). !"#$%&'"("&)*+,*-*./*0! 123%4./%3 56%7 $ $8$ 9*:";<";"=&> ?%@".5 A,9%73<>"&) B A,$./A, . " C Yêu cầu:=<&)*<D%EF%*0G./%3 " >A, HI<(./%3 : Dữ liệu vào: J:+%K"L%41M% BNM%<( %H./%3 $G$9$≤≤O P Q≤G≤O P Q ≤≤O R B+%1M%.$1M%:*:./ ? SO R C Dữ liệu ra:TK"L!./"F%<&)* Ví dụ: BAI1.INP BAI1.OUT UVW W V R Bài 2(6 điểm) - Siêu nguyên tố /. %3 /"./%3 /5HX!./YZ*-**[./H \*0](*M"=9^=+!./%3 / _1`V"!./. %3 /*]P*[./9V$V$V*a%"*-* ./%3 / _>*&b%1[",9+"!./%3 ?OSSOC9<& 5>c\"*-*./. %3 /*]*[./*d%./"&)%*0*e% ĐỀ CHÍNH Bài 3(9 điểm) -Tô màu Cho một bảng gồm các ô vuông kích thước M x N (M, N ≤100), trong đó có một số ô đen, còn lại là các ô trắng. Yêu cầu: Hãy tô màu tất cả các ô trắng bằng hai màu xanh và vàng sao cho trên mỗi dòng cũng như trên mỗi cột số các ô màu xanh và vàng lệch nhau không quá 1. Dữ liệu vào: Được cho trong file văn bản BAI3.INP - Dòng đầu ghi hai số M, N - M dòng tiếp theo mỗi dòng ghi N số, gồm các số 0 hoặc 1 biểu diễn bảng ô vuông, với 0 biểu thị ô trắng, 1 biểu thị ô đen. Kết quả: Ghi ra file văn bản BAI3.OUT gồm M dòng, mỗi dòng gồm N ký tự viết liền nhau biểu diễn trạng thái màu đã tô của bảng với D: màu đen, X: màu xanh, V: màu vàng. Ví dụ: BAI3.INP 6 4 1 0 1 0 1 0 0 0 0 1 0 1 1 1 0 0 0 1 0 1 1 0 1 0 BAI3.OUT DVDX DXXV XDVD DDVX VDXD DXDV Hết Ghi chú: Giám thị coi thi không giải thích gì thêm. SỞ GIÁO DỤC & ĐÀO TẠO KỲ THI HỌC SINH GIỎI TỈNH NĂM HỌC 2011-2012 ĐẮK LẮK MÔN : TIN HỌC 12 - THPT ĐÁP ÁN VÀ HƯỚNG DẪN CHẤM ĐỀ CHÍNH THỨC I. Phần chương trình nguồn Bài 1(5 điểm) - Tính tổng program BAI1; const fi='BAI1.inp'; fo='BAI1.out'; nmax=10003; var a:array[1 nmax]of int64; n,k,b:longint; kq:int64; f,g:text; procedure nhapdulieu; var i:integer; begin assign(f,fi); reset(f); readln(f,n,k,b); for i:=1 to n do readln(f,a[i]); close(f); end; procedure xuly; var i,j:longint; begin kq:=0; for i:=b to b+k-1 do kq:=kq+a[(i-1) mod N +1]; assign(g,fo); rewrite(g); write(g,kq); close(g); end; Begin nhapdulieu; xuly; End. Bài 2(6 điểm) - Siêu nguyên tố var a,b: array [1 100] of longint; N,i,k,ka,kb,cs: byte; Function Prime(N: longint): boolean; Var i: longint; Begin If (N=0) or (N=1) then Prime:=false Else Begin i:=2; While (N mod i <> 0) and (i <= Sqrt(N)) do Inc(i); If i > Sqrt(N) then Prime:=true Else Prime:=false; End; End; BEGIN Write ('Nhap N: '); Readln (N); ka:=1; a[ka]:=0; For i:=1 to N do Begin Kb:=0; For k:=1 to ka do For cs:=0 to 9 do If Prime(a[k]*10+cs) then Begin Inc(kb); b[kb]:=a[k]*10+cs; end; ka:=kb; For k:=1 to ka do a[k]:=b[k]; end; For k:=1 to ka do Write(a[k]:10); Writeln; Writeln('Co tat ca ',ka,' so sieu nguyen to co ',N,' chu so.'); Readln; END. Bài 3(9 điểm) -Tô màu const tfi = 'BAI3.INP'; tfo = 'BAI3.OUT'; maxN = 101; var fi, fo : text; M,N : integer; a : array[1 maxN,1 maxN] of byte; bac : array[1 2*maxN] of integer; procedure Docdl; var i,j: integer; begin assign(fi,tfi); reset(fi); readln(fi,M,N); for i:=1 to M do begin for j:=1 to N do read(fi,a[i,j]); readln(fi); end; close(fi); end; function DinhBacLe: integer; var i: integer; begin for i:=1 to M+N do if odd(bac[i]) then begin DinhBacLe:=i; exit; end; DinhBacLe:=0; end; function Next(u: integer): integer; var v: integer; begin if u<=M then begin for v:=1 to N do if a[u,v]=0 then begin Next:=v+M; exit; end; end else begin for v:=1 to M do if a[v,u-M]=0 then begin Next:=v; exit; end; end; Next:=0; end; procedure ToMau(xp: integer); var u,v,color: integer; begin color:=2; u:=xp; repeat v:=Next(u); if v>0 then begin if u<=M then a[u,v-M]:=color else a[v,u-M]:=color; bac[u]:=bac[u]-1; bac[v]:=bac[v]-1; u:=v; color:=5-color; end; until v=0; end; function DinhConCanh: integer; var i: integer; begin for i:=1 to M+N do if bac[i]>0 then begin DinhConCanh:=i; exit; end; DinhConCanh:=0; end; procedure Solve; var i,j,u: integer; begin for i:=1 to M do begin bac[i]:=0; for j:=1 to N do bac[i]:=bac[i]+(1-a[i,j]); end; for i:=M+1 to M+N do begin u:=i-M; bac[i]:=0; for j:=1 to M do bac[i]:=bac[i]+(1-a[j,u]); end; {Tim cac duong xuat phat tu dinh le} repeat u:=DinhBacLe; if u>0 then ToMau(u); until u=0; {Tim cac duong xuat phat tu dinh bac chan} repeat u:=DinhConCanh; if u>0 then ToMau(u); until u=0; end; procedure Inkq; var i,j: integer; begin assign(fo,tfo); rewrite(fo); for i:=1 to M do begin for j:=1 to N do case a[i,j] of 1: write(fo,'D'); 2: write(fo,'X'); 3: write(fo,'V'); end; writeln(fo); end; close(fo); end; BEGIN Docdl; Solve; Inkq; END. II. Phần hướng dẫn chấm Bai 1 (5 đ): Test chương trình với 5 dữ liệu nhập khác nhau. Mỗi lần đúng cho 1 điểm. Bai 2 (6 đ): Test chương trình với 5 lần : n=1 5 N=1 có 4 số; N=2 có 9 số; N=3 có 14 số; N=4 có 16 số; N=5 có 15 số. Chú ý trong mỗi trường hợp cần kiểm tra các số tìm được có thỏa mãn là số siêu nguyên tố hay không. Mỗi test đúng cho 1 điểm. Bai 3 (9 đ): Có 9 test ( lưu trong đĩa CD) Mỗi test đúng cho 1 điểm Hết . DỤC VÀ ĐÀO TẠO KỲ THI HỌC SINH GIỎI TỈNH NĂM HỌC 201 1- 2 012 ĐẮK LẮK MÔN : TIN HỌC 12 - THPT (Thời gian: 180 phút, không kể thời gian giao đề) Ngày thi: 10/11 /2011 Ghi chú : Đề thi này gồm 2 trang. Bài File. coi thi không giải thích gì thêm. SỞ GIÁO DỤC VÀ ĐÀO TẠO KỲ THI HỌC SINH GIỎI TỈNH NĂM HỌC 201 1- 2 012 ĐẮK LẮK MÔN : TIN HỌC 12 - THPT (Thời gian: 180 phút, không kể thời gian giao đề) Ngày thi: . chú: Giám thị coi thi không giải thích gì thêm. SỞ GIÁO DỤC & ĐÀO TẠO KỲ THI HỌC SINH GIỎI TỈNH NĂM HỌC 201 1- 2 012 ĐẮK LẮK MÔN : TIN HỌC 12 - THPT ĐÁP ÁN VÀ HƯỚNG DẪN CHẤM ĐỀ CHÍNH THỨC I.