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

§Ò chÝnh thøc

®Ò 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.(6,0 điểm)
Viết chương trình nhập số tự nhiên n (n ≤ 1000) và tính giá trị biểu thức Sn:
Tên tập tin: D:\THI\Bai1.pas
Bài 2. (8,0 điểm)
Nhập vào số tự nhiên N (1 < N < 65000). Hãy kiểm tra số N vừa nhập có
phải là số nguyên tố không? Nếu đúng thì thông báo ra màn hình đây là số
nguyên tố, ngược lại thì phân tích số N thành tích các thừa số ngyuên tố.
Ví dụ:

Dữ liệu vào
Dữ liệu ra
Nhap mot so tu nhien: 5 5 la so nguyen to
Nhap 1 so tu nhien: 15
15 duoc tach thanh tich cac thua so nguyen to: 3.5
Nhap 1 so tu nhien: 3456 2.2.2.2.2.2.2.3.3.3
Tên tập tin: D:\THI\Bai2.pas
Bài 3. (6,0 điểm)
NhËp vµo mét m¶ng c¸c sè nguyªn. S¾p xÕp m¶ng theo thø tù t¨ng dÇn.
Tên tập tin: D:\THI\Bai3.pas

----------------Hết-----------------(Cán bộ coi thi không giải thích gì thêm)

HƯỚNG DẪN CHẤM MÔN TIN HỌC LỚP 8
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. (6,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

Program Bai1;
Uses Crt;
Var
n,i:Integer;
s:Real;
BEGIN
ClrScr;
Write('Nhap so tu nhien n= ');Readln(n);
s:=0;
For i:=1 to n do s:=s+1/(i*(i+1));
Write('s=',s:4:4);
Readln;
END.
Bộ Test thử

n nhập vào

1
10
100
1000

Điểm
1

1
2
1
1

Kết quả S trên màn hình
0.333
0.663
0.740
0.749

Câu 2 (7 điểm)
Nhập vào số tự nhiên N (1 < N < 65000). Hãy kiểm tra số N vừa nhập có
phải là số nguyên tố không ? Nếu đúng thì thông báo ra màn hình đây là số
nguyên tố, ngược lại thì phân tích số N thành tích các thừa số ngyuên tố.
Chương trình
Điểm
Program Bai2;
Uses Crt;
Var
0.5
m, n: Longint;
dem, i: integer;

Begin
repeat
ClrScr;
Write('Nhap mot so tu nhien: ');Readln(n);
Until (n>1) and (n<=65000);
i:=2;
While (n mod i <> 0 do
i:= i+1;
if i = n then
Writeln (n, ' la so nguyen to')
else {tach so n thanh cac thua so nguyen to}

End.

Begin
dem:=0;
m:=n;
Write (n, 'duoc tach thanh cac thua so nguyen to = ');
While (m mod 2 = 0) do
Begin
diem:=diem+1;
m:=m div 2;
Write('2');
if m>0 then write ('.');
End;
i:=3;
While (m > 2) do
Begin
While (m mod i = 0) do
Begin
dem:=dem+1;
m:=m div i;
Write (i);
if m>2 then Write ('.');
End;
i:=i+2;
End;
End;
Readln;

Bộ Test thử

2

1.25

1.25

1

2

Dữ liệu vào
Dữ liệu ra
Nhap mot so tu nhien: 5 5 la so nguyen to
Nhap 1 so tu nhien: 15
15 duoc tach thanh tich cac thua so nguyen to: 3.5
Nhap 1 so tu nhien: 3456 2.2.2.2.2.2.2.3.3.3
Bài 3. (6,0 điểm)
NhËp vµo mét m¶ng c¸c sè nguyªn. S¾p xÕp m¶ng theo thø tù t¨ng dÇn..

Tên tập tin: D:\THI\Bai3.pas
Chương trình

Điểm

Program Bai3;
Uses CRT;
Var
a:array[1..100] of Integer;
i, j, n,tg:Integer;

1

BEGIN
Write(' Nap vao so phan tu cua mang n=');readln(n);
For i:=1 to n do

1

Begin
Write(' Nhap vao phan tu thu a[',i,']=');
readln(a[i]);
end;
For i:=1 to n-1 do
For j:=i+1 to n do
if a[i]>a[j] then

1

1

Begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;

1

end;
For i:=1 to n do
Write(a[i]:6);
Readln;
END.

1