Đề thi HSG thanh thủy 2017 2018 (12)

PHÒNG GIÁO DỤC & ĐÀO TẠO THANH THỦY
HƯỚNG DẪN CHẤM MÔN TIN HỌC 9 VÒNG 2
(Hướng dẫn chấm có: 04 trang)
I. PHẦN THI LẬP TRÌNH (12,0 điểm)

(Lưu ý: Mỗi bài lập trình có thể có nhiều cách giải khác nhau)
Câu 1: ( 4,0 điểm)
Test

DL vào

Kết quả (In ra màn hình)

Điểm

1

12

co

1,0 đ

2

712

710

1,0 đ

3

2017

2010

1,0 đ

4

122017

122005

1,0 đ

5

20172017

20172000

1,0 đ

Bài 2: (3,0 điểm)
Test

DL vào

1

tHi

2

MON : TIN HOC

3

hSg VoNG

nam hoc:

2

2017-2018

Kết quả (In ra màn hình)

Điểm

Thi Hsg Vong 2

1,0 đ

Mon : Tin Hoc

1,0 đ

Nam Hoc: 2017-2018

1,0 đ

Câu 3: (4,0 điểm)
Test

DL vào

Kết quả (In ra màn hình)

1

8
-10 45 78 96 32 -14 -75 36

-10

2

5
28 11 7 12 2017

Khong

3

6
-14 -69 -34 -75 -12 -2

-2

4

7
-100 100 -150 150 -200 200 -100

-100

Điểm
1,0 đ
1,0 đ
1,0 đ
1,0 đ

II. PHẦN THI TIN HỌC ỨNG DỤNG: (8,0 điểm)
Câu
Nội dung
Câu 1:
1 Nhập xong và định dạng nội dung đoạn văn bản
2 Tạo được chữ nghệ thuật

Điểm
2,0
0,5
0,25

1


3 Tạo được Drop Cap

4 Chèn và định dạng được Shapes
5 Chèn đúng hình ảnh
6 Tạo và định dạng bảng
Câu 2
Tạo và định dạng được bảng
1 Tính được cột “MẶT HÀNG”
=VLOOKUP(LEFT(A6,2), $A$16:$D$22,2,0)

0,25
0,25
0,25
0,5
4,0
1,0
0,25

Nếu thí sinh không tính được cột “ĐƠN GIÁ”, số điểm tại những cột “PHÍ CHUYÊN
TRỞ”, “THÀNH TIỀN” và “TỔNG CỘNG” sẽ không được tính
2

Tính được cột “ĐƠN GIÁ”
=VLOOKUP(LEFT(A6,2),$A$16:$D$22,IF(RIGHT(A6,1)="1",3,4),0)

1,0

3

Tính được cột “PHÍ CHUYÊN TRỞ”
=IF(VALUE(RIGHT(A6,1))=1,1%*C6,5%*C6)

0,5

4

Tính được cột “THÀNH TIỀN”
=D6*(C6+E6)

0,25

5

Tính được cột “TỔNG CỘNG”
=F6-IF(F6>=1000,1%*F6,0)

0,5

6

Thống kê được số lượng đã bán
=SUMIF($A$6:$A$13,F18&"*",$D$6:$D$13)

0,5

Câu 3

2,0

1. Tạo đúng đủ nội dung của 3 silde

0,5

2. Tạo được background

0,25

3. Tạo được hiệu ứng chuyển tiếp cho tất cả slide

0,25

4. Tạo được hiệu ứng theo yêu cầu

0,5

5. Chèn hình ảnh đúng vị trí

0,25

6. Tạo liên kết

0,25

2


ĐÁP ÁN THAM KHẢO
I. PHẦN LẬP TRÌNH

Câu

1

(5,0đ)

2
(3,0đ)

Mã Code tham khảo
Uses crt;
Var n,m: longint;
function tong(n:longint): longint;
var t:longint;
begin
t:=0;
while n>0 do
begin
t:=t+n mod 10;
n:=n div 10;
end;
tong:=t;
end;
BEGIN
Clrscr;
write('Nhap n: '); readln(n);
if n mod tong(n)=0 then write('Co')
else
begin
m:=n;
repeat
m:=m-1;
until (m mod tong(n)=0) and (mwrite('So thoa man tinh chat tren la: ',m);

end;
readln;
END.
Uses crt;
Var s:string;
procedure chuanhoa(var s:string);
var i:integer;
begin
while s[1]=' ' do delete(s,1,1);
while s[length(s)]= ' ' do delete(s,length(s),1);
for i:=length(s) downto 2 do
if (s[i]=' ') and (s[i-1]=' ') then delete(s,i,1);
s[1]:=upcase(s[1]);
for i:=2 to length(s) do
if (s[i-1]=' ') then s[i]:=upcase(s[i])
else
if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32);
end;
BEGIN
Clrscr;
Write('Nhap vao 1 xau: ');readln(s);
chuanhoa(s);
writeln(s);
readln;
END.

3


3

(4,0đ)

Uses crt;
Var a,b:array[1..100] of longint;
ma,n,i,d:longint;
BEGIN
Clrscr;
write('nhap so phan tu, n= '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
i:=0;d:=0;
repeat
i:=i+1;
if a[i] < 0 then
begin
d:=d+1; b[d]:=a[i];
end;
until i=n;
if d=0 then write('khong co so am')
else
begin
ma:=b[1];
for i:=1 to d do
if mawrite('So lon nhat la: ',ma);
end;
readln;
END.

II. PHẦN ỨNG DỤNG:

BÁO CÁO BÁN HÀNG
MÃ
MH
HD1
FD1
MS1
SD1
DD1
HD2
MS2
DD2

MẶT
HÀNG

ĐƠN
GIÁ

Đĩa cứng
Đĩa mềm
Mouse
SD Ram
DD Ram
Đĩa cứng
Mouse
DD Ram

49
2.5
3
13
27
50
3.5
30

SỐ
LƯỢNG
60
70
30
120
100
50
65
20

PHÍ
CHUYÊN
CHỞ
0.49
0.025
0.03
0.13
0.27
2.5
0.175

1.5

THÀNH
TIỀN
2969.4
176.75
90.9
1575.6
2727
2625
238.875
630

TỔNG
CỘNG
2939.706
176.75
90.9
1559.844
2699.73
2598.75
238.875
630

* Chú giải: 2 ký tự đầu của MÃ MH cho biết Mặt hàng, ký tự cuối của MÃ MH cho biết
Đơn giá (Loại 1 hay Loại 2).
MÃ
MH
HD
FD

MS
SD
DD

ĐƠN GIÁ
MẶT
HÀNG
1
Đĩa cứng
Đĩa mềm
Mouse
SD Ram
DD Ram

ĐƠN GIÁ
2
49
50
2.5
3
3
3.5
13
15
27
30

BẢNG THỐNG KÊ
Số lượng đã bán:
HD

110
FD
70
MS
95
SD
120
DD
120

4


………. HẾT ………..

5