Đang tải... (xem toàn văn)
Trên cơ sở những gì mà học sinh được học tập về môn lập trình Pascal, học sinh có thể sử dụng một cách thành thạo các ngôn ngữ khác để hoàn thành tốt hơn những ứng dụng trong thực tế. Bởi vì, ngôn ngữ Pascal có tính cấu trúc mạnh, có cơ sở và nó đòi hỏi chương trình phải chặt chẽ, logic. Đặc biệt, khi học về chương trình con, học sinh có thể hiểu một cách sâu sắc hơn về ngôn ngữ lập trình, nhìn nhận vấn đề một cách sáng sủa hơn, chặt chẽ hơn và nhất là chương trình con có thể giúp cho các em hoàn thành những chương trình lớn hơn vượt ra những bài toán bình thường mà nội bộ môn học đòi hỏi. Chính vì vậy, việc hình thành kỹ năng cho học sinh trong việc dạy học chương trình con là một công việc quan trọng, đòi hỏi mỗi giáo viên cần phải nỗ lực tìm tòi, sáng tạo giúp cho học sinh nhìn nhận vấn đề một cách tích cực hơn, sáng tạo hơn và nhất là giúp cho các em có thể yêu thích hơn nữa ngôn ngữ lập trình Pascal, cảm thấy hứng thú mỗi khi có tiết học, đặc biệt là các em học sinh giỏi. Sau này khi ra trường, các em có cơ hội dễ dàng tìm việc, nhất là trong tình hình hội nhập, bùng nổ công nghệ thông tin như hiện nay, tin học không thể thiếu khi muốn tìm việc làm với mức lương như ý muốn.Với tất cả những lý do nêu trên, tôi quyết định chọn đề tài : “Vai trò của chương trình con trong lập trình Pascal”. Nói thì dễ nhưng việc thực hiện là cả một quá trình. Với cương vị là một giáo viên, tôi rất mong muốn được học hỏi nhiều để làm sao truyền đạt hết kiến thức của mình cho các em. Tôi rất mong được sự đóng góp ý kiến của quý thầy cô cũng như của đồng nghiệp cho chuyên đề của tôi được hoàn chỉnh.
VAI TRÒ CỦA CHƯƠNG TRÌNH CON TRONG LẬP TRÌNH PASCAL BÁO CÁO KẾT QUẢ NGHIÊN CỨU, ỨNG DỤNG SÁNG KIẾN Lời giới thiệu Tin học môn tự chọn bắt buộc dành cho đối tượng học sinh THCS Môn Tin học đưa vào dạy cấp Tiểu học, hình thức tự chọn không bắt buộc Vì nội dung môn Tin học cấp THCS xây dựng giả thiết môn học Những năm qua môn tin học THCS chưa có sách giáo viên cụ thể hướng dẫn cho học sinh cách lập trình nên việc học học sinh phụ thuộc lớn giáo viên đứng lớp Mỗi học sinh đến với môn tin học cấp THCS thường cảm thấy khó khăn kiến thức lập trình khối lớp đặc biệt thi học sinh giỏi Quả với em, ngôn ngữ lập trình dường xa lạ kiến thức lập trình mà em học Là giáo viên tin học, mục tiêu giúp học sinh soạn thảo mà phải có khả phân tích, tổng hợp, trừu tượng hoá, khái quát hoá vấn đề đặc biệt phát triển tư duy, sáng tạo Như vậy, phương pháp giảng dạy môn Tin học hợp lí? Làm để em phát huy tính học tập cách tốt nhất, hiệu nhất? Và Cốt lõi vấn đề này là 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 Đổi phương pháp dạy học vấn đề quan trọng Là giáo viên giảng dạy môn Tin học, theo tìm nhiều toán khó, toán hay để giảng dạy cho học sinh Mà vấn đề đặt cần phải tích cực tìm tòi, sáng tạo việc đưa toán để giúp cho học sinh có hứng thú, tìm tòi sáng tạo trình giài học tập, từ biết vận dụng linh hoạt tình cụ thể thực tế Như chúng ta đã biết vấn đề Tin học đưa vào giảng dạy chương trình bậc học phổ thông Khi nói đến vấn đề dạy học lập trình cho học sinh đặc biệt bồi dưỡng học sinh giỏi, vấn đề dạy học cho học sinh chương trình vấn đề chiếm vai trò quan trọng Bởi vì, sử dụng chương trình để hợp lý hóa, tiết kiệm công sức lập trình Đồng thời, chương trình giúp cho người lập trình dễ sửa chữa, dễ kiểm tra Vấn đề đặt là: Hình thành kỹ vận dụng học sinh chương trình nào? Vai trò chương trình con? Đó vấn đề mà thân quan tâm Để thực điều đó, theo cần phải tìm tòi, nghiên cứu tìm toán phù hợp, kích thích độc lập, tích cực học sinh học tập Trên sở đó, học sinh tự tìm ý tưởng sáng tạo vận dụng thiết thực vào sống thực tế nhu cầu nảy sinh, em tự hoàn thành ý tưởng Trên sở mà học sinh học tập môn lập trình Pascal, học sinh sử dụng cách thành thạo ngôn ngữ khác để hoàn thành tốt ứng dụng thực tế Bởi vì, ngôn ngữ Pascal có tính cấu trúc mạnh, có sở đòi hỏi chương trình phải chặt chẽ, logic Đặc biệt, học chương trình con, học sinh hiểu cách sâu sắc ngôn ngữ lập trình, nhìn nhận vấn đề cách sáng sủa hơn, chặt chẽ chương trình giúp cho em hoàn thành chương trình lớn vượt toán bình thường mà nội môn học đòi hỏi Chính vậy, việc hình thành kỹ cho học sinh việc dạy học chương trình công việc quan trọng, đòi hỏi giáo viên cần phải nỗ lực tìm tòi, sáng tạo giúp cho học sinh nhìn nhận vấn đề cách tích cực hơn, sáng tạo giúp cho em yêu thích ngôn ngữ lập trình Pascal, cảm thấy hứng thú có tiết học, đặc biệt em học sinh giỏi Sau trường, em có hội dễ dàng tìm việc, tình hình hội nhập, bùng nổ công nghệ thông tin nay, tin học thiếu muốn tìm việc làm với mức lương ý muốn Với tất lý nêu trên, định chọn đề tài : “Vai trò chương trình lập trình Pascal” Nói dễ việc thực trình Với cương vị giáo viên, mong muốn học hỏi nhiều để truyền đạt hết kiến thức cho em Tôi mong đóng góp ý kiến quý thầy cô đồng nghiệp cho chuyên đề hoàn chỉnh Tên sáng kiến: “Vai trò chương trình lập trình Pascal ” Tác giả sáng kiến - Họ tên: - Địa tác giả sáng kiến: - Số điện thoại: Chủ đầu tư tạo sáng kiến: không Lĩnh vực áp dụng sáng kiến: Lĩnh vực áp dụng tin học lập trình vấn đề mà sáng kiến giải vai trò chương trình lập trình Pascal Ngày sáng kiến áp dụng lần đầu áp dụng thử: 02/2014 Mô tả chất sáng kiến: Phần thứ nhất: NỘI DUNG SÁNG KIẾN A Mở đầu: Vai trò giúp cho học sinh nhận biết ý nghĩa, lợi ích chương trình để từ giải toán dài, phức tạp Những toán dài, phức tạp khó nhận biết chương trình thực công việc việc hiệu chỉnh chương trình khó khăn Vì để giải toán lớn, phức tạp ta phân thành toán con, toán để giải máy tính khối lệnh khối lệnh xây dựng thành chương trình Vậy: “ Chương trình dãy lệnh mô tả số thao tác định thực (được gọi) từ nhiều vị trí chương trình” Qua khái niệm chương trình ta nhận thấy phần vai trò chương trình Chương trình thường gồm hai loại: Hàm ( Function) chương trình thực số thao tác trả giá trị qua tên + Ví dụ: sqrt(x) nhận giá trị x trả giá trị bậc hai x length(x) nhận xâu x trả độ dài xâu x, sqr(x) nhận giá trị x trả giá trị bình phương x Khai báo lời gọi hàm Khai báo: FUNCTION (Danh sách tham số): ; [Khai báo Const, Type, Var] BEGIN ; :=; END; Chú ý : có phép gán tên hàm cho giá trị để hàm trả giá trị gọi Lời gọi hàm (danh sách tham số thực); Thủ tục ( Procedure) chương trình thực thao tác định không trả giá trị qua tên Khai báo lời gọi thủ tục sau: Khai báo: PROCEDURE (Danh sách tham số);{không có giá trị trả về} [Khai báo Const, Type, Var] BEGIN < Dãy câu lệnh>; END; Lời gọi thủ tục (danh sách tham số thực); Chú ý: Danh sách tham số có Trong đó: + Tham số hình thức ( tham số): Các biến khai báo cho liệu vào/ra gọi tham số hình thức chương trình Các biến khai báo để dành riêng cho chương trình gọi biến cục + Biến chương trình không sử dụng cho chương trình chương trình khác, chương trình sử dụng biến chương trình chính, biến chương trình gọi biến toàn cục + Tham số thực sự( tham số thực): Tên chương với tham số (nếu có) biến chứa liệu vào tương ứng với tham số hình thức đặt cặp ngoặc ( và) Các biến gọi tham số thực Vậy nhận thấy vai trò chương trình lập trình, học sinh liên hệ, vận dụng sáng tạo vào giải toán lập trình toán tình thực tế từ hình thành cho học sinh phương pháp để vận dụng chương trình vào đa dạng toán Để làm điều việc làm ngắn ngủi bắt đầu dạy từ tri thức đó, mà phải xuyên suốt trình dạy học Thường bắt đầu nội dung lớn, chẳng hạn phân môn hay chương ta nên cố gắng xuất phát từ thực tế Còn hay phần cần tính tới khả hình thành từ nội Tin học Vậy để hiểu rõ vai trò chương trình lập trình câu trả lời giải phần B B Vai trò chương trình lập trình a Đáp ứng nhu cầu xóa bỏ hạn chế Xét toán : “Viết chương trình cho máy tính chu vi, diện tích đường chéo bốn hình chữ nhật theo hai kích thước hình Trong đó: - Hình thứ có hai kích thước a1, a2 - Hình thứ hai có hai kích thước b1, b2 - Hình thứ ba có hai kích thước a1+b1 a2*b2” - Hình thứ tư có kích thước a1+b1+a2 a2*b2*b1 Var a1, b1, a2, b2, c1, c2, c3, c4, d1, d2, d3, d4, m1, m2, m3, m4 : Real; Begin Writeln('Nhap hai canh cua hinh chu nhat thu nhat:'); Write('a1 = '); Readln(a1); Write('b1 = '); Readln(b1); Writeln(' Nhap hai canh cua hinh chu nhat thu hai: '); Write('a2 = '); Readln(a2); Write('b2 = '); Readln(b2); c1 := * (a1 + b1); c2 := * (a2 + b2); c3 := * ((a1 + b1) + (a2 * b2)); c4:=2*(( a1+b1+a2)+ (a2*b2*b1)) d1 := a1 * b1; d2 := a2 * b2; d3 := (a1 + b1) * (a2 * b2); d4:=( a1+b1+a2 )*( a2*b2*b1) m1 := sqrt(a1 * a1 + b1 * b1); m2 := sqrt(a2 * a2 + b2 * b2); m3 := sqrt(sqr(a1 + b1) + sqr(a2 * b2)); m4: sqrt(sqr(a1+b1+a2)+ sqr(a2*b2*b1))= Writeln('Hinh chu nhat thu nhat:'); Writeln('Chu vi bang : ',c1:0:2); Writeln('Dien tich bang : ',d1:0:2); Writeln('Duong cheo bang: ',m1:0:2); Writeln('Hinh chu nhat thu hai: '); Writeln('Chu vi bang : ',c2:0:2); Writeln('Dien tich bang : ',d2:0:2); Writeln('Duong cheo bang: ',m2:0:2); Writeln('Hinh chu nhat thu ba: '); Writeln('Chu vi bang : ',c3:0:2); Writeln('Dien tich bang : ',d3:0:2); Writeln('Duong cheo bang: ',m3:0:2); Writeln('Hinh chu nhat thu tu: '); Writeln('Chu vi bang : ',c4:0:2); Writeln('Dien tich bang : ',d4:0:2); Writeln('Duong cheo bang: ',m4:0:2); Readln End Chương trình để thực yêu cầu đề bài, phải viết viết lại bốn dòng liên tiếp tính chu vi, diện tích đường chéo hình chữ nhật Giả sử phải tính đến n hình chữ nhật vấn đề thực phức tạp Trong toán ta chưa có phần kiểm tra điều kiện nhập vào hình Nếu có thêm điều kiện này, chắn chương trình dài Vấn đề đặt là: làm xóa bỏ hạn chế này? Ở đây, hướng dẫn cho học sinh sử dụng chương trình để khắc phục hạn chế Thay phải viết nhiều lần lệnh nhập, tính tính lại cho hình ta viết thủ tục: - Thủ tục nhập hai cạnh hình chữ nhật - Thủ tục Tính ba giá trị cho hình Chương trình sau: Var a1, b1, a2, b2: Real; Procedure Nhap(Var x, y: Real; i: Byte); Begin Writeln('Nhap hai kich thuoc cua hinh chu nhat thu ',i,':'); Repeat Write('Canh thu nhat: '); Readln(x); Write('Canh thu hai : '); Readln(y); If (x 0); End; Procedure Tinh(a, b: Real; k: Byte); Begin Writeln('Hinh chu nhat thu ',k,':'); Writeln('Chu vi bang : ',2 * (a + b):0:2); Writeln('Dien tich bang : ',a * b:0:2); Writeln('Duong cheo bang: ',sqrt(a * a + b * b):0:2); End; Begin Nhap(a1, b1, 1); Nhap(a2, b2, 2); Tinh(a1, b1, 1); Tinh(a2, b2, 2); Tinh(a1 + b1, a2 * b2, 3); Readln End b Hướng tới tiện lợi hợp lý hóa công việc Xét toán : “Nhập vào dãy n số nguyên lớn Viết hình tất số dãy thỏa mãn điều kiện số nguyên tố” Vận dụng hàm để giải Var A: Array[1 100] Of Integer; k,n: Integer; Function NgTo(a: Integer):Boolean; Var u: Integer; Begin NgTo:=false; If a= 2; End; Writeln('Cac so nguyen to cua day so tren la:'); For k := to n If NgTo(A[k]) Then Write(A[k]:6); Readln End Từ chương trình giúp cho học sinh thấy việc sử dụng chương trình hợp lý hóa, tiết kiệm công sức lập trình Đồng thời, chương trình giúp cho người lập trình dễ sửa chữa, dễ kiểm tra Cụ thể với toán sửa chữa thành toán: “Viết hình tất số dãy thỏa mãn điều kiện hợp số” hai câu lệnh: - Dòng lệnh Writeln(‘Cac so nguyen to cua day so tren la:’); Sửa thành: Writeln(‘Cac so la hop so cua day so tren la:’); - Dòng lệnh : If NgTo(A[k]) Then Write(A[k]:6) ta thay dòng lệnh If Not NgTo(A[k]) Then Write(A[k]:6) c Chính xác hóa khái niệm Có khái niệm mà học sinh biết riêng lẻ chưa thể đưa nhận xét, kết luận xác liên quan tới khái niệm đó; tới thời điểm có đủ điều kiện gợi lại vấn đề giúp học sinh xác hóa khái niệm Chẳng hạn, ta cần xác hóa khái niệm sử dụng tham biến chương trình Sau học cách sử dụng tham trị, yêu cầu học sinh làm tập sau: “Viết thủ tục nhập vào số đo bán kính đường tròn Sau tính chu vi diện tích đường tròn đó” Var r1, r2, r3: Real; Procedure Nhap( r: Real; k:Byte); Begin Repeat Write('Nhap ban kinh cua duong tron thu ',k,': '); Readln(r); If r 0; End; Begin Nhap(r1, 1); Nhap(r2, 2); Nhap(r3, 3); Writeln('Duong tron Chu vi bang:',2 * pi * r1:6:1,' Dien tich bang: ',pi * sqr(r1):6:1); Writeln('Duong tron Chu vi bang:',2 * pi * r2:6:1,' Dien tich bang:',pi * sqr(r2):6:1); Writeln('Duong tron Chu vi bang:',2 * pi * r3:6:1,' Dien tich bang:',pi * sqr(r3):6:1); Readln End 10 If m < p Then Begin tg := p; p := m; m := tg; End; m := sqr(m); n := sqr(n); p := sqr(p); If m < n + p Then Writeln('la tam giac co ba goc nhon!') Else If m = n + p Then Writeln('La tam giac vuong!') Else Writeln('La tam giac co mot goc tu!'); End; Begin Nhap(p, q, r); DangTG(p, q, r); Readln End i Tìm liên hệ phụ thuộc Nói riêng cách hình thành kỹ xuất phát từ phương thức tư hoạt động phổ biến Tin học xét tương tự, khái quát hóa, xét liên hệ phụ thuộc, quen thuộc phương thức không kết mà điều kiện việc hình thành theo cách Để thực điều dạy học cho học sinh chương trình Chúng ta yêu cầu học sinh giải toán sau: “Có túi chứa tối đa D (kg) với n đồ vật, Cần chọn đồ vật cho giá trị túi lớn Biết đồ vật i có khối lượng W[i] giá trị C[i] đồng (i = 1, 2, , n ” Var C, W:Array[1 100] Of Integer; CW: Array[1 100] Of Real; n, i, j, d, d1, gt, t: Integer; Procedure Nhap; 23 Begin Write('Nhap so luong cac vat: '); Readln(n); Write('Nhap khoi luong cua tui: '); Readln(D); D1:=D; Writeln('Nhap cac gia tri cua C va W: '); For i:=1 to n Begin Write('C[',i,'] = '); Readln(C[i]); Write('W[',i,'] = '); Readln(W[i]); CW[i] := C[i] / W[i]; End; End; Procedure Sapxep; Var t1, t2: Integer; t3: Real; Begin Nhap; For i := to n - For j := n downto i + Begin If CW[j] > CW[j-1] Then Begin t1 := C[j]; C[j] := C[j-1]; C[j-1] := t1; t2 := W[j]; W[j] := W[j-1]; W[j-1] := t2; t3 := CW[j]; CW[j] := CW[j-1]; CW[j-1] := t3; End; End; End; Procedure Luachon; Var temp: Integer; Begin Sapxep; 24 i := 1; gt := 0; t := 0; While (i 0) And (W[i] > 0) Do Begin Temp := d Div W[i]; {So vat duoc chon cua W[i]} If temp > Then Begin Writeln('Do vat C[',i,'] = ',C[i],' va W[',i,'] = ',W[i],' duoc chon co so luong ',temp); d := d - temp * W[i]; t := t + W[i] * temp; gt := gt + temp * C[i]; End; i := i + 1; End; Writeln('Gia tri toi uu co the dat duoc la:'); Writeln('Khoi luong vat dung ',t,'.tui dung duoc ',d1,' Con thua ',d1 - t); End; Begin Luachon; Readln End k Sự liên hệ toán thực tế Viết chương trình nhập điểm môn học kỳ Sau tính điểm trung bình môn môn học theo công thức : hs1 + hs * + hs3 * Trong : l1 + l * + hs1 : tổng điểm hệ số l1: số lần điểm hệ số hs2 : tổng điểm hệ số l2 : số lần điểm hệ số hs3 : Điểm thi học kỳ 25 Yêu cầu nhập lần đủ, tức điểm nhập vào cần phải xử lý theo xâu ký tự sau đổi sang số để tính toán Đây chương trình tính điểm mà học sinh ứng dụng thực tế học tập Để làm toán này, học sinh cần phải ứng dụng vấn đề thực tế cần phải biết cách tính điểm TBm sau áp dụng kiến thức chương trình kiến thức xử lý xâu ký tự để áp dụng thực chương trình Tuy nhiên cần lưu ý nhập điểm, điểm hệ số hệ số số nguyên với số lần điểm nhập vào không hạn chế, điểm hệ số số thực có điểm Chính cần phải có hai thủ tục nhập điểm Hơn nữa, việc nhập điểm cần lưu ý hai trường hợp điểm 10 điểm nên sử dụng biến Char để xác định rõ điểm 10 vừa nhập điểm 10 hai điểm Trong công việc tính toán, cần phải có hai hàm: hàm tính tổng điểm hàm đếm số lần điểm loại điểm, điểm từ đến vấn đề đơn giản, có điểm 10 việc đếm số lần điểm việc tính tổng điểm cần phải chia thành hai trường hợp: + Trường hợp có điểm 10: Ta xử lí hàm đếm cách gặp ký tự đếm giữ nguyên, đến số tính từ Như vậy, gặp điểm 10 đếm + Trường hợp điểm từ đến 9: Đếm bình thường việc tính tổng vậy, có điều để tính tổng phần tử cần sử dụng vòng For duyệt toàn phần tử xâu, với ký tự ta lại dùng hàm Val để đổi ký tự sang số để tính toán Cuối cùng, ta sử dụng hàm Tinh để tính điểm trung bình môn theo hàm tính tổng hàm đếm thực Chương trình sau: Var hs1, hs2 , h3: String; hs3: Real; k: Integer; Procedure Nhap1(Var st1: String; t1: Byte); Var a1, c1, i, tam: Integer; ch: Char; t: Char; Begin Repeat 26 Write('Nhap diem he so ',t1,': '); Readln(st1); For i:=1 to Length(st1) Begin If (st1[i] = '1') And (st1[i+1] = '0') Then Begin Write('Diem 10 o tren la diem va diem 0(y)hay diem 10(n):'); Readln(ch); If ch='y' then Begin t:=st1[i]; st1[i] := st1[i+1]; st1[i+1]:=t; Writeln('Diem ban nhap se la: ',st1) End; End; End; Val(st1, a1, c1); If (c1 0) Or (a1=0); End; Procedure Nhap2(Var st2:String; t2: Byte); Var c2:Integer; a2: Real; Begin Repeat Write('Nhap diem he so ',t2,': '); Readln(st2); Val(st2, a2, c2); If (c2 0) Or (a2 > 10) Or (a2 1), bậc đối xứng s tính theo công thức: deg(s) = + deg(T), xâu T nửa trái S theo nghĩa: T= s1s2ss3…sk với k= ( N+ 1) div Chẳng hạn: - deg(′x’ ) = ′x′ có độ dài - deg(′xo′) = ′xo′ không đối xứng - deg(′xox’ ) = deg(′ xox′) = + deg(′xo′) 33 - deg(′xoxxox’) = deg(′xox′) = + deg(′xox′) Cho xâu S độ dài không vượt 200 gồm chữ Latinh in thường, xác định bậc đối xứng S Dữ liệu (PALINDEG.INP) - Dòng 1: xâu Kết (PALINDEG.OUT) - Dòng 1: số nguyên bậc đối xứng xâu Ví dụ PALINDEG.INP bobobbobob PALINDEG.OUT Chương trình viết sau: Uses math; Var d,k:longint;s,st:string; Function PL(s:string):boolean; Var i:longint; Begin For i:=1 to length(s) div If s[i]s[length(s)-i+1] then exit(false); Exit(true); End; BEGIN Assign(input,’Palindeg.inp’);Reset(input); Assign(output,’Palindeg.out’);Reset(output); Readln(s); d:=0; k:=length(s); If (PL(s)) and (length(s)>2) then Repeat 34 Inc(d); k:=(k+1) div 2; Until k=2; st:=s[1]+s[2]; If PL(st) then inc(d); Write(d); END Phần thứ hai: VỀ KHẢ NĂNG ÁP DỤNG CỦA SÁNG KIẾN Qua việc nghiên cứu, hứng thú tìm tòi vấn đề chương trình ngôn ngữ lập trình Pascal, tài liệu phương pháp giảng dạy bồi dưỡng học sinh giỏi, kết hợp với giảng dạy trực tiếp lớp việc hướng dẫn cho học sinh biết cách vận dụng chương trình vào giải toán lập trình điều phải làm Từ đó, đưa toán sử dụng chương trình để hiểu rõ vai trò chương trình lập trình thông qua ví dụ cụ thể Tạo cho học sinh ý thức ý nghĩa hoạt động sử dụng chương trình công việc lập trình, học sinh liên hệ, vận dụng sáng tạo vào giải toán lập trình tình thực tế Kết học sinh hứng thú với cách áp dụng chương trình vào công việc viết lập trình, thấy học sinh có kỹ tốt vận dụng, đạt kết cao Những thông tin cần bảo mật: Không Các điều kiện cần thiết để áp dụng sáng kiến: - Là học sinh khá, giỏi, học sinh tham bồi dưỡng học sinh giỏi lớp 8, áp dụng sáng kiến - Giáo viên bậc THCS áp dụng để giảng dạy bồi dưỡng cho học sinh đội tuyển lớp 8, Học sinh nhận thức vận dụng vai trò sử dụng chương trình viết lập trình 10 Đánh giá lợi ích thu áp dụng sáng kiến 10.1 Đánh giá lợi ích thu áp dụng sáng kiến theo ý kiến tác giả: 35 Vậy để giải toán máy tính sử dụng ngôn ngữ lập trình Pascal vận dụng chương trình học sinh tham gia bồi dưỡng học sinh giỏi cấp Qua trắc nghiệm khảo sát đối tượng học sinh sau cung cấp cho học sinh hiểu rõ vai trò chương trình việc viết lập trình với cách khác bước đầu thu kết sau: Năm học 2014 – 2015: Bồi dưỡng 01 học sinh đạt được: 01 giải ba (cấp tỉnh) Năm học 2015 – 2016: Bồi dưỡng 02 học sinh đạt được: 01 giải ba (cấp tỉnh) Năm học 2016 – 2017: Bồi dưỡng 03 học sinh đạt được: 01 giải nhì + 01 giải ba (Cấp thị xã) 10.2 Đánh giá lợi ích thu dự kiến thu áp dụng sáng kiến theo ý kiến tổ chức, cá nhân: Sau áp dụng sáng kiến vào giảng dạy nhận thấy học sinh đặc biệt đội tuyển học sinh giỏi không sáng tạo hơn, tư tốt mà linh hoạt trình học tập làm chủ kiến thức, chịu khó tìm tòi, chủ động sáng tạo lĩnh hội kiến thức.Và từ biết áp dụng giải toán, vấn đề thực tế cách sử dụng chương trình con, tối ưu hóa cách viết chương trình để lập trình logic hơn, minh bạch hơn, sáng sủa dễ phát lỗi, dễ sửa trình chương trình lỗi Nhận thấy học sinh đam mê yêu thích môn học, giải toán, phát huy hiệu tốt môn tin học lập trình 11 Danh sách tổ chức/cá nhân tham gia áp dụng thử áp dụng sáng kiến lần đầu: TT Tên tổ chức/cá nhân Địa Phạm vi/Lĩnh vực áp dụng sáng kiến 36 37 [...]... giá lợi ích thu được hoặc dự kiến có thể thu được do áp dụng sáng kiến theo ý kiến của tổ chức, cá nhân: Sau khi áp dụng sáng kiến này vào giảng dạy thì tôi nhận thấy ở học sinh đặc biệt là đội tuyển học sinh giỏi không chỉ sáng tạo hơn, tư duy tốt hơn mà còn linh hoạt hơn trong quá trình học tập và làm chủ kiến thức, chịu khó tìm tòi, chủ động sáng tạo trong lĩnh hội kiến thức.Và từ đó biết áp dụng... logic hơn, minh bạch hơn, sáng sủa hơn và dễ phát hiện lỗi, dễ sửa trong quá trình chương trình lỗi Nhận thấy học sinh đam mê và yêu thích môn học, giải quyết các bài toán, phát huy được hiệu quả của tốt môn tin học lập trình 11 Danh sách những tổ chức/cá nhân đã tham gia áp dụng thử hoặc áp dụng sáng kiến lần đầu: TT Tên tổ chức/cá nhân Địa chỉ Phạm vi/Lĩnh vực áp dụng sáng kiến 1 2 36 ... bồi dưỡng học sinh giỏi của lớp 8, 9 có thể áp dụng sáng kiến này - Giáo viên bậc THCS áp dụng để giảng dạy bồi dưỡng cho học sinh đội tuyển lớp 8, 9 Học sinh nhận thức và vận dụng được vai trò sử dụng chương trình con trong viết lập trình 10 Đánh giá lợi ích thu được do áp dụng sáng kiến 10.1 Đánh giá lợi ích thu được do áp dụng sáng kiến theo ý kiến của tác giả: 35 Vậy để giải quyết được bài toán... trình, học sinh có thể liên hệ, vận dụng sáng tạo vào giải quyết các bài toán lập trình và các tình huống thực tế Kết quả là học sinh rất hứng thú với cách áp dụng chương trình con vào công việc viết lập trình, thấy được học sinh có kỹ năng tốt khi vận dụng, đạt kết quả cao 8 Những thông tin cần được bảo mật: Không 9 Các điều kiện cần thiết để áp dụng sáng kiến: - Là học sinh khá, giỏi, học sinh đang... Dem := l; End; 28 Function Tinh(x, y: String; z: Real): Real; Begin Val(h3, hs3, k); Tinh:=(Tong(hs1) + Tong(hs2)*2 + hs3*3)/(Dem(hs1) + Dem(hs2)*2 + 3); End; Begin Writeln('CHUONG TRINH TINH DIEM TRUNG BINH MON'); Nhap1(hs1,1); Nhap1(hs2,2); Nhap2(h3,3); Writeln('Diem he so 1: ',hs1); Writeln('Diem he so 2: ',hs2); Writeln('Diem he so 3: ',h3); Writeln('Ket qua TBm : ',Tinh(hs1,hs2,hs3):0:1); Readln... luong do vat dung ',t,'.tui dung duoc ',d1,' Con thua ',d1 - t); End; Begin Luachon; Readln End k Sự liên hệ trong bài toán thực tế Viết chương trình nhập các điểm của một môn trong một học kỳ Sau đó tính điểm trung bình môn của môn học đó theo công thức : hs1 + hs 2 * 2 + hs3 * 3 Trong đó : l1 + l 2 * 2 + 3 hs1 : tổng các điểm hệ số 1 l1: số lần điểm hệ số 1 hs2 : tổng các điểm hệ số 2 l2 : số lần... học sinh có thể ứng dụng ngay trong thực tế học tập của mình Để làm được bài toán này, học sinh cần phải ứng dụng vấn đề thực tế là cần phải biết cách tính điểm TBm sau đó áp dụng các kiến thức về chương trình con và kiến thức về xử lý xâu ký tự để áp dụng thực hiện chương trình Tuy nhiên chúng ta cũng cần lưu ý khi nhập điểm, điểm hệ số 1 và hệ số 2 là các số nguyên với số lần điểm nhập vào không... Readln(s); d:=0; k:=length(s); If (PL(s)) and (length(s)>2) then Repeat 34 Inc(d); k:=(k+1) div 2; Until k=2; st:=s[1]+s[2]; If PL(st) then inc(d); Write(d); END Phần thứ hai: VỀ KHẢ NĂNG ÁP DỤNG CỦA SÁNG KIẾN Qua việc nghiên cứu, tôi luôn hứng thú tìm tòi các vấn đề về chương trình con của ngôn ngữ lập trình Pascal, các tài liệu về phương pháp giảng dạy và bồi dưỡng học sinh giỏi, kết hợp với giảng... tính tổng các phần tử chúng ta cần sử dụng một vòng For duyệt toàn bộ các phần tử của xâu, với mỗi ký tự ta lại dùng hàm Val để đổi ký tự đó sang số để tính toán Cuối cùng, ta sử dụng hàm Tinh để tính điểm trung bình môn theo các hàm tính tổng và hàm đếm đã thực hiện như trên Chương trình như sau: Var hs1, hs2 , h3: String; hs3: Real; k: Integer; Procedure Nhap1(Var st1: String; t1: Byte); Var a1, c1,... - deg(′xo′) = 0 vì ′xo′ không đối xứng - deg(′xox’ ) = 1 vì deg(′ xox′) = 1 + deg(′xo′) 33 - deg(′xoxxox’) = 2 vì deg(′xox′) = 1 + deg(′xox′) Cho xâu S độ dài không vượt quá 200 chỉ gồm các chữ cái Latinh in thường, hãy xác định bậc đối xứng của S Dữ liệu (PALINDEG.INP) - Dòng 1: xâu Kết quả (PALINDEG.OUT) - Dòng 1: số nguyên là bậc đối xứng của xâu Ví dụ PALINDEG.INP bobobbobob PALINDEG.OUT 3 ... - Địa tác giả sáng kiến: - Số điện thoại: Chủ đầu tư tạo sáng kiến: không Lĩnh vực áp dụng sáng kiến: Lĩnh vực áp dụng tin học lập trình vấn đề mà sáng kiến giải vai trò chương... truyền đạt hết kiến thức cho em Tôi mong đóng góp ý kiến quý thầy cô đồng nghiệp cho chuyên đề hoàn chỉnh Tên sáng kiến: “Vai trò chương trình lập trình Pascal ” Tác giả sáng kiến - Họ tên: ... giải vai trò chương trình lập trình Pascal Ngày sáng kiến áp dụng lần đầu áp dụng thử: 02/2014 Mô tả chất sáng kiến: Phần thứ nhất: NỘI DUNG SÁNG KIẾN A Mở đầu: Vai trò giúp cho học sinh nhận biết