if dobeni=dobenmax then writei:4; readln; end.. TEST Nhập điểm tích lũy của n học sinh Kết quả in ra màn hình Điểm 6... Tạo được background cho slide 1, 5.. Các slide còn lại tùy 3.
Trang 1HƯỚNG DẪN CHẤM THI CHỌN ĐỘI TUYỂN HỌC SINH GIỎI LỚP 9 THCS
NĂM HỌC: 2017-2017 HƯỚNG DẪN CHẤM MÔN:TIN HỌC
I PHẦN THI TIN HỌC LẬP TRÌNH: (12,0 điểm)
Câu 1 (5,0 điểm): Test 1, 2 mỗi test đúng cho 0,5 điểm, còn lại mỗi test đúng cho 1,0 điểm
Mã Code tham khảo
var n,max,i: longint;
function tich(m: longint):longint;
var s: longint;
begin
s:=1;
while m>0 do
begin
s:=s* (m mod 10);
m:=m div 10;
end;
tich:=s;
end;
function doben(p: longint):longint;
begin
if p div 10 =0 then doben:=0
else
doben:=1+ doben(tich(p));
end;
begin
write('Nhap n: '); readln(n);
While (n<0) or (n>1000) do
begin
write('Nhap lai n: '); readln(n);
end;
max:=1;
for i:=1 to n do
begin
if doben(i)>doben(max) then max:=i;
end;
write('Cac so nho hon ',n,' co do ben lon nhat la: ');
Trang 2if doben(i)=doben(max) then write(i:4);
readln;
end
Câu 2: (7,0 điểm) Có 7 test, mỗi test đúng cho 1,0 điểm.
TEST Nhập điểm tích lũy của n học sinh Kết quả in ra màn hình Điểm
6 N = 5, 10000 346587 26900 246889
7 N= 10, 10000 234000 1400000
1990000 30000000 23400000
24513500 70750000 34000000
34340000
Mã Code tham khảo
uses crt;
var uoc,i,n: longint;
a: array[1 100] of longint;
function uc(a,b: longint): longint;
var r: longint;
begin
r:=a mod b;
while r<>0 do
begin
a:=b;
b:=r;
r:=a mod b;
end;
uc:=b;
end;
begin
clrscr;
write('Nhap so hoc sinh ');
readln(n);
while (n<2) or (n>10) do
begin
write('Nhap la n: ');
readln(n);
end;
Trang 3begin
write('Phan tu thu ',i,' la: ');
readln(a[i]);
while (a[i]<0) or (a[i]>1000000000) do
begin
write('Nhap lai diem tich luy cua hoc sinh thu ',i,': ');
readln(a[i]);
end;
end;
uoc:=0;
for i:=1 to n do
uoc:=uc(uoc,a[i]);
write('Uoc chung lon nhat cua day la: ',uoc);
readln
end
II PHẦN THI TIN HỌC ỨNG DỤNG: (8,0 điểm)
4 Chia văn bản thành 3 cột có đường biên ở giữa 0,5
8 Chèn đúng kí tự symbol, định dạng dữ liệu trong bảng 0,25
1 Tạo được bảng gồm: 1 bảng chính và 1 bảng phụ 0,5
2 Định dạng bảng tính: gộp ô, đường viền, đổ màu 0,5
2 Tạo được background cho slide 1, 5 Các slide còn lại tùy
3 Tạo được hiệu ứng chuyển tiếp cho tất cả slide 0,25
4 Cài đặt được các trang tự động chuyển tiếp sau 15 giây 0,25