Giáo án phát triển năng lực Tin học Lớp 8 theo CV3280 - Tiết 52: Bài tập - Năm học 2019-2020

Nội dung text: Giáo án phát triển năng lực Tin học Lớp 8 theo CV3280 - Tiết 52: Bài tập - Năm học 2019-2020

1. Tuần: 26 Ngày soạn: 26/05/2020 Tiết: 52 Ngày dạy: 18/05/2020 BÀI TẬP I.MỤC TIÊU 1.Kiến thức - Biết viết chương trình Pascal sử dụng câu lệnh về biến mảng. 2.Kỹ năng - Rèn luyện khả năng đọc chương trình, tìm hiểu tác dụng và kết hợp các câu lệnh viết chương trình. 3.Thái độ - Thái độ học tập nghiêm túc, tích cực làm các bài tập thực hành. 4.Định hướng phát triển năng lực - Năng lực chung: Hiểu được cách sử dụng biến mảng trong chương trình. - Năng lực chuyên biệt: Sử dụng biến mảng viết chương trình trên máy tính. II. CHUẨN BỊ CỦA GV & HS 1.Chuẩn bị của giáo viên - Phấn, bảng đen, sách giáo khoa, giáo án. 2.Chuẩn bị của học sinh - Sách giáo khoa, vở ghi, bút, thước, kiến thức nội dung bài cũ. III.HOẠT ĐỘNG DẠY - HỌC 1.Ổn định lớp (2 phút) 2.Kiểm tra bài cũ 3.Bài mới Hoạt động 1: Luyện tập (42 phút) - Mục tiêu: Ôn lại kiến thức về biến mảng - Phương pháp: vấn đáp, hướng dẫn mẫu, nhóm. - Kĩ thuật dạy học: chia nhóm. - Phương tện dạy học: phòng máy - Hình thức tổ chức hoạt động: hoạt động nhóm. - Sản phẩm: Đưa ra được chương trình hoàn chỉnh có khai báo và sử dụng các biến mảng, sử dụng câu lệnh lặp if then, for do - Sản phẩm: Lầm được các bài tập theo yêu cầu Hoạt động giáo Hoạt động học sinh Nội dung viên 1.Hãy viết a) Nếu không sử dụng biến mảng, chương trình có thể dài Bài tập 1: Hãy chương trình như sau: viết chương nhập 5 số ngyên uses crt; trình nhập 5 số từ bàn phím và var So_1, So_2, So_3, So_4, So_5, Max: integer; ngyên từ bàn ghi ra màn hình begin phím và ghi ra số lớn nhất trong clrscr; màn hình số 5 số đó theo hai write('Nhap so thu nhat: '); readln(So_1); lớn nhất trong cách: không sử write('Nhap so thu hai: '); readln(So_2); 5 số đó theo dụng biến mảng write('Nhap so thu ba: '); readln(So_3); hai cách: và sử dụng biến write('Nhap so thu tu: '); readln(So_4); không sử dụng mảng. write('Nhap so thu nam: '); readln(So_5); biến mảng và Max:=So_1; sử dụng biến If Max<So_2 then Max:=So_2; mảng. If Max<So_3 then Max:=So_3; If Max<So_4 then Max:=So_4; If Max<So_5 then Max:=So_5; writeln('So lon nhat: ',Max); readln;
2. end. b) Nếu sử dụng biến mảng, chương trình chỉ ngắn gọn như sau: uses crt; var i, Max: integer; A: array[1 5] of integer; begin clrscr; for i:=1 to 5 do begin write('Nhap so thu ',i,':'); readln(A[i]) end; Max:=a[1]; for i:=2 to 5 do If Max 0 then S:=S+X[k]; writeln('Tong cac duong S=',S); readln;
3. end. 4.Luyện tập, Củng cố (1’) - Nhận xét, đáng giá, rút kinh nghiệm giờ học. 5.Vận dụng, mở rộng V.Hướng dẫn học ở nhà - Về nhà học bài, ôn kỹ các bài tiết sau kiểm tra thực hành 1 tiết.