BÀI SOẠN TIN HỌC 11 HỌC KỲ 2 CÔNG VĂN 4040

Ngày dạy: Ngày dạy: Ngày dạy: Ngày dạy: / / / / /2020 lớp 11B6 /2020 lớp 11B7 /2020 lớp 11B8 /2020 lớp 11B9 PPCT: 19 BÀI TẬP THỰC HÀNH I MỤC TIÊU Kiến thức: - Xây dựng chương trình có sử dụng cấu trúc rẽ nhánh - Làm quen với việc hiệu chỉnh chương trình Kỹ năng: - Thực bi sỏch giỏo khoa Thái độ - Ham thích mơn học, có tính kỉ luật cao tinh thần làm việc theo nhóm Phát triển lực Giúp học sinh khám phá, tự học, lực hợp tác thực hành, lực trình bày vịng lặp For lập trình II CHUẨN BỊ CỦA GV VÀ HS Chuẩn bị GV: - Giáo án, phấn, bảng, phòng thực hành Chuẩn bị HS: - Sách giáo khoa, ghi III HOẠT ĐỘNG DẠY HỌC Hoạt động khởi động Mục tiêu: - Giúp học sinh huy động kiến thức kĩ để tổng hợp kiến thức cấu trúc lặp lập trình - Giáo viên quan sát học sinh, hướng dẫn học sinh vận dụng tập vòng lặp For Tiến hành: - Hướng dẫn viết cấu trúc lặp Pascal - Giáo viên kết luận hoạt động học sinh vào Bài mới: Hoạt động GV HS Nội dung HĐ1.(40')Giáo viên nêu nội dung I NỘI DUNG: tập có sử dụng cấu trúc rẽ nhánh Bài toán: Bộ số Pitago GV: Nêu yêu cầu bài: a) Gõ chương trình kiểm tra số PiBài toán: Cho ba số nguyên a, b, c ta-go gọi số Pi-ta-go tổng Program Pi_ta_go; bình phương hai số bình Var a, b, c :Integer; phương số lại Viết chương a2, b2, c2: Longint; trình nhập từ bàn phím ba số nguyên a, Begin b, c kiểm tra xem chúng xem chúng Write(‘ a, b, c ‘); Readln(a, b, c); có số Pi-ta-go khơng? a2:=a; b2:=b; c2:=c; - ý tưởng: Kiểm tra đẳng thức sau a2:=a2*a; b2:=b2*b; c2:=c2*c; có xảy hay khơng: a2 = b2 + c2 b2 = a2 + c2 c2 = a2 + b2 GV: Hướng dẫn học sinh thực nhập chương trình, lưư chương trình với tên PITAGO thực với số sách giáo khoa HS: Nhập chương trình GV: Hướng dẫn học sinh cách lưu chương trình? HS: Thực theo hướng dẫn GV If (a2=b2+c2) or (b2=a2+c2) or (c2=a2+b2) then Writeln(‘ Day la bo so Pi-ta-go’) Else Writeln(‘ Day khong phai bo so Pi-ta-go’); Readln End b) Lưu chương trình với tên Pitago lên đĩa Muốn lưu tên chương trình sau gõ xong chương trình ta nhấn phím F2 chọn vào File-> Saves hiển thị hộp thoại ta gõ tên chương trình là:Pitago chọn OK c) Nhấn phím F7 để thực câu lệnh chương trình, nhập giá trị a =3, b=4 , c=5 d)Vào bảng chọn Debug để hiệu chỉnh GV: Hướng dẫn hs nhấn phím F7 để giá trị a2, b2, c2 thực câu lệnh Muốn thực ta chọn vào Debug bảng chọn HS: Thực theo hướng dẫn GV e)Nhấn phím F7 để thực câu GV: Yêu cầu hs nhà tự làm ý lệnh chương trình, nhập giá trị lại a =9, b=16 , c=25 Củng cố, luyện tập(3’) - Nhắc nhở lại kiến thức học cấu trúc rẽ nhánh, lăp, cấu trúc chương trình thành phần chương trình Luyện tập: Hãy Nhấn phím F7 để thực câu lệnh chương trình, nhập giá trị a =6, b=15 , c=2 Vận dụng mở rộng (2’) - Về nhà học làm tiếp tập lại Ngày dạy: Ngày dạy: Ngày dạy: Ngày dạy: / / / / /2020 lớp 11B6 /2020 lớp 11B7 /2020 lớp 11B8 /2020 lớp 11B9 PPCT: 20 BÀI TẬP THỰC HÀNH I MỤC TIÊU Kiến thức: - Xây dựng chương trình có sử dụng cấu trúc rẽ nhánh - Làm quen với việc hiệu chỉnh chương trình Kỹ năng: - Thực tập sách giỏo khoa Thái độ - Ham thớch mụn hc, có tính kỉ luật cao tinh thần làm việc theo nhóm Phát triển lực Giúp học sinh khám phá, tự học, lực hợp tác thực hành, lực trình bày vịng lặp For lập trình II CHUẨN BỊ CỦA GV VÀ HS Chuẩn bị GV: - Giáo án, phấn, bảng, phòng thực hành Chuẩn bị HS: - Sách giáo khoa, ghi III HOẠT ĐỘNG DẠY HỌC Hoạt động khởi động Mục tiêu: - Giúp học sinh huy động kiến thức kĩ để tổng hợp kiến thức cấu trúc lặp lập trình - Giáo viên quan sát học sinh, hướng dẫn học sinh vận dụng tập vòng lặp For Tiến hành: - Hướng dẫn viết cấu trúc lặp Pascal - Giáo viên kết luận hoạt động học sinh vào Bài mới: Hoạt động GV HS Nội dung HĐ2 (40') Giáo viên nêu nội dung Thực tập sách giáo tập có sử dụng cấu trúc rẽ nhánh khoa GV: Yêu cầu hs làm tập 4a SGK-51 a) tập 4a: Program baitap4a; Var x, y :Integer; z: Real; Begin Write(‘ Nhap vao so x: ’); Readln(x); GV:Với có sử dụng lệnh rẽ Write(‘ Nhap vao so y: ’); nhánh dạng thiếu không? Readln(y); GV:Giáo viên hướng dẫn học sinh nhập chương trình HS: Làm theo hướng dẫn GV HS: Trả lời ta không sử dụng If (x*x+y*y) =x then z:=x+y Else z:=0.5; Writeln(‘Gia tri cua z la: ’,z:8:2); Readln; End GV: Nêu đầu SGK trang 51 b) Bài tập 5a HS: Theo dõi đọc yêu cầu tập Program baitap5a; Var n :Integer; GV: Gọi mộ hs trả lời với tập S :Real; cần khai báo biến ? Begin S:=0; HS: Trả lời For n:=1 to 50 S:=S+n/(n+1); GV:Ta dùng vòng lặp để thực hiện? Writeln(‘Tong day so la: S= ’,S:8:2); HS: Ta dùng vòng lặp For để thực Readln; End GV:Nêu yêu cầu tập 5b SGK trang 51 c) Bài tập 5b: Program baitap5a; Var n, tg :Integer; HS: Theo dõi tập S :Real; Begin GV:Nếu ta sử dụng vịng lặp While S:=1; tg:=1; n:=0; toán thực nào? While (1/tg>0.000002) Begin HS: Trả lời câu hỏi N:=n+1; Tg:=tg*n S:=S+1/tg; GV:Ta có cần biến trung gian để End; tính giai thừa toán? Writeln(‘Tong day so la: S= ’,S:8:2); HS: Quan sát chương trình viết Readln; trả lời End Củng cố , luyện tập (3’) - Nhắc lại kiến thức học cấu trúc rẽ nhánh, lăp, cấu trúc chương trình thành phần chương trình Vận dụng mở rộng (2’) - Về nhà học làm tập nhà Ngày dạy: / /2020 lớp 11B6 Ngày dạy: / /2020 lớp 11B7 Ngày dạy: / /2020 lớp 11B8 Ngày dạy: / /2020 lớp 11B9 PPCT: 21 Chương IV: DỮ LIỆU CÓ CẤU TRÚC Bài 11: KIỂU MẢNG I MỤC TIÊU Kiến thức: - Hiểu khái niệm mảng chiều - Hiểu cách khai báo truy cập đến phần tử mảng chiều Kỹ - Cái đặt thuật toán số toán đơn giản với kiểu liệu mảng chiều Thái độ - Ham thích mơn học, có tính kỉ luật cao tinh thần làm việc theo nhóm Phát triển lực Giúp học sinh khám phá, tự học, lực hợp tác thực hành, lực trình bày vịng lặp For lập trình II CHUẨN BỊ CỦA GV VÀ HS Chuẩn bị GV: - Giáo án, phấn, bảng, phòng thực hành Chuẩn bị HS: - Sách giáo khoa, ghi III HOẠT ĐỘNG DẠY HỌC Hoạt động khởi động Mục tiêu: - Giúp học sinh huy động kiến thức kĩ để tổng hợp kiến thức mảng lập trình - Giáo viên quan sát học sinh, hướng dẫn học sinh vận dụng tập mảng Tiến hành: - Hướng dẫn viết cấu trúc mảng Pascal - Giáo viên kết luận hoạt động học sinh vào Bài mới: Hoạt động GV HS Nội dung HĐ1: Học sinh hiểu khái niệm Kiểu mảng chiều mảng chiều cách khai báo mảng chiều Hình thức: Cả lớp Bài toán đặt vấn đề: Xét toán nhập vào nhiệt Thời gian: 40’ độ (trung bình) ngày tuần, tính Bước 1: Giáo viênhướng dẫn đưa hình nhiệt độ trung bình tuần toán đặt vấn đề số lượng ngày tuần có nhiệt độ cao - Yêu cầu học sinh xác định nhiệt độ trung bình tuần toán *) Xác định toán - GV Chạy chương trình Dữ liệu biết(Input): t1,t2,t3,t4,t5,t6,t7 Dữ liệu cần tính in ra(Output) : tb, dem hình giải thích - Nếu muốn tính nhiƯt độ trung bình N ngày năm (VD: N=365) gặp khó khăn ? - Th mảng chiều? - Có cách khai báo mảng chiều? Ví dụ A Trong đó: - Tên mảng A - Số phần tử - Kiểu liệu phần tử : kiểu nguyên - Khi tham chiếu tới phần tử thứ i ta viết A[i] Ví dụ: A[5] = 19 - Lấy ví dụ cách khai báo mảng: +) Khai báo trực tiếp VD1: Var nhietdo : array[1 365] of integer; VD2: Var B : array[1 100] of real; +) Khai báo gián tiếp TYPE nhietdo = array[1 365] of integer; Var A: nhietdo; - Vậy quay trở lại với tốn tính nhiệt độ Khi cần tính nhiệt độ N ngày sử dụng kiểu mảng chiều => Mảng chiều dãy hữu hạn phần tử kiểu - Mảng đặt tên phần tử có số Để mô tả mảng chiều cần xác định kiểu phần tử cách đánh số phần tử mảng - Để lập trình sử dụng kiểu mảng chiều ngơn ngữ lập trình có quy tắc cách thức cho phép xác định + Tên kiểu mảng chiều; + Số lượng phần tử; + Kiểu liệu phần tử; + Cách khai báo biến mảng mảng; + Cách tham chiếu đến phần tử; a) Khai báo Cách khai báo mảng chiều có dạng: - Cách 1: Khai báo trực tiếp biến mảng chiều Var :array[kiểu số] of ; - Cách 2: Khai báo gián tiếp biến mảng qua mảng chiều; Type =array[kiểu số] of ; Var :; Trong đó: - Kiểu số thường đoạn số nguyên liên tục có dạng n1 n2 biểu thức nguyên xác định số đầu số cuối (n1Max Max←Ai; Bước 4.2: i←i+1 quay lại bước 3; - Lấy ví dụ cụ thể dãy số thực VD: N=3, a1=13; a2= 15; a3=11 B1: Nhập N= 3; B2: Max =a1= 13, i←2; B3: i←2 Max=a1=13→Max=a2=15; B4.2: i←i+1=3; B3: i=3=N=3; B4.1: ai=a3=11N=3→Max=a2=15; - Hướng dẫn học sinh viết chương trình cụ thể giải thích ý nghĩa câu lệnh Bước 2: HS ý\ Bước 3: GV chuẩn lại kiến thưc Chương trình đâythực việc duyệt phần tử dãy để tìm phần tử lớn Program TimMax; Const Nmax=250; Type Mang1=Array[1 Max] of Integer; Var N, i, csmax,:Integer; A:Mang1 ; Begin Write(‘Nhap so luong phan tu cua day so N= ‘); readln(N); For i:=1 to N Begin Write(‘Phan tu thu ’,i,’ = ‘); Readln(A[i]); End; Max:=A[1]; csmax:=1; For i:=1 to N If A[i]>Max then Begin Max:=A[i]; Csmax:=i; End; Writeln(‘Gia tri lon nhat cua day la: ’ ,Max); Writeln(‘Nam tai vi tri ’,csmax); Readln; HĐ2: HS áp dụng tập hướng dẫn tìm phần tử nhỏ dãy: Hình thức: Làm theo nhóm Thời gian: 10’ Bước 1: GV chia lớp thành nhóm yêu cầu Nhóm 1, viết phần khai báo phần nhập mảng Nhóm 3,4 viết đoạn chương trình tìm giá trị nhỏ viết kết hình - Cách nhập phần tử mảng làm tương tự tìm phần tử lớn - Ta giả sử số lớn dãy số đầu tiên, so sánh số với số tiếp theo, Ai < Min Min gán Ai -Quá trình kiểm tra kết thúc dãy số Bước 2: HS nhóm thực theo hướng dẫn Bước 3: GV Hướng dẫn học sinh hồn thiện chương trình End *) Ví dụ áp dụng: Tìm giá trị nhỏ dãy Min:=A[1]; csmin:=1; For i:=1 to N If A[i]='0') and(s[i]