Đề HSG đoan hùng 2019 (các môn) (2)

PHÒNG GD&ĐT ĐOAN HÙNG HƯỚNG DẪN CHẤM HSG CẤP HUYỆN Năm học: 2018 - 2019 Môn: Tin học lớp Thời gian 150 phút không kể thời gian giao đề Hướng dẫn chấm máy tính Chấm theo Test thử, test giám khảo cho điểm test Phần 1: Lập trình giải tốn sau Câu (6,0 điểm) Lập chương trình thực yêu cầu sau: Viết chương trình cho phép nhập từ bàn phím số nguyên dương a thực hiện: a Cho biết a số có chữ số b Cho biết tổng chữ số a c Ta gọi số “đối xứng” với a số nguyên dương thu từ a cách đảo ngược thứ tự chữ số a Viết chương trình in số đối xứng số nguyên dương a d Cho a b số nguyên dương Ta gọi tổng đối xứng a b số đối xứng với tổng số đối xứng với a số đối xứng với b Viết chương trình cho phép nhập hai số nguyên dương a, b in tổng đối xứng chúng Chương trình Điểm Khai báo Nhập dãy số Sắp xếp dãy số In dãy số xếp Phần tử có giá trị tuyệt đối lớn In phần tử số phương Program Cau1abcd; Var M: array[1 20] of integer; n,i,j,tam:integer; xh,chinh:integer; ok: boolean; Begin Write('Nhap n: ');Readln(n); For i:= to n Begin Write('M[',i,']='); Readln(M[i]); End; For i:=1 to n-1 For j:=i+1 to n if M[j]> M[i] then Begin Tam:=M[i]; M[i]:=M[j]; M[j]:=Tam; End; Write('Day so sau sap xep: '); For i:=1 to n Write(M[i],';'); Writeln; Write('Phan tu co gia tri tuyet doi lon nhat:'); if abs(M[1])>abs(M[n]) then write(M[1]) else write(M[n]); Writeln; Write('Cac phan tu la so chinh phuong: '); For i:=1 to n if M[i]>=0 then if sqr(trunc(sqrt(M[i]))) = M[i] then write(M[i],';'); 0.5 0.5 1.5 0.5 0.5 1.0 Tìm in phần tử dãy Writeln; ok:=false; For i:= to n Begin xh:=0; For j:=1 to n if M[i]=M[j] then xh:=xh+1; if xh >= n div then Begin chinh:=M[i]; ok:=true end; End; if ok then write('Phan tu chinh la: ',chinh) else Write('Khong co phan tu chinh'); Readln; End 1.5 Câu (6,0 điểm) Viết chương trình cho phép rút gọn phân số Yêu cầu: - Dữ liệu vào: Tử số mẫu số phân số cần rút gọn - Dữ liệu xuất: Rút gọn xuất kết dạng c/d Với c/d phân số sau rút gọn Ví dụ: Nhập tử: - Nhập mẫu: Kết xuất: “6/8 = 3/4 ” Nhập tử: 10 - Nhập mẫu: Kết xuất: “10/5 = ” Nhập tử: 10 - Nhập mẫu: Kết xuất: “Khong phai phan so ” Chương trình Điểm Program Rut_Gon_Phan_So; uses crt; var Tu,Mau: Integer; a,b,r,UCLN: Integer; ‘Nhập phân số:’ Begin clrscr; Write('Nhap tu so: ');readln(Tu); Write('Nhap mau so: '); readln(Mau); if Mau = then writeln(‘Khong phai phan so’) else Begin write(Tu,’/’,Mau); ‘Tìm UCLN tử mẫu:’ a:= Tu; b:= Mau; r:= a mod b; while r Begin a:=b; b:=r; r:= a mod b; end; UCLN:=b; ‘Thực rút gon:’ Tu:=Tu div UCLN; mau:= Mau div UCLN; 0.5 0.5 0,5 0,5 2,0 0,5 1,0 ‘In phân số sau rút gọn:’ if Mau then write('=',tu,’/’,mau) else write(Tu); end; readln; End Bộ Test thư Nhập tử: - Nhập mẫu: Kết xuất: “6/8 = 3/4 ” Nhập tử: 10 - Nhập mẫu: Kết xuất: “10/5 = ” Nhập tử: 10 - Nhập mẫu: Kết xuất: “Khong phai phan so ” 0.5 Phần 2: Tin học ứng dụng (8,0 điểm) Câu Nội dung (2,5đ) (4đ) (1,5đ) Phần Lịch Sử Chấm máy Tạo trình chiếu Tạo màu nền, màu chữ, kiểu chữ Điểm Tạo chữ WordArt 0,25 Nhập nội dung văn 1,0 Tạo chữ Drop Cap 0,25 Chia cột 0,5 Sử dụng Font, kiểu chữ 0,5 Nhập định dạng liệu Đánh số thứ tự cho cột STT 0,5 Lương = Lương * Ngày công - Nếu (Phụ cấp chức vụ + Lương)*2/3 < 25000 Tạm ứng = (Phụ cấp chức vụ + Lương)*2/3 Còn lại = Phụ cấp chức vụ + Lương - Tạm ứng Tạo slide 1,0 1,0 0,25 Đúng nội dung slide 0,5 Background, màu text box 0,25 Màu chữ 0,25 Kiểu chữ 0,25 1,5 (Tổng điểm toàn 20 điểm) * Lưu ý: Học sinh có nhiều cách giải khác nhau, giám khảo cho điểm tương ứng phần