SỞ GD - ĐT BẠC LIÊU TRƯỜNG THPT VÕ VĂN KIỆT TỔ: TIN - KTCN CHUYÊN ĐỀ: “NHỮNG BÀI TẬP XỬ LÍ MẢNG MỘT CHIỀU VÀ XỬ LÍ XÂU” (TÀI LIỆU BỒI DƯỠNG HSG) Giáo viên: NGUYỄN VĂN DƯỢC Lĩnh vực nghiên cứu: Phương pháp dạy học Năm học 2014 - 2015 SƠ LƯỢC LÝ LỊCH KHOA HỌC I THÔNG TIN CHUNG VỀ CÁ NHÂN: Họ tên: Nguyễn Văn Dược Ngày tháng năm sinh: 1985 Quê quán: Ấp Long Đức, thị trấn Phước Long, Phước Long, Bạc Liêu Nơi cư trú: Ấp Long Đức, thị trấn Phước Long, Phước Long, Bạc Liêu Điện thoại cá nhân: 0919653311 Chức vụ: giáo viên II TRÌNH ĐỘ ĐÀO TẠO: - Trình độ chuyên môn, nghiệp vụ: Đại học - Năm nhận bằng: 2007 - Chuyên ngành đào tạo: Sư phạm Toán – Tin học III KINH NGHIỆM KHOA HỌC: - Lĩnh vực chuyên môn có kinh nghiệm: giảng dạy - Số năm kinh nghiệm: Phần 1: ĐẶT VẤN ĐỀ - Trong cấu trúc đề thi học sinh giỏi cấp tỉnh môn tin học lớp 10, 11, 12 nhiều năm qua có dạng tập xử lí mảng chiều xử lí xâu, môn nội dung chủ yếu sử dụng để thi học sinh giỏi vòng tỉnh có lớp 11 Tuy nhiên với mức độ kiến thức sách giáo khoa chưa đủ kiến thức để sử dụng việc bồi dưỡng học sinh giỏi - Tôi viết đề tài NHỮNG BÀI TẬP XỬ LÍ MẢNG MỘT CHIỀU VÀ XỬ LÍ XÂU nhằm hệ thống hóa toàn kiến thức mảng chiều xâu với mức độ nâng cao để giáo viên học sinh sử dụng luyện học sinh giỏi - Trong thời gian tại, chưa có đề tài hay sáng kiến kinh nghiệm công bố nội dung phương tiện thông tin, tạp chí khoa học Thông qua đề tài muốn giới thiệu với thầy cô, học sinh hệ thống kiến thức tập xử lí mảng xử lí xâu Vận dụng đề tài giúp cho trình bồi dưỡng học sinh giỏi môn tin học nhiều thuận lợi hiệu Phần 2: NỘI DUNG A THỰC TRẠNG  Qua năm tham gia bồi dưỡng học sinh giỏi, nhận thấy: - Số lượng học sinh viết chương trình phần mảng phần xâu chưa nhiều - Khả nhận dạng, phân tích đề học sinh chưa chắn, đặc biệt phần sử dụng câu lệnh lúng túng, sai kiến thức cú pháp lẫn ngữ nghĩa  Nguyên nhân: - Bản chất viết chương trình môn học khó, trừu tượng, học sinh khó nắm kiến thức Học sinh muốn nắm kiến thức phải nắm vững kiến thức môn học, phải có kiến thức môn toán phải có đam mê - Sách giáo khoa viết nội dung xử lí mảng xử lí xâu chưa đủ kiến thức để em làm tốt thi học sinh giỏi Do giáo viên dạy bồi dưỡng phải có chương trình bồi dưỡng thường xuyên, tập hợp kiến thức, biên soạn tư liệu để học sinh tham khảo - Tài liệu ôn học sinh giỏi trường phổ thông chưa nhiều, đa số mang tính chấp nối tài liệu tham khảo Đa số kiến thức thi học sinh giỏi kiến thức sách tham khảo, giáo viên dạy bồi dưỡng phải lọc cho phù hợp với đối tượng học sinh đảm bảo mức độ đề thi học sinh giỏi - Học sinh kiểu học máy móc nhớ mảng cụ thể mà giáo viên dạy nên khó làm tốt tập tham gia thi học sinh giỏi  Biện pháp: - Nhận thức tầm quan trọng xử lí mảng xử lí xâu trình viết chương trình, biên soạn tập liên quan đến nội dung nhằm cung cấp kiến thức tảng nâng cao để phục vụ việc bồi dưỡng học sinh giỏi - Tôi tập hợp, sàn lọc kiến thức lí thuyết phù hợp, sưu tầm, biên soạn tập đưa số phương pháp làm tập để học sinh học tập, vận dụng làm tập nội dung B NỘI DUNG CHÍNH CỦA ĐỀ TÀI I CÁC DẠNG BÀI TẬP XỬ LÍ MẢNG MỘT CHIỀU * Dạng tập xếp Bài 1: Viết chương trình nhập vào số nguyên dương N dãy A gồm N số nguyên A1, A2, AN Hãy xếp dãy số cho số chẵn chia hết cho lên đầu dãy, số lẻ chia hết cho xuống cuối dãy, số lại dãy giữ thứ tự trước nhập vào In hình dãy trước sau xếp phần tử cách khoảng trắng Ví dụ: Input: 12 15 Output: Dãy trước xếp: 12 15 Dãy sau xếp: 12 15 Hướng dẫn viết chương trình: Program bai1; Uses crt; Var A: array[1 250] of integer; i, N: integer; Begin Clrscr; Write(‘nhap so luong phan tu N= ‘); readln(N); For i:= to N Begin Write(‘A[‘,I,‘] = ‘);readln(A[i]); End; Writeln(‘Day truoc sap xep‘); For i:= to N write(A[i], ‘ ‘); Writeln; Writeln(‘Day sap xep‘); For i:=1 to N If (A[i] mod 2=0) and (A[i] mod 3=0) write(A[i], ‘ ‘); For i:=1 to N If ((A[i] mod 2=0) and (A[i] mod 30)) or ((A[i] mod 20) and (A[i] mod 30)) write(A[i], ‘ ‘); For i:=1 to N If (A[i] mod 20) and (A[i] mod 3=0) write(A[i], ‘ ‘); Readln; End Bài 2: Cho dãy số nguyên A1, A2, AN (N max) then max:= A[i]; End; For i:=1 to N If (A[i] = min) then write(fo, A[i], ‘ ‘); For i:=1 to N If (A[i] = max) then write(fo, A[i], ‘ ‘); For i:=1 to N If (A[i] min) and (A[i] min) then write(fo, A[i], ‘ ‘); Close(fi); close(fo); End * Dạng tập xử lí phần tử mảng theo yêu cầu đề Bài 3: Cho dãy N số nguyên A1, A2, AN (0[...]... kiến thức về kiểu mảng và kiểu xâu Sưu tầm, biên soạn 10 bài tập với mức độ thi HSG lớp 10, 11 cấp tỉnh Trong phần bài tập này, đã được phân dạng, có hướng dẫn rõ ràng - Áp dụng vào chương trình bồi dưỡng học sinh giỏi lớp 10 và lớp 11 - Kết quả vận dụng chuyên đề khi ôn luyện học sinh giỏi năm: Kết quả năm 2013- 2014: + 01 giải khuyến khích HSG vòng tỉnh lớp 11 (em Thái Minh Tân) * Những kết luận trong... nghiên cứu: - Quá trình bồi dưỡng học sinh giỏi và dạy các lớp chọn điểm sáng ở năm học vừa qua, tôi nhận thấy: + Kiến thức của học sinh ngày càng được củng cố và phát triển sau khi hiểu nắm vững được bản chất của các chương trình + Niềm hứng thú, say mê trong học tập của học sinh càng được phát huy khi có tài liệu chuyên sâu để học sinh nghiên cứu Đặc biệt, việc phân dạng bài tập sẽ giúp học sinh có... tránh khỏi những thiếu sót nhất định Rất mong quí thầy cô và các bạn đóng góp ý kiến để bài viết sau được tốt hơn Xin chân thành cám ơn! Phước Long, ngày 23 tháng 02 năm 2015 Người viết Nguyễn Văn Dược TÀI LIỆU THAM KHẢO 1 Sách giáo khoa tin học 11 Hồ Sĩ Đàm chủ biên 2 Sách giáo viên tin học 11 Hồ Sĩ Đàm chủ biên 3 Bài tập thực hành Pascal Nguyễn Quang Vịnh 4 Một số sáng kiến kinh nghiệm và ý kiến của... xau s la: ‘,dem); Writeln(‘tu dai nhat trong xau s la: ‘,a); Writeln(‘xau viet theo chieu dao nguoc cac tu cua xau s la: ‘,t); Readln; End Bài 2: Cho 2 xâu P, Q nhập từ bàn phím Tìm xem xâu P có phải là xâu con xâu Q không? Nếu P là con xâu Q, hãy cho biết vị trí và số lần xuất hiện của P trong Q Hướng dẫn viết chương trình: Program bai2; Uses crt; Var P, Q: string; dem: byte; Begin Clrscr; Write(‘nhap... Q‘); Readln; End Bài 3: Viết chương trình nhập vào 1 xâu Đưa ra màn hình sau khi xoá các kí tự trùng nhau Hướng dẫn viết chương trình: Program bai3; Uses crt; Var s:string; i, j: byte; begin clrscr; write(‘nhap xau s: ‘);readln(s); write(s[1]); i:=2; while i