Sáng kiến kinh nghiệm đề tài “một số biện pháp tăng cường năng lực lập trình pascal cho học sinh trường THCS lương thế vinh

33 8 0
Sáng kiến kinh nghiệm đề tài “một số biện pháp tăng cường năng lực lập trình pascal cho học sinh trường THCS lương thế vinh

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

Thông tin tài liệu

”Đề tài: “Một số biện pháp tăng cường lực lập trình Pascal cho học sinh trường THCS Lương Thế Vinh” I.PHẦN MỞ ĐẦU I.1 Lý chọn đề tài N hư biết, giai đoạn máy tính điện tử nhanh chóng thâm nhập vào lĩnh vực sản xuất, kinh tế đời sống xã hội Tin học ứng dụng rộng rãi lĩnh vực từ ngành khoa học xác, khoa học đến điều khiển tự động, thông tin liên lạc, Ðặc biệt tin học sử dụng nhiều công tác quản lý quản lý sản xuất, quản lý người, quản lý tài nguyên, Tin học xem ngành mũi nhọn, chiếm vị trí hàng đầu sách kinh tế khoa học kỹ thuật nước phát triển Chính việc giáo dục tin học trường phổ thơng có vai trị quan trọng việc giáo dục nhằm chuẩn bị cho hệ trẻ Việt Nam mặt tri thức, kỷ năng, mặt lực, trí tuệ phẩm chất cần thiết giúp học sinh thích ứng với thời đại vi tính hóa Giúp cho học sinh sau tốt nghiệp nắm số yếu tố tin học Trong có số em có khả sử dụng máy tính để xử lý thơng tin, dùng máy tính cơng cụ phục vụ cho việc học tập hoạt động Xét mặt lực, trí tuệ: Giúp phát triển nhiều phương thức, tư liên hệ mật thiết với việc sử dụng kỹ thuật xử lý thông tin như: tư thuật tốn, tư điều khiển, tư ngơn ngữ, Ðồng thời hình thành phát triển lực hoạt động trí tuệ nói chung phân tích, tổng hợp, khái quát hóa, trừu tượng hóa, Để xử lí thơng tin tốt để nâng cao lực học tập cho học sinh việc học ngơn ngữ lập trình pascal nhiệm vụ quan trọng Tuy nhiên học sinh gặp phải nhiều khó khăn lập trình Pascal học sinh chưa chủ động rèn luyện cách trình bày thuật tốn, lập luận, kiến thức áp dụng trình lập trình nên dẫn đến thụ động, rập khn, thiếu tính sáng tạo Do đó, học sinh mau qn kĩ Trong thực tế, theo chủ quan cá nhân tôi, thấy điều việc dạy lập trình Pascallà tìm phương pháp dạy cho học sinh hiểu tự giải tập quen thuộc, cách rõ ràng, ngắn gọn, để từ học sinh liên tưởng, tìm tịi, vận dụng vào tập liên quan dạng Vậy, làm để học sinh khắc sâu vận dụng kiến thức học để lập trình Pascal? Để trả lời câu hỏi này, tơi viết sáng kiến kinh nghiệm tìm hiểu “Một số biện pháp tăng cường lực lập trình Người viết: Đinh Thị Thiên Nga Trường THCS Lương Thế Vinh Trang ”Đề tài: “Một số biện pháp tăng cường lực lập trình Pascal cho học sinh trường THCS Lương Thế Vinh” Pascal cho học sinh trường THCS Lương Thế Vinh”, với mong muốn qua nội dung sáng kiến kinh nghiệm này, giúp em tăng cường lực lập trình Pascal cách dễ dàng nhất, hiệu Hi vọng với kinh nghiệm tích lũy thân, với ý kiến đóng góp đồng nghiệp địa bàn huyện, tổ chuyên môn, ban giám hiệu nhà trường, cán phòng giáo dục, … đề tài giúp giáo viên giảng dạy mơn tin học địa bàn huyện có nhìn tổng qt hơn, có định hướng tốt thực nhiệm vụ mà ngành giao phó Hi vọng thầy đón nhận đề tài này, để có thêm tài liệu phục vụ giảng dạy môn tin học nhà trường THCS Tuy nhiên, thân tơi nhận thấy đề tài khó tránh khỏi sai thiếu xót định Do đó, tơi mong nhận ý kiến đóng góp quý thầy giáo, quản lí cấp, … Mọi ý kiến đóng góp xin gửi địa e – mail: dinhthithiennga@moet.edu.vn Tôi xin chân thành cảm ơn! I.2 Mục tiêu, nhiệm vụ đề tài Giúp học sinh nắm cách trực quan, sinh động Nhằm phát học sinh giỏi tin học cấp trường lập trình pascal Giúp học sinh học tập tích cực, chủ động, bồi dưỡng tư duy, sáng tạo, rèn luyện kĩ học lập trình pascal Tiếp tục bồi dưỡng đội ngũ học sinh giỏi cấp trường để học sinh tham gia kì thi học sinh giỏi cấp huyện, cấp tỉnh lập trình pascal Đào tạo môi trường giáo dục phù hợp với xu thế tại, đáp ứng kịp thời đòi hỏi thiết ́u thời kì cơng nghiệp hóa - đại hóa đất nước I.3 Đối tượng nghiên cứu Học sinh khối 8, học sinh lớp trường THCS Lương thế vinh Học sinh đội tuyển học sinh giỏi tin học cấp trường THCS Lương Thế Vinh I.4 Giới hạn phạm vi nghiên cứu Đối tượng mũi nhọn hạn chế I.5 Phương pháp nghiên cứu Phương pháp nêu vấn đề giải quyết vấn đề Phương pháp minh họa trực quan Phương pháp phân tích tổng hợp Phương pháp so sánh Tìm tịi, nghiên cứu tài liệu, rút kinh nghiệm từ thân, đồng nghiệp II PHẦN NỘI DUNG II.1 CƠ SỞ LÝ LUẬN CỦA VẤN ĐỀ Người viết: Đinh Thị Thiên Nga Trường THCS Lương Thế Vinh Trang ”Đề tài: “Một số biện pháp tăng cường lực lập trình Pascal cho học sinh trường THCS Lương Thế Vinh” - Đổi phương pháp dạy học theo định hướng tích cực hóa hoạt động học tập học sinh mơn tin học địi hỏi hai mặt học lý thuyết kĩ thực hành - Cốt lõi việc đổi phương pháp dạy học giúp học sinh hướng tới việc học tập chủ động, chống lại thói quen học tập thụ động; học sinh say mê, hứng thú học tập cách tích cực, tự giác sáng tạo - Việc dạy học phải bám sát vào chuẩn kiến thức, kĩ chương trình giáo dục phổ thơng để xác định mục tiêu học, trọng dạy học nhằm đạt yêu cầu tối thiểu kiến thức, kĩ năng, đảm bảo không tải; mức độ khai thác sâu kiến thức, kĩ phải phù hợp với khả tiếp thu kiến thức học sinh; sáng tạo phương pháp dạy học, phát huy tính chủ động, tích cực, tự giác học sinh tạo niềm vui, phấn khởi, nhu cầu hành động thái độ tự tin học tập cho học sinh; dạy học thể mối quan hệ tích cực giáo viên với học sinh, học sinh với học sinh, trọng đến việc động viên, khuyến khích kịp thời tiến độ học sinh q trình học, … - Việc học ngơn ngữ lập trình Pascal giúp cho học sinh có tư khoa học, logic, tác phong sáng tạo, say mê học tập II.2 THỰC TRẠNG CỦA VẤN ĐỀ a Thuận lợi – khó khăn Thuận lợi: Bộ mơn tin học ngành giáo dục quan tâm, có đạo kịp thời, quan tâm bồi dưỡng chuyên môn thường xuyên, sở vật chất tương đối đảm bảo: phòng máy tính để dạy thực hành, máy chiếu, … Bộ mơn Tin học cấp huyện, cấp tỉnh tổ chức kì thi học sinh giỏi cấp huyện, tỉnh liên tục từ năm 2012 – 2013 đến với mơn văn hóa khác Từ tạo phấn khởi cho học sinh, phụ huynh giáo viên Từ tổ môn đến ban giám hiệu nhà trường thực quan tâm đến môn tin học, tạo điều kiện khả tổ, nhà trường Được tư vấn chuyên viên công nghệ thơng tin phịng giáo dục huyện CưMgar Đội ngũ giáo viên mơn Tin học nhìn chung cịn trẻ, đầy nhiệt huyết, yêu nghề mến trẻ Bản thân từ ngày đầu đứng bục giảng thực quan tâm đến đề tài Sáng kiến kinh nghiệm thân ấp ủ, chuẩn bị từ ngày đầu năm học 2012 – 2013 đến , trao đổi kiến thức kinh nghiệm với đồng nghiệp, tham khảo học hỏi mạng internet nên thân phần tự tích lũy cho vốn kiến thức nho nhỏ đảm bảo cho sáng kiến kinh nghiệm hồn thành Khó khăn: Người viết: Đinh Thị Thiên Nga Trường THCS Lương Thế Vinh Trang ”Đề tài: “Một số biện pháp tăng cường lực lập trình Pascal cho học sinh trường THCS Lương Thế Vinh” Lập trình Pascal nhìn chung mơn học khó so với học sinh liên quan đến tư học sinh Nhìn chung mơn học khơ khan, khó hiểu, việc học học sinh cịn mang tính mơ hồ Giáo viên cịn gặp nhiều khó khăn đặt câu hỏi “Làm để truyền thụ kiến thức cho học sinh cách rõ ràng sâu rộng nhất” Năng lực học tập học sinh mơn học khác cịn so với mục tiêu chung giáo dục nên việc học lập trình học sinh khó khăn Cịn nhiều học sinh chưa đổi phương pháp học tập, việc học tập thụ động, chưa tự giác học tập em học sinh khối có thay đổi tâm sinh lí lứa tuổi, tính tự giác học tập em chưa cao, muốn em áp dụng kiến thức học vào tập cụ thể giáo viên phải trình bày tập mẫu, chỉnh sửa, uốn nắn nhiều, em hiểu nắm kiến thức, song nhiều em có rèn luyện, tự học nên việc lưu giữ kiến thức hạn chế, mau nhớ kiến thức quên nhớ khơng xác kiến thức học Sự đánh giá kết học tập học sinh trường THCS, THPT chưa đồng bộ; Việc coi kiểm tra, chấm kiểm tra cịn chưa chặt chẽ nên có nhiều học sinh chưa đạt so với mục tiêu mơn kết cuối kì, cuối năm cao Chính chưa thể phát huy tính tính cực cho học sinh học tập môn Tin học Nhìn chung việc kiểm tra đánh giá học sinh cịn chưa đạt chức xác định (chính xác, khách quan, công bằng), mà thiên chức điều khiển (thiên bệnh thành tích cảm tính) b Thành công – hạn chế Thành công:  Mang lại hứng thú học tập cho học sinh chuyên đề  Học sinh học tập tích cực, phát triển lực tư duy, tìm tịi  Một số học sinh thành công học tập, khẳng định qua kì thi học sinh giỏi cấp trường, cấp huyện, cấp tỉnh, có học sinh tham dự vào đội tuyển học sinh giỏi quốc gia kì thi tin học trẻ khơng chun, đặc biệt năm học 2017 – 2018 hướng dẫn hai học sinh làm khoa học kĩ thuật cấp huyện đạt giải khuyến khích, có ba học sinh tham dự học sinh giỏi cấp huyện (một học sinh đạt giải khuyến khích, hai học sinh đạt giải ba) Hạn chế:  Nhiều phụ huynh học sinh cịn có nhìn chưa tổng quan học tập em mình, nhiều phụ huynh nghĩ đơn giản học tin học để soạn thảo văn bản, truy cập Internet, … nhiều học sinh bỏ học mà lướt web ầm ầm, … phụ huynh khơng hình dung mơn học tư cho học sinh, Chính vậy, việc chọn đối tượng học sinh giỏi thực mơn tin học cịn gặp nhiều khó khăn Người viết: Đinh Thị Thiên Nga Trường THCS Lương Thế Vinh Trang ”Đề tài: “Một số biện pháp tăng cường lực lập trình Pascal cho học sinh trường THCS Lương Thế Vinh”  Học sinh khối có thay đổi tâm sinh lí lứa tuổi, tập trung học, nhiều em chưa tập trung việc học làm lớp nhà, giảm chất lượng kĩ “nghe – ghi – nghĩ – nói” học Vì thế, lực tư logic em chưa thật tốt Vì thế, việc áp lý thuyết để lập trình nhiều mảng kiến thức khác em điều lạ lẫm, khó khăn Hầu hết có học sinh khá, giỏi tự làm hướng gần trọn vẹn yêu cầu đề lập trình c Mặt mạnh – Mặt yếu Mặt mạnh Đã đưa nhiều giải pháp thiết thực để tiết học lập trình thực mang lại hiệu quả;Từ tìm học sinh giỏi môn để bồi dưỡng, ôn luyện thêm cho học sinh Đây vấn đề hay dạy lập trình Pascal, vận dụng rộng rãi, có giá trị sử dụng lâu dài tiếp tục mở rộng theo hướng chuyên sâu Nội dung phần kiến thức ngắn gọn song bao hàm áp dụng trực tiếp vào giảng dạy lớp dạy tạo nguồn kiến thức bồi dưỡng học sinh giỏi tin học cấp trung học sở Mặt yếu: Cách bày số nội dung gây cho học sinh lối mịn học sinh khơng thật chăm chỉ, thụ động Nhiều tập nâng cao dễ làm cho học sinh mắc sai lầm suy nghĩ, thuật tốn, lập trình d Các ngun nhân, yếu tố tác động Có thể nói giảng dạy tiết dạy thực hành, thực tế người dạy phải trăn trở rất nhiều vấn đề: o Phải dạy nào? Bố cục để việc học thực hành học sinh đạt hiệu quả? Làm để yêu cầu học sinh viết thuật toán? Làm để học sinh tìm thuật tốn viết chương trình? Học sinh đọc hiểu câu lệnh chương trình sao? o Thực tế cho thấy có nhiều nguyên nhân, nhiều yếu tố tác động tạo nên khó khăn, hạn chế nêu Trước hết phải kể đến ý thức tự giác học tập người học chưa cao, khả tự học, tự rèn học sinh giảm sút nhiều, học sinh bị thụ động “bão hịa” kiến thức học thêm, học ôn nhiều môn học Nhiều học sinh chăm ngoan, học giỏi, có ý thức rèn luyện tự học cao Các em có suy nghĩ sáng tạo làm tập khó làm tập sai động lực để em tâm tự làm lại cho chưa nhiều, chờ đợi giáo viên sửa Một điều việc lưu giữ (quá trình ghi nhớ), tái (trình bày lời viết) học sinh chưa tốt, em lười học làm tập nhà, chí nhiều em làm tập đối phó, chiếu lệ cho xong Người viết: Đinh Thị Thiên Nga Trường THCS Lương Thế Vinh Trang ”Đề tài: “Một số biện pháp tăng cường lực lập trình Pascal cho học sinh trường THCS Lương Thế Vinh” II.3 GIẢI PHÁP, BIỆN PHÁP a MỤC TIÊU CỦA GIẢI PHÁP, BIỆN PHÁP  Rèn luyện khả tư cho học sinh, giúp học sinh học tập chủ động, tích cực  Đáp ứng yêu cầu việc đào tạo người thời đại cơng nghiệp hóa, đại hóa đất nước  Do yêu cầu phương pháp dạy học có thay đổi so với phương pháp dạy học truyền thống, phải đảm bảo tính chủ đạo thầy chủ động trò; thầy hướng dẫn, điều khiển, đồng thời kích thích hứng thú học tập em để em tự giác, tích cực chiếm lĩnh tri thức nhân loại cho thân Để tăng cường lực lập trình cho em sử dụng phối kết hợp nhiều phương pháp dạy học như: Đặt vấn đề, đàm thoại - gợi mở, trực quan, vấn đáp, sơ đồ tư để tạo niềm phấn khích em… để em tiếp thu kiến thức cách tốt b NỘI DUNG VÀ CÁCH THỨC THỰC HIỆN GIẢI PHÁP, BIỆN PHÁP - Trước hết giáo viên cần truyền đạt cho học sinh nắm vững chuẩn kiến thức, kĩ môn tin học trung học sở phần lập trình đơn giản biết khái niệm tốn, thuật tốn, mơ tả thuật toán cách liệt kê bước sơ đồ khối; Ví dụ 1: thuật tốn tính tổng s=1+2+…+99+100 Ý tưởng: Người viết: Đinh Thị Thiên Nga Trường THCS Lương Thế Vinh Trang ”Đề tài: “Một số biện pháp tăng cường lực lập trình Pascal cho học sinh trường THCS Lương Thế Vinh” THUẬT TOÁN: INPUT: DÃY CÁC SỐ: 1,2, …,99,100 OUTPUT: Giá trị tổng s= 1+2+…+99+100 Cách 1: Bước S0 Bước Ss+1 … Bước 101 Ss+100 Cách Bước S0; i0 Bước ii+1 Bước Nếu in, chuyển đến bước Bước Nếu ai>max Max quay lại bước Bước Kết thúc thuật toán - Rồi từ thuật toán chuyển thành chương trình Pascal ngơn ngữ lập trình Pascal nào? -> Học sinh cần phải biết ngơn ngữ lập trình Pascal-> tiếp đến giáo viên cần rõ cho học sinh hiểu phần mềm để soạn thảo chương trình, đồng thời cho phép dịch thực chương trình gọi mơi trường lập trình, vi dụ rõ cho học sinh, để soạn thảo chương trình ngơn ngữ lập trình Pascal, ta sử dụng môi trường Turbo Pascal - - Free Pascal Có thuật tốn để tiếp tục chuyển thành chương trình Pascal giáo viên cần cho học sinh biết sơ ngơn ngữ lập trình Pascal; Biết cấu trúc chương trình Pascal; Các thành phần sở ngơn ngữ lập trình Pascal; Cho học sinh hiểu số kiểu liệu chuẩn, cách khai báo biến, biểu thức quan câu lệnh lập trình Một số nội dung cần cho học sinh nắm được: Một số kiểu liệu ngơn ngữ lập trình pascal (Chú ý học giáo viên yêu cầu học sinh khai báo liệu kiểu integer, real, char, string không bắt buộc học sinh phần mở rộng) Giáo viên mở rộng thêm: kiểu nguyên: Kiểu Bộ nhớ lưu trữ giá trị Byte byte Integer byte Word byte Longint byte kiểu thực: Người viết: Đinh Thị Thiên Nga Phạm vi giá trị Từ đến 255 Từ -215 đến 215-1 Từ đến 216-1 Từ -231 đến 231-1 Trường THCS Lương Thế Vinh Trang ”Đề tài: “Một số biện pháp tăng cường lực lập trình Pascal cho học sinh trường THCS Lương Thế Vinh” Kiểu Bộ nhớ lưu trữ giá trị Phạm vi giá trị Real byte Extended 10 byte có giá trị tuyệt đối nằm phạm vi từ -39 2.9 x10 đến 1038 có giá trị tuyệt đối nằm phạm vi từ -4932 10 đến 104932 kiểu kí tự: Kiểu Bộ nhớ lưu trữ giá trị Phạm vi giá trị Char byte kiểu logic: Kiểu Bộ nhớ lưu trữ giá trị Boolean 256 kí tự mã ASCII Phạm vi giá trị byte True False Ngồi ra, bên Free Pascal cịn có thêm: INT64 phạm vi từ -263 đến 263-1; Qword phạm vi từ -264 đến 264-1; phần dành cho liệu với phậm vi lớn – Các phép toán quan hệ (cịn gọi phép tốn so sánh) TÊN VIẾT TRONG PASCAL Nhỏ < Nhỏ Lớn >= Bằng = Khác Các phép toán quan hệ cho giá trị kiểu logic: True False; dung để so sánh đưa định hướng lập trình – Các phép tốn logic: TÊN VIẾT TRONG PASCAL Phủ định Not Hoặc Or Và And Các phép toán logic thường dung để kết hợp nhiều biểu thức quan hệ với Biểu thức số học: – Là dãy phép toán +, -, *, /, Div, Mod từ hằng, biến kiểu số hàm – Dùng cặp dấu ( ) để quy định trình tự tính tốn Thứ tự thực phép tốn: – Trong ngoặc trước, ngồi ngoặc sau – Nhân chia trước cộng trừ sau – Giá trị biểu thức có kiểu kiểu biến có miền giá trị lớn biểu thức Một số câu lệnh cần nắm lập trình Pascal: Lệnh xuất liệu Write(‘dữ liệu’); In liệu hình trỏ nằm liền kề Writeln(‘dữ liệu’); Người viết: Đinh Thị Thiên Nga Trường THCS Lương Thế Vinh Trang 10 ”Đề tài: “Một số biện pháp tăng cường lực lập trình Pascal cho học sinh trường THCS Lương Thế Vinh” Ví dụ minh họa hai vịng lặp while …do… repeat…until… áp dụng viết chương trình tính tổng s=1+2+3+…+n (n số nguyên nhập từ bàn phím) Làm việc với dãy số ….(var A:array[chỉ số đầu số cuối] of kiểu liệu;) - Nhập liệu cho mảng a gồm n phần tử For i:=1 to n Người viết: Đinh Thị Thiên Nga Trường THCS Lương Thế Vinh Trang 19 ”Đề tài: “Một số biện pháp tăng cường lực lập trình Pascal cho học sinh trường THCS Lương Thế Vinh” Begin Write(‘a[‘,I,’]=’); Readln(a[i]); End; - Truy cập đến phần tử mảng a: a[chỉ số phần tử]; Bài tập minh họa cho phần dãy số: Viết chương trình nhập vào mảng n số nguyên ( 6 b+c) and (b>a+c) and (c>b+a) Kiểm tra tam giác cách xem cạnh có hết hay khơng? (a=b=c; “(a=b) and (b=c) and (a=c)”) Nếu khơng xuống kiểm tra tam giác cân? Kiểm tra xem tam giác cân cách xem có hai cạnh nà hay không? (a=b) or (a=c) or (b=c) Nếu tam giác cân xuống kiểm tra tam giác vng? Kiểm tra tam giác vng (dựa vào định lí: Pitago): (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) Người viết: Đinh Thị Thiên Nga Trường THCS Lương Thế Vinh Trang 22 ”Đề tài: “Một số biện pháp tăng cường lực lập trình Pascal cho học sinh trường THCS Lương Thế Vinh” dạng sử dụng nhiều lệnh if … then …lồng Dạng tập sử dụng câu lệnh lặp for… to Bài tốn : Viết chương trình tính tổng s = 52 + 62 + + 192 (n nhập từ bàn phím) Nhận xét Trong biểu thức tính tổng trên, số hạng thứ i tổng tính theo cơng thức S(i) = i*i (i=5,6, ,19) Chương trình viết sau: Var S,i:integer; Begin S:=0; For i:=5 to 19 s:=s +i*i; Writeln(‘Tong =’,s); Readln;End Một số tập khác, tuỳ theo đối tượng học sinh mà giáo viên yêu cầu học sinh làm cho phù hợp S=1+2-3+4-5+…-n (n số lẻ ; n>=3) S = n! = 1*2* *n {n giai thừa} 3 S= + x + x /2! + x /3! + + xn/n! Chú ý: Giáo viên cho học sinh nhà làm tập trên, có chỗ chưa hiểu giáo viên hướng dẫn sau Dạng tập sử dụng câu lệnh while …do Bài tốn 1: Viết chương trình tính tổng ( u cầu khơng sử dụng câu lệnh lặp for … to …do ) S = 12 + 13 + … + 59 Cách Dùng lệnh while … … Var S,i: integer; begin s:=0; i:=12; while (i59); write(‘Tong =’,s); readln;end Bài tốn 2: Viết tìm n bé cho tổng s>4 1 S = + + + n Nhận xét: - Trong biểu thức trên, số hạng thứ i tổng có thể tính theo cơng thức S(i) = 1/ i với (i=1,2, ,n) - Điều kiện để dừng vòng lặp tổng S phải lớn Var i : Integer; S:Real; Begin S:=0; i:=0; While (S < =4) Begin i := i + 1; S := S + 1/i ; End; Writeln( ' n be nhat =’,i); Người viết: Đinh Thị Thiên Nga Trường THCS Lương Thế Vinh Trang 24 ”Đề tài: “Một số biện pháp tăng cường lực lập trình Pascal cho học sinh trường THCS Lương Thế Vinh” Readln;End Dạng tập mảng - Nhập xuất mảng, tính tốn với phần tử mảng, xếp mảng, đếm phần tử mảng, tìm kiếm phần tử mảng, số phương số nguyên tố mảng, …, ghép mảng Bài tốn : Viết chương trình nhập vào dãy số nguyên gồm n phần tử a) Sắp xếp mảng theo thứ tự tăng dần b) In hình số phương có mảng c) In hình số ngun tố có mảng (Giáo viên chú ý cho học sinh, Bài dùng chương trình việc giải tốn gọn hơn; nhiên thời điểm ta giải tốn bằng kiến thức sở đã học; Ở tiết ôn luyện sau ta sử dụng chương trình để làm) Chương trình viết sau: Var a:array[1 100] of INT64; n,i,j,kt:integer; begin write(‘nhap so phan tu cua mang n =’);readln(n); for i:=1 to n begin write(‘a[‘i,’]=’); readln(a[i]); end; writeln(‘ cau a ‘); for i:=1 to (n-1) for j:=i+1 to n If (a[i]>a[j]) then Begin Tam:=a[i]; A[i]:=a[j]; A[j]:=tam; End; Writeln(‘Day so duoc sap xep theo thu tu tang dan: ‘); Người viết: Đinh Thị Thiên Nga Trường THCS Lương Thế Vinh Trang 25 ”Đề tài: “Một số biện pháp tăng cường lực lập trình Pascal cho học sinh trường THCS Lương Thế Vinh” For i:=1 to n write(a[i],’ ‘); Writeln; Writeln(‘ - cau b -‘); Writeln(‘Cac so nguyen to co day: ‘); For i:=1 to n Begin Kt:=0; For j:=2 to trunc(sqrt(a[i]) ) If (a[i] mod j = 0) then kt:=1; If (kt =0) then write(a[i],’ ‘); End; Writeln; Writeln(‘ -cau c -‘); Writeln(‘Cac so chinh phuong co day: ‘); For i:=1 to n For j:=1 to (trunc(sqrt(a[i]) +1) If (j*j = a[i]) then write(a[i], ‘ ‘); Readln; End Tuỳ theo đối tượng học sinh giáo viên cho thêm số toán tựơng tự số dạng tốn mảng Ví dụ như: Cho mảng số nguyên n phần tử (n

Ngày đăng: 19/01/2022, 10:57

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan