+ 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 [r]
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.(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:
n
S
n n
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ụ:
Nhap mot so tu nhien: 5
Nhap 1 so tu nhien: 15
Nhap 1 so tu nhien: 3456
5 la so nguyen to
15 duoc tach thanh tich cac thua so nguyen to: 3.5 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)
Đề chính thức
Trang 2+ 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:
n
S
n n
Program Bai1;
Uses Crt;
Var
n,i:Integer;
s:Real;
1
BEGIN
ClrScr;
Write(‘Nhap so tu nhien n= ');Readln(n);
1
s:=0;
For i:=1 to n do s:=s+1/(i*(i+1)); 2
Readln;
Bộ Test thư
n nhập vào Kết quả S trên màn hình
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ố
Program Bai2;
Uses Crt;
Var
m, n: Longint;
dem, i: integer;
0.5
Trang 3repeat
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}
2
Begin
dem:=0;
m:=n;
Write (n, 'duoc tach thanh cac thua so nguyen to = ');
While (m mod 2 = 0) do
1.25
Begin
diem:=diem+1;
m:=m div 2;
Write('2');
if m>0 then write ('.');
End;
1.25
i:=3;
While (m > 2) do
Begin
While (m mod i = 0) do
1
Begin
dem:=dem+1;
m:=m div i;
Write (i);
if m>2 then Write ('.');
End;
i:=i+2;
End;
End;
Readln;
End
2
Bộ Test thư
Nhap mot so tu nhien: 5
Nhap 1 so tu nhien: 15
Nhap 1 so tu nhien: 3456
5 la so nguyen to
15 duoc tach thanh tich cac thua so nguyen to: 3.5 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
Trang 4Tên tập tin: D:\THI\Bai3.pas
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;
1
For i:=1 to n-1 do
For j:=i+1 to n do
if a[i]>a[j] then
1
Begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
1
For i:=1 to n do
Write(a[i]:6);
Readln;
END.
1