Ứng dụng của lập trình turbo PASCAL khi giải quyết các bài toán thực tế

SỞ GIÁO DỤC VÀ ĐÀO TẠO THANH HÓA TRƯỜNG THPT QUẢNG XƯƠNG SÁNG KIẾN KINH NGHIỆM ỨNG DỤNG CỦA LẬP TRÌNH TURBO PASCAL KHI GIẢI QUYẾT CÁC BÀI TỐN THỰC TẾ Người thực hiện: Nguyễn Thị Phượng Chức vụ: Giáo viên SKKN thuộc lĩnh vực: Tin học THANH HÓA NĂM 2021 MỤC LỤC Trang Mở đầu .………………………………….…………………… 1.1 Lý chọn đề tài………………………………… ………… 1.2 Mục đích nghiên cứu…………………………………………… 1.3 Đối tượng nghiên cứu …………………… …………………… 1.4 Phương pháp nghiên cứu………………… …………………… Nội dung ……………………………………………………… 2.1 Cơ sở lý luận………………………….………………………… 2.1.1 Khái niệm ứng dụng………………………………………… 2.1.2 Khái niệm lập trình …………………………………………… 2.2 Thực trạng vấn đề……………………… ……………………… 2.3 Giải pháp tổ chức thực hiện…………………….…………… 2.3.1 Ôn lại cấu trúc lặp, thao tác với mảng chiều thao tác với tệp…………………………………………………………………… 2.3.2 Một số toán thực tế…………………………………… 2.3.2.1 Sử dụng cấu trúc lặp để tính tiền gửi tiết kiệm ngân hàng… 2.3.2.2 Sử dụng lập trình turbo PASCAL để giải toán thống kê thực tế………………………………………… … 2.3.3 Tổng kết …………………………………………………… 2.4 Hiệu quả……………………………………………………… Kết luận kiến nghị .………………………………………… 3.1 Kết luận………………………………………………………… 3.2 Kiến nghị……………………………………………………… Tài liệu tham khảo ………………………………………………… 2 2 2 2 3 3 3 9 10 11 12 13 1 MỞ ĐẤU 1.1 Lý chọn đề tài Chương trình tin học lớp 11 học sinh làm quen với lập trình kiến thức trừu tượng với học sinh Đây mơn học ứng dụng bổ ích thời đại 4.0 Tuy nhiên học sinh vùng nơng thơn máy tính cịn hạn chế nên em chưa có phương tiện để phục vụ việc học tin học Học lập trình turbo PASCAL đa số học sinh thấy khó khăn diễn tả tả thuật toán sử dụng câu lệnh để mô tả Các em không nắm vững thao tác xử lí liệu Học sinh chưa thấy lập trình ứng dụng thực tế nao, mà học lí thuyết sng Học sinh chưa biết áp dụng lập trình để giải tốn thực tế hàng ngày xung quanh ta Với lí chọn đề tài: “Ứng dụng lập trình turbo PASCAL giải tốn thực tế” học lập trình - tin học lớp 11 1.2 Mục đích nghiên cứu: Giúp học sinh thấy mối quan hệ toán tin học với toán thực tế Biết áp dụng kiến thức học vào thực tế hàng ngày 1.3 Đối tượng nghiên cứu Học sinh lớp: 11B1, 11B2, 11B3 trường trung học phổ thông Quảng Xương II năm học 2020 -2021 1.4 Phương pháp nghiên cứu - Phương pháp ngiên cứu lý thuyết - Phương pháp điều tra thực tiễn - Phương pháp toán học so sánh NỘI DUNG 2.1 Cơ sở lý luận 2.1.1 Khái niệm ứng dụng: Ứng dụng khái niệm sử dụng phổ biến lĩnh vực đời sống xã hội loài người Ứng dụng áp dụng, vận dụng lí thuyết vào thực tiễn Ứng dụng lập trình turbo PASCAL cách sử dụng ngơn ngữ lập trình việc giải toán thực tế người 2.1.2 Khái niệm lập trình - Lập trình cách cách sử dụng cấu trúc liệu để mô tả thuật toán số toán 2.2 Thực trạng vấn đề Tin học ngày quan tâm vào thời đại công nghệ 4.0 khắp miền tổ quốc từ thành thị đến nông thôn, tất ứng dụng lĩnh vực sản phẩm trình lập trình sẵn Nhu cầu địi hỏi cần có kĩ sư cơng nghệ thơng tin lập trình Trường THPT Quảng Xương thành lập từ tháng năm 1967 Địa bàn nhà trường đóng vùng nơng thơn bảy xã miền đồng huyện Quảng Xương Các học sinh chủ yếu em nông thôn, nên việc trang bị máy tính riêng cho em gia đình khơng có Chỉ số em giáo viên, cơng chức có máy tính riêng nhà Nhà trường có phịng máy máy cũ lâu, thường xuyên hư hỏng nên số lượng máy Khi thực hành giáo viên thường xuyên phải chia ca thay thực hành Do máy nên em lên thực hành phải em sử dụng máy tính để thực hành Do đặc thù môn tin trường THPT vùng nông thôn thiếu thốn sở vật chất nên học sinh khám phá.Trong đề tài tơi viết nhằm tạo hứng thú, kích thích tinh thần học tập em thấy ứng dụng thực tế lập trình để giải tốn thực tế Đề tài nghiên cứu cho lớp 11B1, 11B2, 11B3 THPT Quảng Xương 2, năm học 2020-2021 sau: 2.3 Giải pháp cách tổ chức thực Với lí thực trạng nêu tơi xin trình bày giải pháp thực sau: 2.3.1 Ôn lại cấu trúc lặp, thao tác với mảng chiều thao tác với tệp Giáo viên hỏi: - Nhắc lại cấu trúc For To Do While…Do - Các thao tác với mảng chiều - Cách đọc liệu tệp HS trả lời: Giáo viên: Thâu tóm nội dung tập thực hành tổng hợp Cấu trúc lặp: - Lặp với số lần lặp biết trước: For := to < câu lệnh lặp >; - Lặp với số lần chưa biết biết điều kiện lặp: While < điều kiện> < câu lệnh>; Các thao tác với mảng chiều: - Khai báo mảng chiều: - Tham chiếu đến phần tử mảng Cách đọc liệu tệp - Read/readln(, ); 2.3.2 Một số toán thực tế 2.3.2.1 Sử dụng cấu trúc lặp để tính tiền gửi tiết kiệm ngân hàng Giáo viên: Trong thực tế, ta muốn gửi số tiền tiết kiệm vào ngân hàng sau thời gian có kì hạn ta rút đến đạt lượng tiền tiết kiệm định ta rút Từ hiểu biết lập trình em lập trình để giúp ngân hàng tính tiền hai trươờng hợp - Khi ngân hàng cho biết lãi suất hàng tháng ta hồn tồn tính lãi thu sau tháng theo công thức: tiền lãi = tiền gốc *lãi suất - Bài toán đặt ra: o Cho vay có kì hạn sau số tháng biết trước Tính tiền thu o Tính tiền thu số tháng cho vay Bài toán 1: Một gia đình có số tiền a (triệu đồng) đem gửi ngân hàng Lãi suất b% /tháng Tính số tiền thu sau t (tháng) Với a, b, t nhập từ bàn phím Giáo viên: Yêu cầu học sinh xác định: input, output Học sinh trả lời: - Input: số tiền ban đầu a, số tháng t, lãi suất b - Output: tổng tiền thu Giáo viên: Nêu cách tính tổng tiền sau tháng: - Tiền lãi:=tiền gốc*lãi suất/100 - Tổng tiền:=tiền gốc +tiền lãi a:=a+a*b/100 - Q trình tính thực tháng giống nên ta lặp lặp lại t lần Giáo viên: Yêu cầu học sinh nêu câu lệnh lặp để tính số tiền sau t tháng Học sinh: Nêu câu lệnh lặp Giáo viên: Yêu cầu học sinh hồn thành chương trình vào máy tính Chạy chương trình với liệu vào a,b,t giáo viên cho trước, quan sát kết trực tiếp hình Giáo viên: Chiếu chương trình mẩu Code chương trình Kết chạy chương trình HS: Quan sát kết chương trình mẩu so sánh với chương trình Kết quan sát trực quan giúp học sinh nhớ rõ thao tác, gây hứng thú học thực hành em Bài tập 2: Một gia đình có số tiền a (triệu đồng) đem gửi ngân hàng Lãi suất b% /tháng Cho vay đến số tiền thu đạt s (triệu đồng) Hỏi cho vay tháng số tiền thu bao nhiêu? Với a, b nhập từ bàn phím Giáo viên: Yêu cầu học sinh xác định Input output - Input: a,b,s - Output: tổng tiền, số tháng (t) Giáo viên: Yêu cầu học sinh so sánh giống khác tập tập Học sinh: Rút giống khác hai tập Giáo viên: Nhận xét thâu tóm ý kiến học sinh Phân tích thuật tốn tập - Giống nhau: o Cơng thức tính lãi hàng tháng: tiền lãi= tiền gốc*lãi suất/100 o Tổng tiền sau tháng: tổng tiền= tiền gốc+ tiền lãi o a:=a+a*b/100 - Khác nhau: Trong toán số tháng biết cịn tốn số tháng chưa biết biết số tiền bé s (triệu đồng) cịn cho vay Do ta sử dụng cấu trúc For…to…do Bài ta sử dụng cấu trúc While…Do Giáo viên: Yêu cầu học sinh viết đoạn lệnh lặp Học sinh: Trả lời Giáo viên: Nhận xét Đoạn lệnh: Giáo viên yêu cầu học sinh hồn thành vào máy tính Học sinh: Viết chương trình vào máy tính Giáo viên: Sửa lỗi cho học sinh chiếu chương trình mẩu Yêu cầu máy nhập input theo chương trình mẩu, quan sát so sánh kết Code chương trình Kết chạy chương trình Học sinh quan sát kết so sánh với kết với chương trình mình, sửa lổi kết khác 2.3.2.2 Sử dụng lập trình turbo PASCAL để giải toán thống kê thực tế Bài tập 3: Bình chọn qua điện thoại: Trong vịng chung kết thi “Vietnam Next Top Model” VTV3 thí sinh đánh số báo danh số ngun dương có giá trị khơng vượt q 1000 Khán giả xem truyền hình bình chọn cho thí sinh mà minh yêu thích cách nhắn tin qua điện thoại di động Ban tổ chức nhận tin nhắn hợp lệ n khán giả (các khán giả đánh số từ đến n) Khán giả thứ i bình chọn cho thí sinh mang số báo danh Hãy liệt kê số khán giả bình chọn thí sinh Dữ liệu: vào từ file VNMODEL.INP - Dòng 1: chứa số n - N dòng tiếp theo, dòng thứ i ghi số dương số báo danh thí sinh mà khán giả thứ i bình chọn Kết quả: Ghi vào tệp VNMODEL.OUT gồm n dịng dịng ghi sơ báo danh với số lần bình chọn ( số báo danh khơng bình chọn khơng liệt kê) Ví dụ: VNMODEL.INP 4 2 VNMODEL.OUT 1 2 Giáo viên: Yêu cầu học sinh xác định Input, output, nêu ý tưởng? Học sinh: Trả lời Giáo viên: Nhận xét phân tích tốn - Input: n, a1, a2,……an lấy từ tệp MODEL.INP - Out: liệt kê số báo danh với số lần chọn ghi vào tệp MODEL.OUT Giáo viên: - Yêu cầu học sinh nhắc lại thao tác với tệp ? - Câu lệnh đếm số lần xuất phần tử? Học sinh: Trả lời Giáo viên: Nhận xét - Lệnh đọc tệp: read/readln(, ); - Câu lệnh đếm: d:=d+1 Với toán này, số báo danh từ 1000 ta có 1000 biến đếm để đếm số lần xuất số báo danh Cần dùng mảng D[1 10000] để lưu trữ giá trị từ 1000 số lần xuất số nguyên Đoạn lệnh đọc tệp sau: For i:=1 to 1000 d[i]:=0; Readln(f,n); For i:=1 to n Begin Readln(f,x); D[x]:=d[x]+1; End; Giáo viên: u cầu học sinh hồn thành chương trình sửa lổi cho học sinh Học sinh: Thực gõ chương trình, chạy chương trình với input mẩu, so sánh output Giáo viên: Nhận xét chiếu chương trình mẩu để học sinh quan sát Code chương trình file Input, Output Học sinh quan chương trình Bài tập 4: Bình chọn qua điện thoại: Trong vòng chung kết thi “Vietnam Next Top Model” VTV3 thí sinh đánh số báo danh số ngun dương có giá trị khơng vượt q 1000 Khán giả xem truyền hình bình chọn cho thí sinh mà minh yêu thích cách nhắn tin qua điện thoại di động Ban tổ chức nhận tin nhắn hợp lệ n khán giả (các khán giả đánh số từ đến n) Khán giả thứ i bình chọn cho thí sinh mang số báo danh Hãy liệt kê số khán giả bình chọn thí sinh Dữ liệu: vào từ file VNMODEL.INP - Dòng 1: chứa số n - N dòng tiếp theo, dòng thứ i ghi số dương số báo danh thí sinh mà khán giả thứ i bình chọn Kết quả: Ghi vào tệp VNMODEL.OUT In số báo danh bình chọn nhiều theo thứ tự số báo danh tăng dần Ví dụ: VNMODEL.INP 3 2 VNMODEL.OUT Giáo viên: Nếu toán yêu cầu in số báo danh bình chọn nhiều theo thứ tự số báo danh tăng dần chương trình sửa nào? Giáo viên: Yêu cầu học sinh phân tích mối quan hệ Học sinh: Suy nghĩ trả lời Giáo viên: phân tích thuật tốn, tập liệt kê mảng d d[i]>0 cịn tìm giá trị i đạt giá trị lớn Thực chất tốn vị trí đạt max mảng D Yêu cầu học sinh sửa từ tập để hoàn thành tập Học sinh: thực sửa chương trình, chạy chương trình, quan sát kết Giáo viên: Nhận xét rút mối quan hệ toán, chiếu code tốn để học sinh quan sat Code chương trình file Input, Output 2.3.3 Tổng kết - Giáo viên tổng kết lại nội dung tiết thực hành: ứng dụng lập trình turbo PASCAL giải toán thực tế - Lấy ý kiến nhận xét tiết học thực hành 2.4 Hiệu Thông qua tiến hành nghiên cứu thực hành phòng máy lớp 11 nhà trường hai năm liên tục với đề tài:“ Ứng dụng lập trình turbo PASCAL giải toán thực tế” học lập trình - Tin học lớp 11 Tơi thu số kết quả: Các em biết ứng dụng lập trình để giải tốn thực tế, gây hứng thú cho học sinh u thích mơn học Giúp học sinh tìm tịi sáng tạo toán thực tế khác để ứng dụng lập trình Kết khảo sát thực hành lập trình turbo PASCAL - Tin học 11 ba lớp 10B1, 10B2, 10B3 trường THPT Quảng Xương 2, năm học 2020 -2021 kết thực hành chưa áp dụng đề tài Lớp Số máy Số học sinh 11A1 11A2 11A3 23 23 23 46 40 42 Số máy kết Sô máy kết chưa đúng Số Số Số Số học Tỉ lệ học Tỉ lệ máy may sinh sinh 12 24 52,1% 11 22 47,9% 11 21 52,5% 13 19 47,5,%% 13 25 62,5% 10 17 37,5% Kết khảo sát kiểm tra thực hành ba lớp 10B1, 10B2, 10B3 trường THPT Quảng Xương 2, năm học 2020-2021 kết thực hành áp dụng đề tài Sô máy kết chưa Số máy kết đúng Số Số Lớp học Số Số máy Số Số sinh học Tỉ lệ học Tỉ lệ máy may sinh sinh 11B1 22 44 19 38 86,3% 13,7% 11B2 23 45 17 34 75,5% 11 24,%% 11B3 21 42 15 30 71,4% 12 28,6% Đối chiếu kết thực năm học thấy sau áp dụng đề tài vào giảng dạy trường thông qua giảng dạy giáo án điện tử kết hợp với phịng máy tính đa số học sinh lớp nắm vững phần kiến thức học mục tiêu, yêu cầu đề Các em có tinh thần trách nhiệm, nhận thức đắn môn học, có nhiều hứng thú học tập tiết học Điều khẳng định tính phù hợp sáng kiến kinh nghiệm việc làm tài liệu tham khảo cho giáo viên học sinh KẾT LUẬN VÀ KIẾN NGHỊ 3.1 Kết luận Thông qua tiến hành nghiên cứu lớp 11 nhà trường hai năm liên tục với đề tài: “Ứng dụng lập trình turbo PASCAL giải tốn thực tế” học lập trình - Tin học lớp 11 tự nhận thấy: Đối với giáo viên, sáng kiến kinh nghiệm tài liệu có giá trị cơng tác giảng dạy Tin học 11 Giúp học sinh chủ động nghiên cứu, phát huy khả tư sáng tạo học sinh, qua hiểu sâu hơn, có hứng thú mơn học Giải tốn thực tế thơng qua lập trình Bước đầu tạo hứng thú cho em lập trình mức độ đơn giản, tiền đề để em nghiên cứu tiếp lập trình nâng cao vào đại học, cao đẳng Từ kết nghiên cứu, thân rút học kinh nghiệm sau: 10 Đối với giáo viên phải khơng ngừng tìm tịi, sáng tạo để nâng cao trình độ chun mơn nghiệp vụ sư phạm cho thân, phải ý việc phát triển tư duy, nâng cao hiểu biết cho học sinh, ham mê môn học ứng dụng môn học vào sống Đối với học sinh em muốn trở thành người có hiểu biết tồn diện phải có kiến thức tin học, em hiểu lập trình làm gi, ứng dựng lập trình thực tế hàng ngày Việc thực đề tài tạo hứng thú học tập cho học sinh, giúp học sinh thấy tầm quan trọng lập để giải toán thực tế hàng ngày Góp phần nâng cao hiểu biết, làm phát huy tư sáng tạo cho học sinh 11 3.2 Kiến nghị Tôi kiến nghị sở giáo dục hàng năm đưa sáng kinh nghiệm đạt giải cao để chúng tơi tham khảo, học hỏi kinh nghiệm Mong nhà trường cấp tạo điều kiện cho sở vật chất phòng máy tốt Để học sinh ngồi thực hành máy giúp em làm độc lập, giáo viên khơng phải chia ca thực hành Do cịn hạn chế trình độ hiểu biết chun mơn, đề tài chắn khơng tránh thiếu sót Rất mong nhận đóng góp ý kiến đồng nghiệp để đề tài tơi có hiệu Trên số kinh nghiệm suy nghĩ thân tôi, tránh khỏi khiếm khuyết Rất mong hội đồng khoa học, đồng nghiệp nghiên cứu, bổ sung góp ý để đề tài hồn thiện hơn, để kinh nghiệm tơi thực có ý nghĩa có tính khả thi Tơi xin chân thành cảm ơn! XÁC NHẬN CỦA THỦ TRƯỞNG ĐƠN VỊ Thanh hóa ngày 18/05/2021 Tơi xin cam đoan sáng kiến kinh nghiệm thân tơi viết, khơng chép nội dung người khác Người thực hiện: Nguyễn Thị Phượng 12 TÀI LIỆU THAM KHẢO SGK tin học 11, sách giáo viên tin học 11 - NXB Giáo dục Việt Nam - Năm 2013 Nguồn SKKN giáo án giáo viên môn tin Một số tài liệu mạng Internet 13 ... dụng lí thuyết vào thực tiễn Ứng dụng lập trình turbo PASCAL cách sử dụng ngơn ngữ lập trình việc giải toán thực tế người 2.1.2 Khái niệm lập trình - Lập trình cách cách sử dụng cấu trúc liệu... tục với đề tài:“ Ứng dụng lập trình turbo PASCAL giải tốn thực tế? ?? học lập trình - Tin học lớp 11 Tôi thu số kết quả: Các em biết ứng dụng lập trình để giải toán thực tế, gây hứng thú cho học... sng Học sinh chưa biết áp dụng lập trình để giải tốn thực tế hàng ngày xung quanh ta Với lí tơi chọn đề tài: ? ?Ứng dụng lập trình turbo PASCAL giải toán thực tế? ?? học lập trình - tin học lớp 11 1.2