skkn KÍCH THÍCH HỨNG THÚ học tập bộ môn TIN học THÔNG QUA dạy học CHƯƠNG TRÌNH CON TIN học 11

MỤC LỤC Trang BÁO CÁO KẾT QUẢ NGHIÊN CỨU, ỨNG DỤNG SÁNG KIẾN LỜI GIỚI THIỆU Để rèn luyện kỹ lập trình cho học sinh khá, giỏi trước chọn đội tuyển thi học sinh giỏi mơn Tin học có nhiều cách mà giáo viên áp dụng đối tượng học sinh khác Các trường có điểm thi đầu vào cao việc rèn luyện kỹ có nhiều thuận lợi với trường có điểm thi đầu vào trung bình thấp việc rèn luyện kỹ lập trình cho em gặp nhiều khó khăn Tuy nhiên trường với đối tượng học sinh khác giáo viên áp dụng nhiều biện pháp khác để rèn luyện kỹ lập trình cho học sinh với hiệu khác Các giáo viên hướng dẫn cho học sinh biết tốn giải với nhiều thuật toán khác thuật toán giải toán lớp toán, thực tế cho thấy, đứng trước toán tin học đặc biệt tốn xâu kí tự học sinh thường lúng túng lập trình việc nhiều ngun nhân, chẳng hạn khơng biết xử lý liệu nào, đọc, ghi liệu sao… , mặt khác học sinh khơng có máy để thực hành thêm nhà Tuy nhiên, học sinh rèn luyện từ những tốn có dạng tương tự dạng mở rộng từ toán sách giáo khoa, tốn mà em biết em xây dựng có hứng thú để xây dựng thuật toán cho toán đặt Vì giáo viên chọn tập liên quan đến mảng chiều, mảng hai chiều, xâu kí tự từ mở rộng phát triển đến tốn có sử dụng chương trình để để rèn luyện kỹ lập trình kích thích hứng thú học tập mơn Tin học cho học sinh Dĩ nhiên cách làm không với giáo viên cách chọn toán để học sinh vận dụng kích thích húng thú học tập mơn Tin học cho học sinh lại điều đáng quan tâm Chương trình vấn đề hay gặp lập trình nói chung lập trình pascal nói riêng Chương trình tin học lớp 11 giới thiệu có số ví dụ chương trình trình học lập trình khơ khan, để học sinh khơng nhàm chán tránh mắc phải sai lầm lập trình lại kích thích hứng thú học tập cho học sinh khơng phải việc đơn giản Vì lý tơi chọn đề tài “Kích thích hứng thú học tập mơn Tin học thơng qua dạy học chương trình tin học 11” nhằm cung cấp cho học sinh kiến thức khái quát chương trình con, rèn luyện kỹ lập trình kích thích hứng thú học tập môn cho học sinh thông qua số toán cụ thể TÊN SÁNG KIẾN “Kích thích hứng thú học tập mơn Tin học thơng qua dạy học chương trình tin học 11” Trang TÁC GIẢ SÁNG KIẾN - Họ tên: Chu Thị Thu - Địa chỉ: Trường THPT Yên Lạc – Huyện Yên Lạc – Tỉnh Vĩnh Phúc - Số điện thoại: 037467972 E_mail:chuthu.yl2@gmail.com CHỦ ĐẦU TƯ TẠO RA SÁNG KIẾN - Họ tên: Chu Thị Thu - Trình độ chun mơn: Đại học sư phạm Tin học - Đơn vị công tác: Trường THPT Yên Lạc 2– Huyện Yên Lạc – Tỉnh Vĩnh Phúc LĨNH VỰC ÁP DỤNG SÁNG KIẾN Ứng dụng chương trình lập trình giảng dạy học sinh lớp 11 môn Tin học bồi dưỡng học sinh tham gia kì thi chọn học sinh giỏi cấp mơn Tin học NGÀY SÁNG KIẾN ĐƯỢC ÁP DỤNG Từ ngày 01/08/2018 MÔ TẢ BẢN CHẤT CỦA SÁNG KIẾN 7.1 Tổng quan vấn đề nghiên cứu 7.1.1 Mục đích nghiên cứu Góp phần đổi phương pháp dạy học sinh đại trà học sinh tham dự kì thi học sinh giỏi môn Tin học theo hướng phát huy tính tích cực, chủ động sáng tạo học sinh giúp học sinh tiếp thu tri thức cách có hiệu Góp phần gây hứng thú học tập môn Tin học cho học sinh lớp 11 học sinh tham gia thi chọn học sinh giỏi, tránh việc học thụ động, học vẹt Giúp học sinh lĩnh hội tri thức cách khoa học, củng cố khắc sâu kiến thức Qua đề tài mong muốn cung cấp cho học sinh vấn đề mà em gặp phải lập trình thơng qua việc sử dụng chương trình giúp em chủ động học tập, tích luỹ kiến thức, kỹ lập trình 7.1.2 Bản chất đối tượng nghiên cứu Đưa hệ thống lý thuyết chương trình ứng dụng chương trình giải tập ngơn ngữ lập trình Pascal giúp học sinh lĩnh hội tri thức, giúp em tích cực, chủ động tích lũy kiến thức, kích thích hứng thú học tập mơn Tin học Qua đó, học sinh phát triển tư logic thông qua hệ thống tập giúp em rèn luyện tính tự giác, tính kỉ luật, thói quen tự học đức tính rèn luyện tốt học sinh 7.1.3 Đối tượng, phạm vi nghiên cứu Đối tượng: Chương trình lập trình Trang Phạm vi: Các vấn đề chương trình ngơn ngữ lập trình Pascal 7.1.4 Phương pháp nghiên cứu Phương pháp Nghiên cứu lí luận chung Khảo sát điều tra thực tế dạy học Tổng hợp đúc rút kinh nghiệm Cách thực Trao đổi với đồng nghiệp, tham khảo ý kiến giáo viên môn Liên hệ thực tế nhà trường, áp dụng đúc rút kinh nghiệm qua trình giảng dạy Thơng qua việc giảng dạy trực tiếp học sinh khối 11 học sinh tham gia thi chọn học sinh giỏi môn Tin học lớp 11 7.1.5 Giới hạn không gian phương pháp nghiên cứu Đề tài đề cập với đồng nghiệp thực nghiệm sư phạm qua em học sinh lớp 11A1, 11A2 em học sinh tham gia dự kì thi chọn học sinh giỏi môn Tin học lớp 11 năm học 2017-2018, năm học 2018-2019 7.1.6 Phạm vi nghiên cứu Tôi nghiên cứu đề tài suốt trình giảng dạy thực nghiệm đề tài năm học 2018-2019 7.2 Phần nội dung 7.2.1 Cơ sở lý luận Đứng trước tốn lập trình tin học học sinh thường lúng túng tìm thuật tốn tốn từ đâu tìm nào? Một số học sinh khá, giỏi đội có thói quen mị mẫm thử nghiệm để tìm lời giải, điều dẫn tới kết sai chệch hướng giải tốn, hiệu suất để tìm thuật tốn không cao, số học sinh khơng biết cách tìm thuật tốn từ đâu điều gây tâm lý chán nản cho em Với tình hình để giúp học sinh định hướng tốt q trình tìm thuật tốn, trước tự tìm thuật tốn tốt người giáo viên cần tạo cho học sinh thói quen tìm thuật tốn từ các tốn quen thuộc mà em biết, khai thác yếu tố đặc trưng số toán sử dụng chương trình để giải cho toán Việc áp dụng thuật toán tốn chương trình xây dựng thuật toán cho toán tương tự toán mở rộng từ toán q trình giúp học sinh kích thích hứng thú học tập rèn luyện kỹ lập trình 7.2.2 Cơ sở thực tiễn Trường tơi nằm chân đê dải sông Hồng nên đa số học sinh nơng thơn nên chưa có hội, điều kiện tiếp xúc với cơng nghệ máy tính Vì vậy, tin học môn học tương Trang đối lạ lẫm khó học sinh trường tơi Học sinh học lớp khơng có hứng thú học tin học đặc biệt lập trình em khơng học thêm hay tin học môn mà em thi đại học Điều dẫn đến ý thức tự giác học sinh chưa cao, đặc biệt môn học lập trình Tin học lớp 11 Những thao tác thực hành đa phần học sinh chưa nhớ nhà em khơng có máy tính để học sinh rèn luyện kỹ thực hành cho học sinh Phần chương trình phần em học tiết lý thuyết Cơ sở giúp tơi áp dụng đề tài kích thích hứng thú học tập mơn Tin học thơng qua chương trình lập trình Pascal giảng dạy cho học sinh khối 11 áp dụng cho học sinh tham dự kì thi chọn học sinh giỏi cấp tỉnh cấp quốc gia 7.2.3 Nội dung cụ thể Tất nội dung, ví dụ, tập đề tài xây dựng ngơn ngữ lập trình Pascal I Khái niệm chương trình A Khái niệm Để viết chương trình giải tốn lớn, phức tạp người lập trình chia thành nhiều tốn nhỏ, tốn dãy lệnh mơ tả số thao tác định (gọi chương trình con) Sau ghép nối chương trình thành chương trình 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í khác chương trình B Lợi ích việc sử dụng chương trình • Tránh việc phải lặp lặp lại dãy lệnh • Hỗ trợ việc thực chương trình lớn • Phục vụ cho q trình trừu tượng hóa • Mở rộng khả ngơn ngữ • Thuận tiện cho việc phát triển nâng cấp chương trình II Phân loại cấu trúc chương trình A Phân loại Trong nhiều ngơn ngữ lập trình, chương trình thường gồm hai loại:  Hàm (Function): Là chương trình thực số thao tác trả giá trị qua tên Ví dụ: Sin(x) nhận vào giá trị thực x trả giá trị sin x Sqrt(x) nhận vào gía trị x trả giá trị bậc hai x Length(x) nhận vào xâu x trả độ dài xâu x  Thủ tục (Procedure): Là chương trình thực số thao tác đó, khơng trả giá trị qua tên Ví dụ: Các thủ tục vào/ra chuẩn hay thủ tục xử lí xâu: writeln, readln, delete Trang B Cấu trúc chương trình []  Phần đầu: Cấu trúc chương trình tương tự chương trình chính, chương trình chính, thiết phải có phần đầu để khai báo tên, Hàm phải có khai báo kiểu liệu trả  Phần khai báo: Có thể khai báo cho liệu vào ra, sử dụng chương trình  Phần thân: Là dãy lệnh thực chương trình từ liệu vào kết mong muốn Phần nằm hai từ khóa Begin End Ở thao tác cần thực Sau từ khóa End dấu chấm phẩy (;) o Một số lưu ý: Một chương trình có khơng có tham số hình thức, có khơng có biến cục • Tham số hình thức: Là tham số đưa vào định nghĩa chương trình • Tham số thực sự: Là tham số viết lời gọi chương trình • Biến cục bộ: Là biến khai báo chương trình • Biến toàn phần: Là biến khai báo chương trình  Trong thân hàm cần có lệnh: :=;  Kết thúc chương trình dấu chấm phẩy (;) C Thực chương trình  Để thực (gọi) chương trình con, ta cần phải có lệnh gọi tưởng tự lệnh gọi hàm hay thủ tục chuẩn, bao gồm tên chương trình 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 ( ) Các biến gọi tham số thực số thực  Lệnh gọi chương trình thực từ xuống chương trình  Khi thực gọi chương trình con, tham số hình thức dùng để nhập liệu vào tham số thực tương ứng Khi xuất liệu tham số hình thức lưu trữ liệu trả giá trị cho tham số thực tương ứng D Khai báo CTC – Nhắc lại cấu trúc chương trình PROGRAM Tên_chương_trình; { Tên chương trình} USES ; {Khai báo thư viện} CONST ;{Khai báo hằng} TYPE ;{Khai báo kiểu} VAR ;{Khai báo biến} Khai báo CTC BEGIN {Chương trình chính} Trang ; END Như phần khai báo CTC nằm phần cuối phần khai báo a Khai báo lời gọi hàm – Khai báo: FUNCTION (Danh sách ác tham số):; [Khai báo Const, Type, Var] BEGIN ; :=; END; Chú ý ln có phép gán tên hàm cho giá trị để hàm trả giá trị gọi Ví dụ: tính tổng số x y Function tong(x,y:integer):integer; {Do có giá trị trả về} var s:integer; begin s:=x+y; tong:=s; end; – Lời gọi hàm (danh sách tham số thực); Ví dụ: tong(4,5); b Khai báo lời gọi thủ tục – Khai báo: PROCEDURE (Danh sách tham số);{không có giá trị trả về} [Khai báo Const, Type, Var] BEGIN ; END; Ví dụ: Procedure inso(n:integer); var i:inteher; Begin for i:=1 to n write(i:5); Trang end; – Lời gọi thủ tục (danh sách tham số thực); Ví dụ: inso(6); E Biến tồn cục biến cục  Biến toàn cục biến khai báo chương trình Các biến co thẻ dùng nơi chương trình tồn suốt thời gian làm việc chương trình  Biến cục (biến địa phương) biến khai báo CTC Các biến sử dụng phạm vi ctc mà khai báo Sau kết thức ctc biến khơng cịn tồn Ví dụ: PROGRAM vidu; Var a,b,c:integer; {3 biến toàn cục} PROCEDURE thutuc(n:integer);{n biến cục bộ} var i:integer; {i biến cục bộ} begin for i:=1 to 10 writeln(i); end; BEGIN a:=5;b:=6;c:=8; thutuc( a); thutuc( b); thutuc( c); readln; END Trong trường họp biến cục trùng tên với biến toàn cục máy khơng bị nhầm lẫn mà thực biến cục Biến tồn cục khơng bị ảnh hưởng F Cách truyền tham số chương trình  CTC khơng cần có tham số (sau tên ctc) không dùng đến chúng dùng trực tiếp biến toàn cục  Khi truyền tham số tham số lời gọi ctc phải thứ tự kiểu tương ứng với khai báo ctc Ví dụ: Procedure inso(a:integer; ch:char); begin {các lệnh CTC} end; {gọi} inso(13,'a'); {lời gọi đúng} Trang inso('a',13); {loi goi sai} inso(13);{lời gọi sai}  Tham số hình thức (đối) tham số sau tên hàm thủ tục khai báo  Tham số thực tham số sau tên hàm thủ tục lời gọi  Tham biến: tham số khai báo sau từ khóa var Các tham số thực phải biến khơng giá trị Tham biến thay đổi CTC sau khỏi CTC giữ giá trị thay đổi  Tham trị: tham số khia báo mà khơng đứng sau từ khóa var Các tham số thực giá trị, hằng, biến Tham trị thay đổi ctc sau kết thúc ctc giá trị trở ban đầu  Các tham số hàm tham trị, tham số thủ tục tham trị tham biến  Phân biệt cách sử dụng hàm thủ tục Hàm khác thủ tục chỗ hàm trả giá trị cho lệnh gọi thơng qua tên hàm cịn thủ tục khơng * Hàm (Function)  Kết tốn trả giá trị (kiểu vô hướng, kiểu string kiểu trỏ)  Lời gọi CTC cần nằm biểu thức tính tốn * Thủ tục (Procedure)  Kết tốn khơng trả giá trị trả nhiều giá trị trả kiểu liệu có cấu trúc (Array, Record, File)  Lời gọi CTC không nằm biểu thức tính tốn  Chú ý: Nếu cơng việc làm hàm chắn làm thủ tục {tuy nhiên phức tạp dùng hàm} chương trình làm thủ tục chưa ta làm hàm Đối với Borland Pascal 7.0 ta gọi hàm gọi thủ tục Không thiết phải lấy giá trị trả Để thực điều menu Options >Compiler cần khai báo cú pháp mở rộng (Extended syntax), chương trình cần có dẫn hướng biên dịch {$ X+} Nếu không, biên dịch (gõ F9) Pascal thông báo lỗi “Error 122: Invalid variable reference” G Tính đệ quy chương trình Một CTC Pascal gọi Một lời gọi gọi lời gọi đệ quy Ta xét ví dụ sau: Nhập vào số ngun tính n! Ta biết n! = n =0 Trong trường hợp n>=1 ta có n!=n.(n-1)! Hàm tính n! function giai_thua(n:integer):longint; begin Trang if n=0 then giai_thua:=1 else giai_thua:=n*giai_thua(n-1); end; Lưu ý:  Khi sử dụng đệ quy phải có điều kiện kết thúc đệ quy (TH suy biến) Trong ví dụ ta xét điều kiện kết thúc đệ quy n=0 Nếu khơng có điều kiện kết thúc chương trình ta lặp vơ hạn  Ln có lời gọi đệ quy, TH lời gọi giai_thua(n-1); H Một số ví dụ Ví dụ 1: Cho số nguyên dương N (N SoDu = số dư N chia cho N = N chia cho Bổ sung chữ số SoDu vào số S thành chữ số Trả kết cuối S - Viết thân chương trình với nội dung dùng để kiểm tra kết thực hàm Khai báo biến N, M Thông báo nhập nhập giá trị cho biến N Gán giá trị M kết trả hàm Dec2Bin( N ) In thông báo kết số nhị phân chuyển đổi (giá trị M) Gọi hàm readln trước kết thúc chương trình Chương trình: Trang 10 End; { Than chuong trinh chinh } BEGIN NhapABC(a,b,c); KiemTra_InDienTich (a,b,c); END Ví dụ 5: Viết chương trình hồn chỉnh thực phân tích N thành thừa số nguyên tố Ví dụ: N = 1260 = Hướng dẫn:  Viết hàm nhập số N Lưu ý, hàm nhập cần truyền tham số N theo dạng tham biến để lưu lại giá trị nhập vào  Viết hàm phân tích số N thừa số nguyên tố in thừa số hình với ý tưởng thuật tốn: Chia N cho số nguyên tố u (nhỏ 2) Trong N cịn chia hết cho u tiến hành phân tích N với u thừa số Giảm N u lần Nếu N không chia hết cho u, thi tăng u lên Quá trình lặp lại với u bước tăng lên N không chia hết cho u N bước giảm xuống u lần N chia hết cho u Quá trình lặp lại đến mức u tăng lên N giảm xuống để N = u, giá trị N Chương trình mẫu Program Phan_Tich_Thua_So; Uses crt; Trang 16 Var N : integer; { Thu tuc nhap so N } Procedure NhapSoN( var NN : Integer ); Begin NN := 0; {Gan khoi dau bang de vao vong lap, vong lap dung nhap khac 0} While ( N = ) Begin Write( 'Nhap N=' ); Readln(NN ); End; End; { Thu tuc phan tich N cac thua so nguyen to } Procedure PhantichSoN ( Var N1 : Integer ); Var u,dem:Integer; Begin If ( N1 > ) Then Begin u := 2; dem := 0; While ( N1 > ) If ( N1 mod u = ) Then Begin dem:=dem+1; Writeln( u); N1 := N1 div u; Trang 17 End Else u:=u+1; End Else Writeln(' Khong the phan tich duoc' ); End; { Than chuong trinh chinh } BEGIN Clrscr; Writeln('Phan tich so N tich cua cac so nguyen to :' ); NhapSoN( N ); PhantichSoN( N ); Writeln ('Nhan Enter de ket thuc ' ); Readln; END J Bài tập áp dụng Bài tập 1: Viết chương trình giải phương trình bậc hai với yêu cầu sử dụng chương trình để giải trường hợp xãy delta Mã chương trình: Program Giai_PT_bac_hai; uses crt; var a,b,c,delta:real; Procedure delta_duong; begin Trang 18 write('Phuong trinh co hai nghiem x1=',(-b+sqrt(delta))/(2*a),'x2=',(b+sqrt(delta))/(2*a)); end; Procedure delta_khong; begin write('Phuong trinh co nghiem kep x=',-b/(2*a):3:1); end; Procedure delta_am; begin writeln('Phuong trinh vo nghiem'); end; {Chuong trinh chinh} Begin clrscr; write('Nhap a: ');readln(a); write('Nhap b: ');readln(b); write('Nhap c: ');readln(c); delta:=b*b-4*a*c; if delta>0 then delta_duong else if delta = then delta_khong else delta_am; readln end Nhận xét: Chương trình cho phép chia nhỏ cơng việc nhằm đơn giản hố Ngồi cơng việc lặp lại nhiều lần chương trình nên dùng CTC mã chương trình gọn, dễ theo dõi, gỡ rối Bài tập 2: Viết chương trình cho phép nhập hai số vào hai biến, thực đổi giá trị hai biến cho Yêu cầu dùng chương trình để thực chức đổi giá trị Mã chương trình: Program CTC_1; uses crt; var a,b: real; { CTC doi gia tri } Procedure swap(var x,y:real); Trang 19 var tam:real; begin tam:=x; x:=y; y:=tam; end; { -Ket thuc CTC -} begin clrscr; write('Nhap so a: ');readln(a); write('Nhap so b: ');readln(b); swap(a,b); write('Sau doi a =',a:3:1); write('Sau doi b =',b:3:1); readln end Nhận xét: - Nếu bỏ từ var khai báo var x,y:real chương trình khơng báo lỗi chức đổi giá trị hai biến khơng thực Bài tập 3: Tìm số lớn thứ nhì n số nhập từ bàn phím Ví dụ: Nhập sơ 10; 10; 9; 9; số lớn nhì Giải thuật: - Nhập số, Xác định giá trị cho hai biến Max, Nhi - Lần lượt nhâp số Với số nhập xét: - Nếu So > Max gán Nhi = Max, Max = So - Nếu Nhi < So < Max gán Nhi = So Mã chương trình Program So_lon_nhi; Var n,i,so, nhi,max,tam:integer; Procedure swap(var x,y:real); var tam:real; begin tam:=x; x:=y; Trang 20 y:=tam; end; Begin Write('Nhap n: ');Readln(n); Write('nhap so:');Readln(max); Write('nhap so: ');Readln(nhi); if nhi > Max then swap(Max,nhi) For i:= to n Begin Write('Nhap so: ');Readln(so); if (so>nhi) and (somax then Begin nhi:=max; Max:=so; End; End; Write('So thu nhi la: ',nhi); Readln End Bài tập 4: Viết chương trình tính giai thừa số n (Viết n!) Với yêu cầu: - Nếu người dùng nhập số n < yêu cầu nhập lại - Sử dụng chương trình để tính giai thừa số n! = n = 0; n! = 1.2.3.4.5 n (Tích n thừa số) Mã chương trình: Program CTC_2; uses crt; var n:integer;x:longint; Procedure Giai_Thua(var GT:longint; n:byte); begin GT:=1; while n>0 Trang 21 begin GT:=GT*n; n:=n-1; end; end; begin repeat clrscr; write('Nhap so n: ');readln(n); if n < then begin write('Nhap so n>=0');readln; end; until n>=0; Giai_Thua(x,n); writeln('Giai thua cua ',n,'la:',x); readln end Nhận xét: Lệnh n:= n-1 làm thay đổi giá trị n khỏi chương trình n có giá trị khơng đổi so với trước gọi chương trình Bài tập 5: Viết chương trình tính n! với yêu cầu sử dụng hàm để tính giai thừa Mã chương trình: Program Giai_thua_Ham; uses crt; var n: longint; Function Giai_Thua(n:longint):longint; Var GT:Longint; begin GT:=1; while n > begin GT:=GT * n; n:=n-1; end; Giai_thua:=GT; end; begin Trang 22 clrscr; write('Nhap n: '); readln(n); write(n,'!=',Giai_thua(n)); readln end Nhận xét: Hãy so sánh khác Giai_thua viết hai dạng Function Procedure - Khi dùng Procedure cần biến (toàn cục) để lưu giá trị n! Biến truyền cho tham biến Procedure Sau gọi cần lệnh để in n! - Khi dùng Function, sử dụng biểu thức Bài tập 6: Viết chương trình cho phép thực rút gọn phân số a Hướng dẫn: - Tìm UCLN tử số mẫu số - Chia tử mẫu phân số cho UCLN vừa tìm b Mã chương trình: Program Rut_gon_phan_so; uses crt; var tu,mau:integer; Function UCLN(a,b:integer):integer; var r: integer; begin r:= a mod b; while r begin a:= b; b:= r; r:=a mod b; end; UCLN:=b; end; begin clrscr; write('Nhap tu: '); readln(tu); write('Nhap mau: '); readln(mau); Trang 23 write('Ket qua rut gon: ',tu,'/',mau,'=',tu div UCLN(tu,mau),'/',mau div UCLN(tu,mau)); readln end Bài tập 7: Viết chương trình cho phép trộn hai dãy số A B có số phần tử k để dãy số C theo yêu cầu sau: A = a1, a2 ak B = b1, b2 bk Được C = a1, b1, a2, b2 ak, bk Mã chương trình: Program Tron_day; uses crt; type kieu_mang = array[1 100] of integer; var A, B, C: Kieu_mang; n,i,j: integer; Procedure Nhap_Mang(Var X: Kieu_mang; n:byte); var i:integer; begin for i:=1 to n begin write('M[',i,']=');readln(X[i]); end; end; Procedure In_Mang(X:kieu_mang; n:byte); var i: byte; begin for i:=1 to n write(x[i],', '); end; { -} begin clrscr; write('Nhap so phan tu cua day: ');read(n); Nhap_mang(A,n); Nhap_mang(B,n); Trang 24 i:=1; j:=1; while i3.4 0 3.5->4.9 5.0 ->6.4 10 16 6.5->7.9 12 13 25 8.0->10 13 20 33 Một số hình ảnh đề tài thực trường THPT Yên Lạc Trang 27 Tổng HS 40 40 11 DANH SÁCH TỔ CHỨC, CÁ NHÂN ĐÃ THAM GIA ÁP DỤNG SKNN TT Họ tên Địa Chức vụ Nguyễn Thị Nụ Trường THPT Yên Lạc Giáo viên Chu Thị Thu Trường THPT Yên Lạc Giáo viên Phan Thị Minh Hà Đội tuyển HSG Tin học 12 Trường THPT Yên Lạc Học sinh HS lớp 11A2 Trường THPT Yên Lạc Học sinh Trường THPT Yên Lạc Giáo viên Trang 28 Lĩnh vực áp dụng sáng kiến Bồi dưỡng đội tuyển tham gia kì thi chọn HSG giảng dạy học sinh lớp 11 môn tin học Bồi dưỡng đội tuyển tham gia kì thi chọn HSG giảng dạy học sinh lớp 11 môn tin học Giảng dạy học sinh lớp 11 môn tin học năm học 20182019 Ôn luyện tham gia kì thi chọn HSG 12 cấp tỉnh năm học 2018-2019 Học môn Tin học 11 năm học 2018-2019 KẾT LUẬN Sau thời gian áp dụng cách làm tơi nhận thấy kỹ lập trình vấn đề chương trình em tăng lên đáng kể, đặc biệt hứng thú học tập, khả sáng tạo Nhiều học sinh biết vận dụng thuật toán toán chương trình biết để giải tốn mở rộng, số em tự tìm lời giải số tốn khác khó thi chọn học sinh giỏi vừa qua em giành kết cao Điều cho thấy hiệu cách rèn luyện kỹ lập trình việc mở rộng toán Với cách làm đơn giản em học sinh có hứng thú để tiếp tục tìm hiểu giải tốn khác, thầy, áp dụng cách làm với nhiều dạng tập khác để thấy hiệu sáng kiến Tôi hy vọng thầy cô chọn đội tuyển để thi chọn học sinh giỏi mơn tin học có thành tích cao mong muốn tơi viết SKKN SKKN kinh nghiệm thân bồi dưỡng đội tuyển học sinh giỏi để thi trường mà điểm thi đầu vào lớp 10 mức huyện nên việc chọn đội tuyển khó khăn Với kết đó, mạnh dạn viết sáng kiến kinh nghiệm mày cách làm chưa đầy đủ sâu sắc, chưa thể đầy đủ ưu nhược điểm cịn nhiều thiếu sót, mong góp ý kiến, phản hồi quý độc giả Cuối hy vọng SKKN đồng nghiệp nghiên cứu áp dụng vào thực tiễn dạy học để rút điều lý thú bổ ích Chân thành cảm ơn! ., ngày tháng năm Thủ trưởng đơn vị/ Chính quyền địa phương (Ký tên, đóng dấu) , ngày tháng năm CHỦ TỊCH HỘI ĐỒNG SÁNG KIẾN CẤP CƠ SỞ (Ký tên, đóng dấu) Trang 29 , ngày tháng năm Tác giả sáng kiến (Ký, ghi rõ họ tên) TÀI LIỆU THAM KHẢO 1.Lý luận dạy học đại - Nguyễn Thị Phương Hoa 2.Lý luận dạy học đại: Một số vấn đề chung đổi phương pháp dạy học trường trung học phổ thông - Nguyễn Văn Cường 3.Phương pháp dạy học truyền thống đổi - Thái Duy Tuyên- NXB Giáo dục 2008 4.Sách giáo khoa Tin học 11- NXB Giáo dục 2013 5.Sách tập tin học 11- NXB Giáo dục 2013 6.Một số đề thi chọn học sinh giỏi tỉnh Vĩnh Phúc tỉnh khác 7.Một số tài liệu Pascal diễn đàn tin học Internet https://www.spoj.com/ http://voer.edu.vn/c/xau-ky-tu/6424aca1/ed63f563 http://ntucoder.net/ https://tuhoctin.net/lap-trinh/lap-trinh-co-ban/pascal.html Trang 30 ... tài ? ?Kích thích hứng thú học tập mơn Tin học thơng qua dạy học chương trình tin học 11? ?? nhằm cung cấp cho học sinh kiến thức khái quát chương trình con, rèn luyện kỹ lập trình kích thích hứng thú. .. trình kích thích hứng thú học tập môn cho học sinh thông qua số tốn cụ thể TÊN SÁNG KIẾN ? ?Kích thích hứng thú học tập môn Tin học thông qua dạy học chương trình tin học 11? ?? Trang TÁC GIẢ SÁNG KIẾN... để học sinh vận dụng kích thích húng thú học tập mơn Tin học cho học sinh lại điều đáng quan tâm Chương trình vấn đề hay gặp lập trình nói chung lập trình pascal nói riêng Chương trình tin học