đề hsg tin hoc dap an 2011

SỞ GIÁO DỤC VÀ ĐÀO TẠO ĐẮK LẮK KỲ THI HỌC SINH GIỎI TỈNH NĂM HỌC 2011-2012 MÔN : TIN HỌC 12 - THPT (Thời gian: 180 phút, không kể thời gian giao đề) ĐỀ CHÍNH THỨC Ngày thi: 10/11/2011 Ghi : Đề thi gồm trang Bài Bài 1: Tính tổng Bài 2: Siêu nguyên tố Bài 3: Tô màu File làm Dữ liệu vào Kết BAI1.PAS BAI1.INP BAI1.OUT BAI2.PAS Nhập từ phím Xuất hình BAI3.PAS BAI3.INP BAI3.OUT Bài 1: Tính tổng (5 điểm) Trên hình lớn, người ta cho số dãy gồm N số nguyên không âm a1, a2, …, aN lặp lặp lại (nghĩa sau a i xuất vài giây đến lượt ai+1 xuất hiện, số xuất sau aN a1) Yêu cầu: Bạn đề nghị tính tổng K số nguyên liên tiếp xuất hình số nguyên thứ B Dữ liệu vào: Chứa file BAI1.INP gồm hai dòng: + Dòng ghi ba số nguyên N, K, B, ≤ N ≤104; ≤ K ≤ 104 ; ≤ B ≤ 109 + Trong N dòng sau, dòng thứ i chứa số (ai < 2.109) Dữ liệu ra: Ghi file BAI1.OUT số tổng tìm Ví dụ: BAI1.INP 76 BAI1.OUT 32 Bài 2(6 điểm) - Siêu nguyên tố Số siêu nguyên tố số nguyên tố mà bỏ số tuỳ ý chữ số bên phải phần lại tạo thành số nguyên tố Ví dụ 7331 số siêu nguyên tố có chữ số 733, 73, số nguyên tố Viết chương trình nhập liệu vào số nguyên N (0< N 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 begin for j:=1 to N 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 (5 đ): Test chương trình với liệu nhập khác Mỗi lần cho điểm Bai (6 đ): Test chương trình với lần : n=1 N=1 có số; N=2 có số; N=3 có 14 số; N=4 có 16 số; N=5 có 15 số Chú ý trường hợp cần kiểm tra số tìm có thỏa mãn số siêu nguyên tố hay không Mỗi test cho điểm Bai (9 đ): Có test ( lưu đĩa CD) Mỗi test cho điểm Hết ... thêm SỞ GIÁO DỤC & ĐÀO TẠO ĐẮK LẮK KỲ THI HỌC SINH GIỎI TỈNH NĂM HỌC 2011- 2012 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... color:=5-color; end; until v=0; end; function DinhConCanh: integer; var i: integer; begin for i:=1 to M+N if bac[i]>0 then begin DinhConCanh:=i; exit; end; DinhConCanh:=0; end; procedure Solve; var i,j,u:... 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) then