UBND HUYỆN LONG PHÚ KỲ THI CHỌN HỌC SINH GIỎI CẤP HUYỆN PHÒNG GIÁO DỤC VÀ ĐÀO TẠO Năm học 2012 2013 Khóa thi ngày 12/01/2013 MÔN THI TIN HỌC TRUNG HỌC CƠ SỞ (Thời gian làm bài 150 phút, không kể thời[.]
UBND HUYỆN LONG PHÚ PHÒNG GIÁO DỤC VÀ ĐÀO TẠO KỲ THI CHỌN HỌC SINH GIỎI CẤP HUYỆN Năm học 2012-2013 Khóa thi ngày 12/01/2013 MƠN THI: TIN HỌC TRUNG HỌC CƠ SỞ (Thời gian làm bài: 150 phút, không kể thời gian giao đề) Đề thi gồm có 02 trang Bài 1: (10 điểm) STT 10 Mã 1GP1 2KQ3 1DM3 2BP1 1TM2 2DQ1 2KQ3 1GP2 2BP1 1TM2 BẢNG CHIẾT TÍNH VẬT GIÁ Mã hàng Tên hàng Đơn giá Số lượng 12 25 22 11 20 30 20 30 Trị giá Thuế Thuế xuất Yêu cầu: Dùng Excel để nhập liệu định dạng bảng tính theo mẫu Lưu file với tên D:\Bai1.xls Lập cơng thức tính cho trống bảng gợi ý sau: a Điền liệu cho cột Mã hàng Biết Mã hàng kí tự thứ cột Mã b Điền liệu cho cột Tên hàng Dựa vào cột Mã Hàng BẢNG ĐƠN GIÁ c Tính cột đơn giá đựa vào Mã hàng BẢNG ĐƠN GIÁ Nếu kí tự bên trái Mã = “1” hàng có Đơn giá loại 1, ngược lại Đơn giá loại d Tính cột Trị giá = Số lượng * Đơn giá e Tính cột thuế sau: Thuế = Trị giá * % Thuế Trong % Thuế dựa vào kí tự bên phải cột Mã BẢNG QUY ĐỊNH THUẾ f Tính cột Thuế xuất khẩu: Nếu kí tự thứ cột Mã = “P” Thuế xuất = 2% *Trị giá Ngược lại Nếu kí tự thứ cột = “Q” Thuế xuất = 2.5% * Trị giá Ngược lại Thuế xuất = g Rút trích danh sách mặt hàng Tủ kiếng Tranh điện có số lượng > 20 h Điền liệu cho BẢNG THỐNG KÊ i Tạo biểu đồ Pie để minh họa liệu cho BẢNG THỐNG KÊ Bài 2: (5 điểm) Viết chương trình nhập từ bàn phím hai số tự nhiên N, M (khi nhập liệu cần phải kiểm tra cho ≤ N < M ≤ 65535) Tìm đếm số nguyên tố, số phương khoảng từ N đến M Cho biết: số nguyên tố số có tổng chữ số lớn nhất; số phương số có tổng chữ số nhỏ Lưu chương trình với tên D:\BAI2.PAS Kết xuất file D:\snt.out có cấu trúc sau: - Hàng thứ số N M - Hàng thứ hai số nguyên tố tìm - Hàng thứ ba số số nguyên tố đếm được, số nguyên tố có tổng chữ số lớn - Hàng thứ tư số phương tìm - Hàng thứ năm số số phương đếm được, số phương có tổng chữ số nhỏ Các số dòng phải đặt cách dấu cách Ví dụ: 10 25 11 13 17 19 23 19 16 25 16 Giải thích: N = 10 M = 25 11 13 17 19 23 số nguyên tố từ 10 đến 25 Số từ 10 đến 25 có số nguyên tố Số 19 số nguyên tố có tổng chữ số lớn 16 25 số phương từ 10 đến 25 Số từ 10 đến 25 có số phương Số 16 số phương có tổng chữ số nhỏ Bài 3: (5 điểm) Viết chương trình nhập điểm kiểm tra miệng, kiểm tra 15 phút, kiểm tra tiết, kiểm tra học kì mơn Tin học học sinh Hãy tính điểm trung bình học kì (ĐTB hk) cho biết điểm trung bình học kì học sinh xếp vào loại sau đây: giỏi, khá, trung bình, yếu, Lưu chương trình với tên D:\BAI3.PAS Biết rằng: - Điểm kiểm tra có điểm tính theo thang điểm 10, nghĩa điểm nhỏ điểm lớn 10 - Trong học kì học sinh phải kiểm tra miệng lần, kiểm tra 15 phút lần, kiểm tra tiết lần, kiểm tra học kì lần - Điểm tra miệng kiểm tra 15 phút hệ số Điểm kiểm tra tiết hệ số Điểm thi học kì hệ số - Điều kiện xếp loại điểm môn tin học sau: + Loại giỏi: 8.0 ≤ ĐTBhk ≤ 10.0 + Loại khá: 6.5 ≤ ĐTBhk ≤ 7.9 + Loại trung bình: 5.0 ≤ ĐTBhk ≤ 6.4 + Loại yếu: ≤ ĐTBhk ≤ 4.9 + Loại kém: ĐTBhk ≤ 1.9 Ví dụ: Điểm tin học học sinh sau Kiểm tra miệng Kiểm tra 15 lần Kiểm tra 15 lần Kiểm tra tiết Kiểm tra tiết Kiểm tra lần lần học kì Điểm trung bình học sinh xếp loại UBND HUYỆN LONG PHÚ PHÒNG GIÁO DỤC VÀ ĐÀO TẠO HẾT -KỲ THI CHỌN HỌC SINH GIỎI CẤP HUYỆN Năm học 2012-2013 Khóa thi ngày 12/01/2013 HƯỚNG DẪN CHẤM Môn: Tin học Trung học sở Nhập liệu định dạng trang tính mẫu sau điểm Bài 1: Mỗi câu nhập công thức chép cơng thức cần tính a =MID(B3,2,1) b =VLOOKUP(C3,$A$14:$B$20,2,0) c =VLOOKUP(D3,$B$14:$D$20,IF(LEFT(B3,1)="1",2,3),0) d =F3*E3 e =HLOOKUP(VALUE(RIGHT(B3,1)),$F$15:$I$16,2,0)*G3 f =IF(MID(B3,3,1)="P",0.02,IF(MID(B3,3,1)="Q",2.5%,0))*G3 g Lọc dượcdanh sách với điều kiện h =SUMIF($D$2:$D$12,G19,$F$2:$F$12) i Tạo biểu đồ, có thích rõ rang Bài 2: var n, m, i, demsnt, sntmax, demscp, scpmax: word; f:text; function ktsnt(n:word):boolean; var i,dem:word; begin dem := 0; for i:=1 to n 0.5 điểm 0.25 điểm điểm 0.25 điểm điểm điểm điểm điểm điểm 0.5 điểm 0.5 điểm if n mod i = then dem := dem +1; ktsnt := dem =2; end; function ktscp(n:word):boolean; var i:longint; begin i:=0; while i*i begin tong := tong + n mod 10; n := n div 10; end; tcs := tong; end; begin assign(f,'d:\snt.out'); rewrite(f); {nhap du lieu va ghi vao file snt.out} repeat write('nhap so nguyen n ');readln(n); until (n>0) and (nn) and (m>0) and (m=0) and (x= then write(' Gioi ') else if tbhk >= 6.5 then write(' Kha ') else if tbhk >= then write(' Trung binh ') else if tbhk >= 3.5 then write(' Yeu ') else write(' Kem '); readln; điểm 0.25 điểm 0.25 điểm 0.5 điểm 0.5 điểm 0.5 điểm 0.5 điểm 0.5 điểm 0.5 điểm 0.5 điểm 0.5 điểm end Lưu ý: Ngồi cách nêu học sinh có cách làm khác mà kết xác có điểm thi