De thi chon HSG tin hoc 9 cap huyen

PHÒNG GIÁO DỤC ĐÀO TẠO
BỐ TRẠCH
kỳ thi CHọN học sinh giỏi lớp 9
năm học 2012-2013
môn: tin học

Đề chính thức
SBD

Thời gian 150 phút, không kể thời gian giao đề


đề ra
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 (3.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 (3.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: (4,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 6 5 4 1 2 3 6 5 4
1 2
2 1
3 1
4 2
5 2
6 2

==== Hết ====
PHÒNG GIÁO DỤC ĐÀO TẠO
BỐ TRẠCH
kỳ thi CHọN học sinh giỏi lớp 9
năm học 2012-2013
môn: tin học 9

Hướng dẫn chấm



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;