Giáo án hay kế hoạch bài dạy môn tin học lớp 11 bộ kết nối tri thức và cuộc sống, chân trời sáng tạo và cánh diều. Theo công văn 5512 có chọa lọc hayI. MỤC ĐÍCH YÊU CẦU Biết ngôn ngữ lập trình có ba thành phần cơ bản Biết một số khái niệm tên, tên dành riêng, tên chuẩn, hằng và biến HS nhớ qui định về cách đặt tên hằng, biến... Biết nhận biết tên đặt sai, đúng. II. PHƯƠNG PHÁP Diễn giảng kết hợp phát vấn III. PHƯƠNG TIỆN DẠY HỌC SGK, SGV, nếu có máy chiếu thì tốt IV. NỘI DUNG VÀ TIẾN TRÌNH LÊN LỚP 1. Ổn định lớp (Kiểm tra sỉ số) 2. Kiểm tra bài cũ Câu 1: Chức năng của chương trình dịch Câu 2: Sự giống và khác nhau giữa biên dịch và thông dịch
Tiết CT: 17 Ngày soạn: 25/10/2021 Ngày dạy: 1/11- 6/11/2021 BÀI TẬP I MỤC ĐÍCH – YÊU CẦU Kiến thức Củng cố kiến thức học chương III: cấu trúc rẽ nhánh cấu trúc lặp Kĩ Rèn luyện kĩ sử dụng cấu trúc rẽ nhánh việc lập trình giải tốn cụ thể Thái độ Tự giác, tích cực, chủ động việc làm tập II PHƯƠNG PHÁP Nêu vấn đề giải vấn đề III PHƯƠNG TIỆN DẠY HỌC Bảng phụ, giáo án… IV NỘI DUNG VÀ TIẾN TRÌNH LÊN LỚP Ổn định lớp (kiểm tra sĩ số) Kiểm tra cũ: Câu 1: viết cấu trúc lặp pascal: dạng lặp tiến lặp lùi? Cho ví dụ? Câu 2: điền câu lệnh vào đoạn chương trình sau: Program Tong_2; Uses crt; Var A, N: integer; ……………… Begin Write((hay nhap gia trị a vào!’); Readln(a); S:=1/a; N:= 0; While not(1/(a+N) < 0.0001) Begin N:=N+ 1; ………………… End; Writeln(‘ Tong S la: ‘, S: 8: 3); Readln End Nội dung HOẠT ĐỘNG CỦA HS HOẠT ĐỘNG CỦA GV Yêu cầu HS thảo luận phút lên bảng viết câu lệnh Thảo luận trình bày bảng Bài 4: Viết câu lệnh rẽ nhánh tính 22 a) z =¿{x +y ¿{x +y¿ ¿ x2 + y2 ≤ x2 + y2 > y ≥ x x2 + y2 > y < x HOẠT ĐỘNG CỦA HS HOẠT ĐỘNG CỦA GV if (sqr(x) + sqr(y)) 1) and (y>=x) then z := x+ y else z := 0.5; b z=¿ {|x|+|y|¿ ¿¿¿ Nếu điểm (x, y) thuộc hình trịn bán kính r (r > 0), tâm (a,b) Trường hợp lại Điều kiện để M thuộc đường tròn Yêu cầu HS lên biểu diễn Pascal tâm O Hướng dẫn giải ? n có giá trị nào? ? Vậy ta phải dùng cấu trúc lặp tốt nhất? Tương tự chương trình tính tổng VD1 u cầu HS viết chương trình OM ≤ R √ 2 ( x−a ) +( y−b ) Hay Lên bảng trình bày ≤R if sqrt(sqr(x − a) +sqr(y − b)); ví dụ: type mang = array[1 10] of integer; var A : mang; đó: − Kiểu số: thường đoạn số nguyên liên tục − Kiểu phần tử kiểu phần tử mảng * Tham chiếu phần tử mảng: thông qua tên mảng số Cú pháp: tên_mảng[chỉ số] Ví dụ: A[2] {tham chiếu đến phần tử thứ hai mảng A Để tham chiếu đến phần tử thứ 10 mảng ta viết nhietdo[10] số phần 10 11 tử Mảng 23 24 22 28 Nhietdo b Một số ví dụ ví dụ 1: viết chương trình tìm đưa hình phần tử lớn dãy dố nguyên Input: số nguyên N dãy N số nguyên a1, a2, …,aN * Chương trình: Output: số giá trị lớn Program TimMax; dãy Uses crt; Type Dayso = array[1 250] of integer; thảo luận lên viết chương Var N, i, Max, csMax: integer; HOẠT ĐỘNG CỦA HS trình Input: Số nguyên dương N, dãy A gồm N số nguyên dương A1, A2, …,AN Output: Dãy số A xếp thành dãy không giảm NỘI DUNG A: Dayso; Begin Clrscr; Write(‘nhap so phan tu: ‘); readln(N); For i := to N Begin Write(‘nhap phan tu thu ‘,i, ‘:’); Readln(A[i]); End; Max:= A[1]; csMax := 1; For i:= to N If A[i] > Max then Begin Max := A[i]; Csmax := i; End; Write(‘gia tri cua phan tu max: ‘,max); Write(‘chi so cua phan tu Max: ‘, csmax); Readln End Ví dụ 2: Sắp xếp dãy số nguyên thuật toán tráo đổi Program sapxep; Uses crt; Type Dayso = array[1 250] of integer; Var N,i, j,t: integer; Begin Clrscr; Write(‘nhap so phan tu day: ‘); readln(N); for i:=1 to N begin write(‘nhap vao phan tu thu ‘,i,’: ‘); readln(A[i]); end; for j := N downto N for i := to j – if A[i] > A[i + 1] then begin {trao doi A[i] va A[i + 1]} t := A[i]; A[i]:= A[i + 1]; A[i + 1] := t; end; writeln(‘day so duoc sap xep la:’); for i := to N write(A[i]:4); HOẠT ĐỘNG CỦA HS NỘI DUNG readln; End Ví dụ 3: tìm kiếm nhị phân Input: Số nguyên dương N, dãy A gồm N số nguyên dương A1, A2, …, AN số nguyên k Output: số i mà Ai = k thơng báo “khơng tìm thấy số hạng k Chương trình: Program TK_nhiphan; Uses crt; Type Dayso = array[1 250] of integer; Var N, i, k: integer; Dau, Cuoi, Giua: integer; A: Dayso; Tim_thay: boolean; Begin clrscr; write(‘nhap so phan tu cua day, N = ‘); readln(N); writeln(‘nhap cac phan tu cua day so tang: ‘); For i := to N begin write(‘phan tu thu’,i,’ = ‘); readln(A[i]); end; write(‘nhap gia tri k = ‘); readln(k); Dau:= 1; cuoi := N; Tim_thay:= false; while (dau k then Cuoi := Giua − else Dau:= Giua + 1; end; if Tim_thay then writeln(‘chi so tim duoc la: ‘,Giua) else write(‘khong tim thay’); readln end V CỦNG CỐ - DẶN DÒ Củng cố: Các cách khai báo mảng, tham chiếu đến phần tử mảng