Đề thi HSG Tin 9 huyện Phù Ninh năm 2014-2015

PHÒNG GIÁO DỤC VÀ ĐÀO TẠO PHÙ NINH ĐỀ THI CHỌN HỌC SINH GIỎI LỚP 9 NĂM HỌC 2014-2015 Môn: Tin học Thời gian: 120 phút (không kể thời gian giao đề) Sö dông ng«n ng÷ lËp tr×nh Turbo Pascal ®Ó lËp tr×nh gi¶i c¸c bµi to¸n sau: Câu 1 (6.0đ): Chữ số: CHUSO.PAS Viết chương trình nhập vào một số tự nhiên n (n< 1000) và xác định: - n có bao nhiêu chữ số. - Tổng các chữ số của n. - Chữ số đầu tiên bên trái của n. Ví dụ: Nhap vao so nguyen: 254 254 la so co 3 chu so. 254 co tong các chu so la 11 254 co chu so dau tien ben trai la 2 Câu 2 (6.0đ): Xóa xâu: XOAXAU.PAS Viết chương trình nhập vào một xâu ký tự St1 (nhỏ hơn 30 ký tự), hãy loại bỏ khỏi xâu nhóm các ký tự ‘abc’ và xuất ra xâu St2 sau khi đã loại bỏ các ký tự trên. Ví dụ: Nhập vào xâu là: acabcababcac Kết quả được xâu St2 là: acabac Câu 3: (8,0 điểm) TANSUAT.PAS Cho một dãy số nguyên A gồm n phần tử A1, A2, A3, ... , An (1 ≤ n ≤ 20000) (0 ≤ Ai ≤ 32000, 1 ≤ i ≤ n). Lập chương trình xác định số lần xuất hiện của mỗi số trong dãy A. Dữ liệu vào: Cho trong file văn bản TANSUAT.INP có cấu trúc như sau: + Dòng 1: Ghi số nguyên dương n (n<10). + Dòng 2: Ghi n số nguyên, là giá trị của các phần tử thuộc dãy A. Các số được ghi cách nhau ít nhất một dấu cách. Dữ liệu ra: Ghi ra file văn bản TANSUAT.OUT gồm m dòng (0 ≤ m ≤ n). Mỗi dòng ghi 02 số nguyên dương u, v. Trong đó u là giá trị của phần tử xuất hiện trong dãy A; v là số lần xuất hiện của u trong dãy A. Ví dụ: TANSUAT.INP TANSUAT.OUT 10 1 2 1654123654 2 1 3 1 4 2 5 2 6 2 --------------- Hết ----------------Họ và tên thí sinh: ........................................................ Số báo danh: ................ PHÒNG GIÁO DỤC VÀ ĐÀO TẠO PHÙ NINH HƯỚNG DẪN CHẤM THI HỌC SINH GIỎI LỚP 9 NĂM HỌC 2014-2015 Môn: Tin học I- Ph¬ng ph¸p: - Gi¸m kh¶o t¹o bé d÷ liÖu vµo, tÝnh to¸n kÕt qu¶. Thùc hiÖn ch¬ng tr×nh cña häc sinh vµ so s¸nh kÕt qu¶. - Gi¸m kh¶o cã thÓ sö dông ch¬ng tr×nh gîi ý díi ®©y ®Ó tÝnh to¸n kÕt qu¶ cña d÷ liÖu vµo. - Ch¬ng tr×nh häc sinh ®óng mét bé test, gi¸m kh¶o cho 0,5 ®iÓm. Nh vËy, nÕu mét bµi cã 3 ®iÓm th× gi¸m kh¶o ph¶i t¹o 6 bé test. - Riêng câu 3 giám khảo tạo bộ dữ liệu vào với file TANSUAT.INP có đủ dữ liệu để kiểm tra. II- Ch¬ng tr×nh gîi ý: Câu 1 (3.0đ): Chữ số: Program Chuso; var n,a,b,c,t,s,x,k: integer; BEGIN write('Nhap so tu nhien n nho hon 1000: n = '); Repeat readln(n); if (n<0) and (n>=1000) then writeln(' 0 <= n < 1000 '); until (n>=0) and (n<1000); t := n; a := t div 100; t := t- 100*a; b := t div 10 ; t := t- 10*b; c := t; s := a+b+c; if (n>=0) and (n <=9) then begin x:= c; k:=1 end else if (n>=10) and (n <=99) then begin x:= b; k:=2 end else begin x:= a; k:=3 end; writeln(n,' co ',k,' chu so.' ); writeln(n,' co tong cac chu so la ',s); writeln(n,' co chu so dau tien ben trai la ',x); readln; end. Câu 2 (3.0đ): Xóa xâu: Program xoaxau; VAR st: string[30]; st1: string; l,p: byte; BEGIN writeln('Chuong trinh loai bo ''abc'' :'); write('Nhap mot xau 30 ki tu St : ');readln(st); st1:=st; repeat l:=length(st1); p:=pos('abc',st1); if (p0) then st1:=copy(st1,1,p-1)+copy(st1,p+3,l-p-2); until (p=0); writeln(' St = ',st); writeln(' St2 = ',st1); readln; END. Câu 3: (4,0 điểm) Program Tan_suat; const fi='tansuat.inp'; fo='tansuat.out'; Type MMC =array [1..20000] of integer; var A: MMC; n: integer; procedure Xuly; VAR F:TEXT; i,x:integer; begin assign(f,fi); reset(f); readln(f,n); fillchar(A,sizeof(A),0); for i:=1 to n do begin read(f,x); A[x]:=A[x]+1; end; close(f); assign(f,fo); rewrite(f); for i:=1 to n do if a[i]>0 then writeln(f,i,' ', a[i]:4); close(f); end; BEGIN Xuly; END. -----------------------------------------