Bài mới: Hoạt động của thầy Hoạt động của trò Hoạt động 1 17p: Bài 1tt GV: Phân nhóm thực hành HS: Ngồi vào máy tính theo nhóm đã ngồi theo nhóm cũ đã được.. được phân công..[r]
(1)Tuần: 31 Tiết: 60 Ngày soạn: 04/4/2014 Ngày dạy: 5/4/2014 BÀI THỰC HÀNH 7: XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRÌNH (T2) I MỤC TIÊU: Kiến thức: - Làm quen với việc khai báo và sử dụng biến mảng - Ôn luyện cách sử dụng câu lệnh lặp for Kỹ năng: - Củng cố các kĩ đọc hiểu và chỉnh sửa chương trình - Hiểu và viết chương trình với thuật toán tìm giá trị lớn nhất, nhỏ dãy số, tính tổng dãy số Thái độ: - Thái độ học tập nghiêm túc, yêu thích viết chương trình để thực số công việc II CHUẨN BỊ Chuẩn bị Giáo viên: Sách giáo khoa, giáo án, bài tập, phòng máy vi tính Chuẩn bị học sinh: - Sách vở, bút ghi, thước kẻ, kiến thức liên quan, III PHƯƠNG PHÁP - Thuyết trình, giảng giải, vấn đáp, trực quan IV TIẾN TRÌNH DẠY HỌC Tổ chức lớp: (1p) - Ổn định tổ chức Kiểm tra sĩ số Kiểm tra bài cũ: Kết hợp thực hành Bài mới: Hoạt động thầy Hoạt động trò Hoạt động (17p): Bài 1(tt) GV: Phân nhóm thực hành HS: Ngồi vào máy tính theo nhóm đã (ngồi theo nhóm cũ đã được phân công Nội dung ghi bài Bài 1: Viết chương trình nhập phân) điểm các bạn lớp GV: Y/c HS khởi động phần mềm TURBO PASCAL Mở HS: Khởi động pm và mở bài thực bài thực hành tiết trước với hành tiết trước với tên Phanloai tên Phanloai Sau đó in màn hình số d.Gõ tiếp phần thân chương - Gõ dịch và chạy thử chương trình bình, kém trình và máy tính sau phần SGK/80 khai báo, dịch và chạy Program Phan_loai; chương trình uses crt; Var i, n, G, Kh, TB, K: integer; A: array[1 100] of real; bạn đạt kết học tập loại khá, giỏi, trung Tiêu chuẩn: - Loại giỏi: 8.0 trở lên - Loại khá: 6.5 đến 7.9 - Loại TB: 5.0 đến 6.4 - Loại kém: 5.0 (2) Begin clrscr; Begin clrscr; write('nhap so HS lop, n= '); readln(n); writeln('Nhap diem :'); For i:=1 to n Begin write(i,' '); readln(a[i]); End; G:=0; Kh:= 0; TB:= 0; K:= 0; for i:=1 to n Begin if a[i] >= 8.0 then G:= G + 1; if a[i] <5.0 then K:= K + 1; if (a[i] <8.0 ) and (a[i] >=6.5) then Kh:= Kh + 1; if (a[i] >= ) and (a[i] < 6.5) then TB:= TB + 1; end; writeln(' Ket qua hoc tap: '); writeln(G, ' ban hoc gioi '); writeln(Kh, ' ban hoc kha '); writeln(TB, ' ban hoc trung binh'); writeln(K, ' ban hoc kem '); readln End Hoạt động2 (20p): Bài GV: Y/c HS đọc và nắm rõ HS: Đọc đề Bài và tìm hiểu các y/c y/c bài a Tìm hiểu ý nghĩa các HS: thảo luận nhóm và tìm hiểu ý câu lệnh sgk/81( tương nghĩa câu lệnh tự bài 1) b Bổ sung các câu lệnh bài HS: Bổ sung các câu lệnh bài vào vị trí thích hợp Bài 1, vào vị trí thích hợp dịch và chạy chương trình Bài 1, dịch và chạy chương Program Xep_loai; trình uses crt; Bài Bổ sung và chỉnh sửa chương trình BT2 (tiết 59 ) để nhập loại điểm Toán và Ngữ văn các bạn Sau đó in màn hình : a/ điểm TB bạn lớp theo công thức: Điểm TB = (Điểm toán + điểm văn)/2 (3) Var i, n: integer; TBtoan, TBvan: real; diemT, diemV: array[1 100] of real; Begin clrscr; writeln('Diem TB : '); For i:=1 to n write(i,' ',(diemT[i] + diemV[i])/2:3:1); TBtoan: =0; TBvan: =0; For i:=1 to n Begin TBtoan: = TBtoan + diemT[i] ; TBvan: = TBvan + diemV[i] ; end; TBtoan: = TBtoan /n; TBvan: = TBvan /n; writeln('Diem TB mon Toan : ',TBtoan :3:2); writeln('Diem TB mon Van: ',TBvan :3:2); readln End b/ Điểm TB lớp theo môn Toán và Ngữ văn Hoạt động (5p): Cũng cố - Giáo viên nhận xét và đánh giá tiết thực hành Hoạt động (2p): Dặn dò - Về nhà xem trước bài: “ Quan sát hình không gian với phần mềm Yenka V TỰ RÚT KINH NGHIỆM: (4) (5)