SỞ GD&ĐT THANH HÓA TRƯỜNG THPT THƯỜNG XUÂN ĐỀ THI HỌC SINH GIỎI CẤP TRƯỜNG NĂM HỌC 2019 – 2020 Môn: TIN HỌC - Lớp 11 THPT Thời gian: 180 phút (khơng kể thời gian giao đề) (Đề có 03 trang, gồm 05 câu) Tổng quan thi: Bài Bài Bài Bài Bài Tên Lũy thừa Anagram Tìm số Siêu đối xứng Tìm đường File chương trình BAI1.PAS BAI2.PAS BAI3.PAS BAI4.PAS BAI5.PAS File liệu vào BAI1.INP BAI2.INP BAI3.INP BAI4.INP BAI5.INP File kết BAI1.OUT BAI2.OUT BAI3.OUT BAI4.OUT BAI5.OUT Bài 1: Viết chương trình nhập vào n số học sinh lớp (n=5.0 Ví dụ: Cho n=10 điểm tổng kết môn tin 10 học sinh sau: 5.2 6.5 7.2 5.5 4.2 9.0 4.5 4.7 6.5 7.5 Kết là: Số học sinh có điểm >=5.0 Bài 2: Các số Fibonasi F1, F2,… định nghĩa sau: F1= F2 = FN+1 = FN + FN – 1, N > Cho số nguyên dương N (0 < N < 25), tìm số thứ N dãy Fibonasi Ví dụ: Với n=3 số thứ dãy Với n=6 số thứ dãy Với n=20 số thứ 20 dãy 6765 Bài 3: Xâu đối xứng xâu có tính chất: đọc từ phải sang trái thu kết giống đọc từ trái sang phải Cho xâu S gồm không q 200 kí tự Cho biết S có phải xâu đối xứng hay khơng? Nếu khơng, cho biết số kí tự cần thêm vào xâu S để S trở thành xâu đối xứng Ví dụ: Cho xâu S=’123321’ xâu s xâu đối xứng Cho xâu S=’abchhdcba’ xâu s khơng phải xâu đối xứng số kí tự cần thêm vào k=1 Cho xâu S=’abcdhhcba’ xâu s khơng phải xâu đối xứng số kớ t cn thờm vo l k=1 Câu 4: Giám đốc ngân hàng AGRIBANK cần viết chơng trình rút tiền ATM cho khách hàng với yêu cầu sau: số tiền mà khách hàng nhận đợc có nhiều mệnh giá (để tiện chi tiêu), sau nhận đợc nhiều mệnh giá khách hàng phải nhận số tờ (tiền) Biết thời điểm tại, ngân hàng có mệnh giá là: 500.000, 200.000, 100.000, 50.000, 20.000, 10.000 5.000 Bạn hÃy viết chơng trình cho Giám đốc ngân hàng AGRIBANK, yêu cầu nhập vào số tiền n (n nguyên dơng n=5.0 then dem:=dem+1; Writeln (‘so hoc sinh co diem mon tin lon hon 5.0 la:’, dem); Readln End Bài 2: Program bai2; Var A: array [1 30 of word; I, n: integer; Begin Write (‘nhap so nguyen n=’); Readln (n); If n700000 then Begin k:=k-500000; Dem1:=dem1+1; End; If k>300000 then Begin k:=k-200000; Dem2:=dem2+1; End; If k>185000 then Begin k:=k-100000; Dem3:=dem3+1; End; If k>85000 then Begin k:=k-50000; Dem4:=dem4+1; End; If k>35000 then Begin k:=k-20000; Dem5:=dem5+1; End; If k>15000 then Begin k:=k-10000; Dem6:=dem6+1; End; If k>5000 then Begin k:=k-5000; Dem7:=dem7+1; End; While k>=500000 Begin dem1:=dem1+1; K:=k-500000; End; While k>=200000 Begin dem2:=dem2+1; K:=k-200000; End; While k>=100000 Begin dem3:=dem3+1; K:=k-100000; End; While k>50000 Begin dem4:=dem4+1; K:=k-50000; End; While k>=20000 Begin dem5:=dem5+1; K:=k-20000; End; While k>=10000 Begin dem6:=dem6+1; K:=k-10000; End; While k>=5000 Begin dem7:=dem7+1; K:=k-5000; End; Writeln (‘so to 500.000 la’, dem1); Writeln (‘so to 200.000 la’, dem2); Writeln (‘so to 100.000 la’, dem3); Writeln (‘so to 50.000 la’, dem4); Writeln (‘so to 20.000 la’, dem5); Writeln (‘so to 10.000 la’, dem6); Writeln (‘so to 5.000 la’, dem7); Readln End ... k> =20 0000 Begin dem2:=dem2+1; K:=k -20 0000; End; While k>=100000 Begin dem3:=dem3+1; K:=k-100000; End; While k>50000 Begin dem4:=dem4+1; K:=k-50000; End; While k> =20 000 Begin dem5:=dem5+1; K:=k -20 000;... k:=k-500000; Dem1:=dem1+1; End; If k>300000 then Begin k:=k -20 0000; Dem2:=dem2+1; End; If k>185000 then Begin k:=k-100000; Dem3:=dem3+1; End; If k>85000 then Begin k:=k-50000; Dem4:=dem4+1; End;... then Begin k:=k -20 000; Dem5:=dem5+1; End; If k>15000 then Begin k:=k-10000; Dem6:=dem6+1; End; If k>5000 then Begin k:=k-5000; Dem7:=dem7+1; End; While k>=500000 Begin dem1:=dem1+1; K:=k-500000;