SỞ GIÁO DỤC VÀ ĐÀO TẠO THANH HOÁ KỲ THI HỌC SINH GIỎI TỈNH Năm học: 2014-2015 Môn thi: Tin học Lớp 12 THPT Ngày thi: 24/03/2015 Thời gian: 180 phút (không kể thời gian giao đề) Đề có 03 bài, gồm 02 trang ĐỀ CHÍNH THỨC Số báo danh …………………… Tổng quan thi: Tên File chương trình File liệu vào File kết Bài DÂY XÍCH BAI1.PAS BAI1.INP BAI1.OUT Bài TÌM MẬT KHẨU BAI2.PAS BAI2.INP BAI2.OUT Bài BIỂU DIỄN PHÂN SỐ BAI3.PAS BAI3.INP BAI3.OUT Dữ liệu vào đắn, không cần phải kiểm tra Các số dòng ghi cách dấu cách Hãy lập trình giải toán sau: Bài 1: (6 điểm) DÂY XÍCH Người ta dùng dây thép tròn có đường kính thiết diện ngang d làm n vòng tròn, bán kính vòng tròn r, móc nối với thành dây xích, vòng tròn mắt xích Nếu dây xích có nhiều mắt xích tồn hai vòng tròn mà vòng nối với với vòng tròn khác, mắt xích đầu cuối Cầm mắt xích đầu cuối, kéo căng ra, ta có dây xích độ dài L Yêu cầu: Cho d, r n Hãy tính độ dài L dây xích d r L Dữ liệu vào: Vào từ file văn BAI1.INP gồm dòng chứa số nguyên dương d, r n (d < r ≤ 100; n ≤ 109) Kết quả: Ghi file văn BAI1.OUT số nguyên độ dài L tìm Ví dụ: BAI1.INP BAI1.OUT 10 64 Trang 1/2 Bài 2: (7 điểm) TÌM MẬT KHẨU: Việc bảo vệ máy tính để hạn chế người khác thâm nhập vào vấn đề đặt cho người sử dụng máy tính Để tăng tính an toàn lưu trữ Lan định đặt mật truy cập máy tính vào xâu T với quy ước cho cần cô ta lấy lại mật từ xâu T sau: Là người yêu thích số học cô ta thường chọn mật P số nguyên tố đem giấu vào xâu ký tự T cho P số nguyên tố có giá trị lớn số số nguyên tố tạo từ xâu T (xâu xâu ký tự T chuỗi liên tiếp ký tự T) Ví dụ: xâu T= “Test1234#password5426” chứa mật 23 T chứa xâu ứng với số nguyên tố 2, 3, 23 Yêu cầu: cho xâu ký tự T có chiều dài không 500 ký tự Tìm mật P dấu xâu T biết P có giá trị nhỏ 105 Dữ liệu cho đảm bảo có P Dữ liệu vào: vào từ file văn BAI2.INP gồm dòng xâu T Kết quả: ghi file văn BAI2.OUT số P tìm Ví dụ: BAI2.INP BAI2.OUT Test1234#password5426 23 Bài 3: (7 điểm) BIỂU DIỄN PHÂN SỐ Một phân số luôn viết dạng số nguyên số thập phân hữu hạn số thập phân vô hạn tuần hoàn Ví dụ: −23 −3 −45 = 4; = −4.6; = 0.375; = 0.(3); = −0.803(571428) −8 56 Trong ví dụ chữ số đặt dấu ngoặc phần tuần hoàn số thập phân 8 Dữ liệu vào: vào từ file văn BAI3.INP gồm số nguyên m n ( m ≤ 10 ; n ≤ 10 ; n ≠ ) Kết quả: ghi file văn BAI3.OUT số nguyên số thập phân hữu hạn m số thập phân vô hạn tuần hoàn phân số n Ví dụ: BAI3.INP BAI3.OUT BAI3.INP BAI3.OUT −45 56 −0.803(571428) Cán coi thi không giải thích thêm - Hết - Trang 2/2 HƯỚNG DẪN LÀM Bài 1: (6 điểm) DÂY XÍCH Ta thấy ngoại trừ thiết diện thiết diện cuối thiết diện nằm hình tròn Vì tính chiều dài ta không tính thiết diện Do đó, công thức tính chiều dài là: L := 2*r*n + 2*d var l:qword; n:qword; d,r:byte; f:text; begin assign(f,'BAI1.INP'); reset(f); read(f,d,r,n); close(f); l:=2*d+r*2*n; assign(f,'BAI1.OUT'); rewrite(f); write(f,l); close(f); end Bài 2: (7 điểm) TÌM MẬT KHẨU: - Vì xâu T có không 500 kí tự nên ta phải dùng kiểu Ansistring thay cho kiểu string - Mật nhỏ 105 nên ta xét xâu có độ dài bé - Dựa vào thủ tục VAL pascal để biết xâu có phải có chữ số hay không? Nếu dùng VAL(s,n,code) mà code=0 xâu S có chữ số (vì chỉnh đổi xâu thành số thành công) - Mật số nguyên tố nên ta viết hàm kiểm tra tính nguyên tố - Từ nhận xét ta viết chương trình cho toán const fi='Bai2.inp'; fo='Bai2.out'; var f:text; s:ansistring; l,max,code,i,n,j:longint; {===============================} function NTO(n:longint):boolean; var i:longint; begin if n ... −0.803(571428) Cán coi thi không giải thích thêm - Hết - Trang 2/2 HƯỚNG DẪN LÀM Bài 1: (6 điểm) DÂY XÍCH Ta thấy ngoại trừ thi t diện thi t diện cuối thi t diện nằm hình... không tính thi t diện Do đó, công thức tính chiều dài là: L := 2*r*n + 2*d var l:qword; n:qword; d,r:byte; f:text; begin assign(f,'BAI1.INP'); reset(f); read(f,d,r,n); close(f); l:=2*d+r*2*n; assign(f,'BAI1.OUT');... công) - Mật số nguyên tố nên ta viết hàm kiểm tra tính nguyên tố - Từ nhận xét ta viết chương trình cho toán const fi='Bai2.inp'; fo='Bai2.out'; var f:text; s:ansistring; l,max,code,i,n,j:longint;