Môn: Tin họcYêu cầu chung: Yêu cầu chương trình chạy thông suốt.. - 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ố
Trang 1phò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:
1 2 3
n
n S
n
Tờn tập tin: D:\THI\Bai1.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 (x<y)
Kế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ụ:
3
40
6 12 18 24 30 36
Co tat ca: 6 so Tờn tập tin: D:\THI\Bai2.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:\THI\Bai3.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:\THI\Bai4.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
Đề chính thức
Trang 2Mô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:
1 2 3
n
n S
n
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
Readln
Bộ Test thử
n nhập vào Kết quả S trên màn hình
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 (x<y)
Kế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ố
Trang 3Uses Crt;
var x,y,i,d:longint;
Begin
d:=0;
Repeat
Writeln(‘Nhap vao x,y: ’); Readln(x,y)
Until x<y;
0,5
1,0 for i:=x to y do
if (i mod 2=0)and(i mod 3=0) then
begin
write(i:6);
inc(d);
end;
2,5
writeln;
writeln('Co tat ca:',d,' so');
readln;
End
1,0
Bộ Test thử
3
40
7 12 18 24 30 36
Co tat ca: 6 so
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 ”
Program Rut_Gon_Phan_So;
uses crt;
var Tu,Mau: Integer;
a,b,r,UCLN: Integer;
0.5
‘Nhập phân số:’
Begin
clrscr;
Write('Nhap tu so: ');readln(Tu);
Write('Nhap mau so: '); readln(Mau);
0.5
if Mau = 0 then writeln(‘Khong phai phan so’) 0,5
Trang 4else
Begin
write(Tu,’/’,Mau);
‘Tìm UCLN của tử và mẫu:’
a:= Tu;
b:= Mau;
r:= a mod b;
0,5
while r <> do
Begin
a:=b;
b:=r;
r:= a mod b;
end;
2,0
‘Thực hiện rút gon:’
Tu:=Tu div UCLN;
‘In phân số sau khi rút gọn:’
if Mau <> 1 then
write('=',tu,’/’,mau)
else write(Tu);
end;
readln;
End
0.5
Bộ Test thử
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 ”
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
Uses Crt;
Const max = 100;
Var
A,B:array[1 max] of Integer;i,j,n:integer;
0.5
Begin
Write(' nhap vao so phan tu cua mang'); Readln(n);
For i:= 1 to n do
Begin
Write('a[',i,']=');readln(a[i]);
End;
1,0
Trang 5Write(a[i]:5);
For i:= 1to n do
Begin
B[i]:= 0 ;
For j:=1 to i do
B[i]:=B[i]+a[j];
End;
2,5
For i:= 1 to n do
Write(B[i]:5);
Readln;
End.
0,5
Bộ Test thử