PHÒNG GIÁO DỤC & ĐÀO TẠO THANH THỦYHƯỚNG DẪN CHẤM MÔN TIN HỌC 9 VÒNG 2 Hướng dẫn chấm có: 04 trang I... Tạo được hiệu ứng chuyển tiếp cho tất cả slide 0,25... ĐÁP ÁN THAM KHẢOI.
Trang 1PHÒ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)
Bài 2: (3,0 điểm)
3 nam hoc: 2017-2018 Nam Hoc: 2017-2018 1,0 đ
Câu 3: (4,0 điểm)
-10 45 78 96 32 -14 -75 36 -10
1,0 đ
1,0 đ
1,0 đ
-100 100 -150 150 -200 200 -100 -100
1,0 đ
II PHẦN THI TIN HỌC ỨNG DỤNG: (8,0 điểm)
1 Nhập xong và định dạng nội dung đoạn văn bản 0,5
Trang 23 Tạo được Drop Cap 0,25
1 Tính được cột “MẶT HÀNG”
=VLOOKUP(LEFT(A6,2), $A$16:$D$22,2,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
3 Tạo được hiệu ứng chuyển tiếp cho tất cả slide 0,25
Trang 3
ĐÁP ÁN THAM KHẢO
I PHẦN LẬP TRÌNH
1
(5,0đ)
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 (m<n);
write('So thoa man tinh chat tren la: ',m);
end;
readln;
END
2
(3,0đ)
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
(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]);
Trang 4end;
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 ma<b[i] then ma:=b[i];
write('So lon nhat la: ',ma);
end;
readln;
END
II PHẦN ỨNG DỤNG:
BÁO CÁO BÁN HÀNG
MÃ
MH
MẶT HÀNG
ĐƠN GIÁ
SỐ LƯỢNG
PHÍ CHUYÊN CHỞ
THÀNH TIỀN
TỔNG CỘNG
HD1 Đĩa cứng 49 60 0.49 2969.4 2939.706
FD1 Đĩa mềm 2.5 70 0.025 176.75 176.75
MS1 Mouse 3 30 0.03 90.9 90.9
SD1 SD Ram 13 120 0.13 1575.6 1559.844
DD1 DD Ram 27 100 0.27 2727 2699.73
HD2 Đĩa cứng 50 50 2.5 2625 2598.75
MS2 Mouse 3.5 65 0.175 238.875 238.875
DD2 DD Ram 30 20 1.5 630 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).
ĐƠN GIÁ
MÃ
MH
MẶT HÀNG
1 2 Số lượng đã bán:
……… HẾT ………