THÔNG TIN TÀI LIỆU
A PHẦN I: ĐẶT VẤN ĐỀ 1) Lý chọn đề tài: Sự phát triển mạnh mẽ vũ bão Tin học làm cho xã hội có nhiều nhận thức cách tổ chức hoạt động Nhiều quốc gia giới ý thức rõ tầm quan trọng tin học có đầu tư lớn cho lĩnh vực này, đặc biệt giáo dục nâng cao dân trí Tin học đào tạo nguồn nhân lực có chất lượng cao Người Việt Nam có nhiều tố chất thích hợp với ngành khoa học này, hi vọng sớm hoà nhập với khu vực giới Trong thời đại thông tin bùng nổ ngày nay, việc lập chương trình tự hoạt động cho máy tính, máy gia dụng cần thiết Và để làm việc cần có q trình nghiên cứu, học tập ngơn ngữ lập trình lâu dài, qua nhà lập trình chọn ngơn ngữ lập trình thích hợp Song mơn Tin học bậc Trung học sở môn học tự chọn Do mà môn Tin học bậc THCS xây dựng giả thiết môn học nên học sinh phải học lại từ đầu Vả lại môn tin học nhằm cung cấp cho học sinh kiến thức ngành khoa học Tin học, hình thành phát triển khả tư thuật toán, lực sử dụng thành tựu ngành khoa học học tập lĩnh vực hoạt động sau Đặc biệt kiến thức trang bị cho học sinh cách tương đối có hệ thống khái niệm mức THCS tin học, ngành khoa học với đặc thù riêng, kiến thức hệ thống, thuật tốn, cấu trúc liệu, lập trình, … Về kỹ học sinh bước đầu biết sử dụng máy tính, biết soạn thảo văn bản, biết sử dụng Internet, khai thác phần mềm thông dụng, giải tốn đơn giản máy tính Cịn thái độ rèn luyện cho học sinh phong cách suy nghĩ làm việc khoa học ham hiểu biết, tìm tịi, sáng tạo, chuẩn mực xác suy nghĩ hành động, say mê môn học, cẩn thận công việc, hợp tác tốt với bạn bè Tin học môn học trường THCS nên học sinh nhiều bỡ ngỡ tiếp cận với môn học Nội dung tin học lập trình lớp nội dung lạ học sinh với nhiều khái niệm, thuật ngữ, cấu trúc download by : skknchat@gmail.com liệu mà học sinh tiếp xúc lần đầu Tuy nhiên thứ điều có điểm khởi đầu nó, với học sinh việc học ngơn ngữ lập trình Turbo Pascal khởi đầu cho việc tiếp cận ngơn ngữ lập trình bậc cao, qua giúp em hình dung đời, cấu tạo, hoạt đơng ích lợi chương trình hoạt động máy tính, máy tự động… Qua giúp em có thêm định hướng, niềm đam mê Tin học, nghề nghiệp mà em chọn sau Xuất phát từ sở trên, chọn đề tài “Vận dụng Pascal giải số tốn” 2) Mục đích nghiên cứu: Do gặp phải tốn khó nên giải em gặp nhiều khó khăn, đơi dẫn đến nản chí, cho em lập trình giải tốn máy tính, gây hứng thú tìm tịi học tập Vì nội dung đề tài giới thiệu việc lập trình giải vài tốn tốn học để giúp cho học sinh lớp 8,9 Tuy vậy, đối tượng học sinh giỏi, đa phần em hào hứng với việc học lập trình, cụ thể ngơn ngữ lập trình Turbo Pascal Do đó, đề tài giúp học sinh có thêm kĩ lập trình Pascal thơng qua số ví dụ từ đến nâng cao thích với đối tượng học sinh 3) Phạm vi đề tài: Các ý dạy ngơn ngữ lập trình nói chung, ngơn ngữ lập trình Turbo Pascal nói riêng nhiều, phong phú Tuy nhiên phạm vi sáng kiến kinh nghiệm tơi trình bày số kinh nghiệm cá nhân qua số tập cụ thể 4) Đối tượng, kế hoạch phạm vi nghiên cứu: Đối tượng nghiên cứu: học sinh lớp 8A, 8B, 8C trường THCS Đỉnh Bàn năm học 2015 - 2016 Kế hoạch nghiên cứu: tiết tập thực hành Phạm vi nghiên cứu: tồn chương trình tin học lớp B PHẦN II CHƯƠNG I: TỔNG QUAN NỘI DUNG Cơ sở lí luận: download by : skknchat@gmail.com skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan Trong bối cảnh toàn ngành Giáo dục Đào tạo nổ lực đổi skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan download by : skknchat@gmail.com skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan phương pháp dạy học theo hướng phát huy tính tích cực chủ động học sinh hoạt động học tập Điều 24.2 Luật giáo dục nêu rõ : “Phương pháp giáo dục THCS phải phát huy tính tích cực, tự giác, chủ động, sáng tạo học sinh, phù hợp với đặc điểm lớp học, môn học; bồi dưỡng phương pháp tự học, rèn luyện kỹ vận dụng kiến thức vào thực tiễn, tác động đến tình cảm, đem lại niềm vui, hứng thú học tập cho học sinh” Như vậy, thấy định hướng đổi phương pháp dạy học khẳng định, khơng cịn vấn đề tranh luận Cốt lõi việc đổi phương pháp dạy học THCS 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 Với số nội dung đề tài này, học sinh tự học, tự rèn luyện thông qua số tập, dạng tập cụ thể Cơ sở thực tiễn: Qua thực tế giảng dạy trường THCS Đỉnh Bàn năm qua, nhận thấy học đến chương trình tin học lớp đa số học sinh nhận xét mơn khó gây hứng thú giải toán tốn học máy tính với nhiều test khác Nhiều học sinh tỏ thích thú lập trình để giải tốn cho chạy kết Từ hăng say lập trình giải bải tốn khó Bằng cách giúp phần cho em việc học tốn, mơn khó CHƯƠNG II: NỘI DUNG VẤN ĐỀ NGHIÊN CỨU I GIỚI THIỆU VỀ PASCAL: Pascal ngơn ngữ lập trình bậc cao giáo sư Niklaus Wirth (trường đại học mỹ thuật, Zurich, Thụy Sĩ) sáng tác công bố vào đầu năm 1970, với tên Pascal để kỷ niệm nhà toán học người Pháp Blaise Pascal, kỷ 17 Lúc đầu, Pascal sáng tác với mục đích làm ngơn ngữ máy tính để dạy học cho sinh viên trường đại học: giúp cho sinh viên người học lập trình có thói quen viết chương trình có cấu trúc sáng sủa, rõ ràng, dễ hiểu dễ đọc cho đối tượng khác Trước có Pascal, sinh viên học ngơn ngữ lập trình Fortran, ngơn ngữ lâu đời ngơn ngữ khơng có cấu skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan download by : skknchat@gmail.com skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan trúc Giáo sư Wirth thấy tránh nhiều Pascal ngơn ngữ lập trình cho máy tính thuộc dạng mệnh lệnh, ngơn ngữ đặc biệt thích hợp cho kiểu lập trình có cấu trúc.Pascal dựa ngơn ngữ lập trình Algol Cho đến Pascal dùng để giảng dạy lập trình nhiều trường trung học đại học giới, nhiều hệ sinh viên "vào đời" thông qua việc học Pascal ngơn ngữ vỡ lịng chương trình học đại cương Nhiều biến thể Pascal ngày sử dụng phổ biến, giảng dạy lẫn công nghiệp phát triển phần mềm.Phần lớn hệ điều hành Macintosh viết Pascal Hệ chữ TeX Donald Knuth viết ngơn ngữ mang nhiều yếu tố Pascal.Trong chương trình Tin học cấp trung học phổ thông, lớp 11 phần lập trình đơn giản, học sinh học ngơn ngữ lập trình Pascal để lập trình giải tốn chương trình trung học nội dung thi học sinh giỏi môn Tin học sử dụng ngơn ngữ lập trình Pascal để giải tốn II.CẤU TRÚC CHUNG CỦA CHƯƠNG TRÌNH PASCAL Cấu trúc chung, tổng quát chương trình Pascal gồm ba phần: - Phần tiêu đề chương trình - Phần khai báo liệu hằng, biến, mô tả kiểu liệu, khai báo chương trình - Phần thân chương trình chứa lệnh để máy tính thực Program Ten_chuong_trinh; Uses Ten_thu_vien; Const Ten_hang… Type … Var … Procedure Begin … End; … … Fuction Begin skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan download by : skknchat@gmail.com skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan … … End; … BEGIN Các câu lệnh; END III MỘT SỐ BÀI TOÁN BÀI TỐN 1: Viết chương trình giải phương trình ax + b=0 a Ý tưởng: - Nhập a, b - Xét trường hợp: + Nếu a ≠ kết luận phương trình cho có nghiệm x = - b/a + Nếu a = b = kết luận phương trình cho có vơ số nghiệm + Nếu a = b ≠ kết luận phương trình vơ nghiệm b, Mã chương trình: c Chạy chương trình: skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan download by : skknchat@gmail.com skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan BÀI TOÁN 2: Giải phương trình: ax2 + bx + c = (a ≠ 0) a Ý tưởng: Dùng ∆ = b2 – 4ac Xét trường hợp: ∆ < 0, ∆ > 0, ∆ = + Nếu ∆ kết luận phương trình cho có nghiệm phân biệt x1:= (-b – sqrt(Delta))/2*a; x2:= (-b + sqrt(Delta))/2*a; b, Mã chương trình: skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan download by : skknchat@gmail.com skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan c Chạy chương trình BÀI TỐN 3.1: Tính N! a Ý tưởng: Dùng chương trình kiến thức toán học N! skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan download by : skknchat@gmail.com skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan b Chương trình c Chạy thử chương trình BÀI TỐN 3.2:Viết chương trình thực nội dung sau Nhập số tự nhiện n từ bàn phím 1 - Tính tổng: s=1+ ! + ! +…+ n ! - Tính tổng chử số n3 n BÀI TỐN 3.3: Tính tổng s=1+ ! + ! +…+ n ! BÀI TỐN 3.4:Viết chương trình nhập số tự nhiên n>1 từ bàn phím n Tính ghi hình giá trị s=(2+ (−1) 1 ¿(3− )… (n+ ) 2 n BÀI TỐN 4.1: Tìm ước chung lớn hai số a, Ý tưởng: m>n m – n ngược lại n –m m=n UCLN la m n b, Mã chương trình: Program UCLN; Var m,n:Integer; Begin Write('Nhap so m=');Readln(m); Write('Nhap so n=');Readln(n); While mn Begin if m>n then m:=m -n else n:=n - m; End; Write('UCNN hai so la = ',m); Readln; skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan download by : skknchat@gmail.com skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan End BÀI TOÁN 4.2: Nhập số thực, kiểm tra xem chúng có phải độ dài cạnh tam giác khơng, có tam giác (tam giác cân, tam giác đều, tam giác vuông)? a, Ý tưởng: - Hai cạnh cộng lại lớn cạnh thứ in raba cạnh tam giac - Có ba cạnh in tam giác cân - Nếu bình phương cạnh tổng bình phương cạnh cịn lại in tam giác vuông - Ngược lại ba cạnh la ba cạnh tam giác b, Mã chương trình: Program Kiem_tra_ba_canh_tam_giac; uses crt; var a,b,c: real; begin clrscr; write('Nhap so a, b, c: ');readln(a,b,c); if (a+b>c)and(a+c>b)and(b+c>a) then begin write('3 canh vua nhap la tam giac'); if (a=b)or(b=c)or(a=c) then begin if(a=b)and(b=c) then write(' deu') else write(' can'); end; if (a*a=b*b+c*c)or(b*b=a*a+c*c)or(c*c=a*a+b*b) then write(' vuong'); end else write('3 canh vua nhap ko phai la tam giac'); readln; end. BÀI TỐN 4.3: Viết chương trình tính diện tích tam giác có ba cạnh a,b,c (được nhập từ bàn phím) a,Hướng dẫn: –Nhập ba cạnh tam giác vào ba biến a,b,c – Nửa chu vi tam giác p = (a+b+c)/2 – Diện tích tam giác: S:= sqrt(p*(p-a)*(p-b)*(p-c)); b,Mã chương trình: Program TAM_GIAC; uses crt; Var a,b,c,p,S: real; Begin 10 skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan download by : skknchat@gmail.com skkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toanskkn.chat.2020.van.dung.pascal.giai.quyet.mot.so.bai.toan clrscr; Write(‘Nhap canh a:’);readln(a); Write(‘Nhap canh b:’);readln(b); Write(‘Nhap canh c:’);readln(c); p:=(a+b+c)/2; S:= sqrt(p*(p-a)*(p-b)*(p-c)); Write(‘Dien tich tam giac la:’,s:10:2); readln end BÀI TOÁN 5.1: Cho dãy số n nhập vào đầu mảng gồm 100 phần tử(na[j] then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; End; i:=1; While (a[i]
Ngày đăng: 03/01/2024, 01:19
Xem thêm: