HSG tin 9 huyện Cẩm Khê

phòng giáo dục và đào tạo cẩm khê
kỳ thi chọn học sinh giỏi các môn văn hoá lớp 9 cấp huyện
năm học 2012 - 2013

đề thi môn tin học
Thời gian làm bài: 150 phút, không kể thời gian giao đề



Bài 1. (4,0 điểm)
Viết chương trình nhập số tự nhiên n (n≤100) và tính giá trị biểu thức Sn:


Tên tập tin: D:THIBai1.pas

Bài 2.(5,0 điểm)
Viết chương trình in ra màn hình các số từ x đến y là số chẵn và chia hết cho 3. Với x, y nhập từ bàn phím? Đếm xem có tất cả bao nhiêu số?
Dữ liệu vào: Số nguyên x và y (xKết quả ra: Các số chẵn chia hết cho 3 trong phạm vi từ x đến y và đếm có bao nhiêu số.
Ví dụ:
Dữ liệu vào
Dữ liệu ra

3
40
12 18 24 30 36
Co tat ca: 6 so

Tên tập tin: D:THIBai2.pas

Bài 3. (6,0 điểm)
Viết chương trình cho phép rút gọn một phân số.
Yêu cầu:
- Dữ liệu vào: Tử số và mẫu số của phân số cần rút gọn.
- Dữ liệu xuất: Rút gọn và xuất kết quả dạng c/d. Với c/d là phân số sau khi rút gọn.
Ví dụ: Nhập tử: 6 - Nhập mẫu: 8. Kết quả xuất: “6/8 = 3/4 ”
Nhập tử: 10 - Nhập mẫu: 5. Kết quả xuất: “10/5 = 2 ”
Nhập tử: 10 - Nhập mẫu: 0. Kết quả xuất: “Khong phai phan so ”
Tên tập tin: D:THIBai3.pas

Bài 4.(5,0 điểm)
Cho mảng A các số nguyên gồm n phần tử. Viết chương trình tạo mảng B[1..n]. Trong đó B[i] là tổng giá trị của i phần tử đầu tiên của mảng A.
Tên tập tin: D:THIBai4.pas

----------------Hết------------------
(Cán bộ coi thi không giải thích gì thêm)
HƯỚNG DẪN CHẤM THI - KỲ THI CHỌN HỌC SINH GIỎI LỚP 9
CẤP HUYỆN NĂM HỌC 2012 – 2013
Môn: Tin học


Yêu cầu chung:
Yêu cầu chương trình chạy thông suốt. ( 2-3 điểm)
+ Hoàn thành đúng phần khai báo các biến: (0,25 điểm)
+ Viết đúng chương trình nhập mảng: (0,25 điểm)
+ Viết đúng thuật toán (cách giải) tính tổng: (1-2 điểm)
+ Viết đúng thủ tục tạo và ghi kết quả vào tệp: (0,5 điểm)
- Chương trình chạy cho kết quả đúng (có thể làm theo cách khác đáp án): khai báo đầy đủ, trình bày có cấu trúc rõ ràng cho điểm tối đa. Không khai báo mỗi biến trừ 0.25 điểm.
- Chương trình cho kết quả sai: Chỉ chấm phần các ý chính của thuật toán, mỗi ý đúng cho điểm không vượt quá 40% số điểm của câu.
Bài 1. (4,0 điểm).
Viết chương trình nhập số tự nhiên n (n≤100) và tính giá trị biểu thức Sn:


Chương trình
Điểm

Uses Crt;
Var
n,i:Integer;
s:Real;
0,5

BEGIN
ClrScr;
Write(‘Nhap so tu nhien n=`);Readln(n);
0,5

s:=0;
For i:=1 to n do s:=s+i/(i+1);
2,0

 Write(‘s=’,s:4);
0,5

Readln
END.
0,5

Bộ Test thử
n nhập vào
Kết quả S trên màn hình

1
0.500

100
95.803

1000
993.514


Bài 2.(5,0 điểm):
Viết chương trình in ra màn hình các số từ x đến y là số chẵn và chia hết cho 3. với x, y nhập từ bàn phím? Đếm xem có tất cả bao nhiêu số?
Dữ liệu vào: Số nguyên x và y (xKết quả ra: Các số chẵn chia hết cho 3 trong phạm vi từ x đến y và đếm có bao nhiêu số.

Chương trình
Điểm