Giáo án tin học 7_ tiết 16

A.MỤC TIÊU Rèn luyện kỹ năng viết chương trình Pascal trên máy vi tính về tính giá trị biểu thức . Thao tác làm việc với máy tính nhanh, chính xác, gọn, đẹp B. CHUẨN BỊ: 1.Giáo viên: Phòng máy, phiếu học tập, bài tập thực hành.
Nội dung trích xuất từ tài liệu:
Giáo án tin học 7_ tiết 16 Tiết 16 Thực hànhA.MỤC TIÊU Rèn luyện kỹ năng viết chương trình Pascal trên máyvi tính về tính giá trị biểu thức . Thao tác làm việc với máy tính nhanh, chính xác, gọn,đẹpB. CHUẨN BỊ: 1.Giáo viên: Phòng máy, phiếu học tập, bài tập thựchành. 2.Học sinh: Kiến thức bài cũ, vở ghi, đồ dùng học tập.C.CÁC HOẠT ĐỘNG DẠY HỌC. 1.Ổn định tổ chức Kiểm tra sĩ số lớp: Lớp 7A1:………………………………………… ……... Lớp 7A2 :…………………………………………… …... 2.Hoạt động thực hành: Chia lớp làm 2 ca 3.Dạy thực hành: Khởi động máy, gọi học sinh theo từng nhóm tươngứng với các máy. Phát phiếu học tập có nội dung bài tập thực hành chohọc sinh theo từng máy. Các nhóm máy tiến hành làm bài thực hành.Hoạt động của giáo viên và học Nội dung sinh Tiết 16: Thực hành Bài tập thực hành 1. Cho a, b, d, h lần lượt là số đo ba cạnh của một tam giác và sốGV: Yêu cầu các nhóm thực đo chiều cao tương ứng của cạnh có số đo là a. Viết chương tínhhành theomáy, nhận phiếu học tập và làm chu vi và diện tích tam giác đó.theo yêu cầu của bài thực hành 2. Viết chương trình tính giá trị của biểu thức A = ( 3 – m )x2 + 2mx + m +2 Chữa bài thực hành 1. Program Tam_giac ; Var a, b, d, h, S , C : Real;HS: Thực hành Begin Write(‘Tinh chu vi và dien tich cua tam giac’); Write (‘ Cho biet so do canh a = ‘); Readln ( a ); Write (‘ Cho biet so do canh b = ‘); Readln ( b );GV: Hướng dẫn theo từng máy Write (‘ Cho biet so do canh dyêu cầu học sinh trong cùng một = ‘);máy thay đổi nhau để thực hành. Readln ( d ); Write (‘ Cho biet so do chieu cao h = ‘); Readln ( d ); S : = ( a * h ) / 2; C : = ( a + b + d ); Writeln (‘ Dien tich cua tam giac là : ‘, S : 4 : 1 ); Writeln (‘ Chu vi cua tam giac la : ‘, C : 4 : 1 ); Readln ; End. 2. ProgramHS: Thực hành Tinh_gia_tri_bieu_thuc ; Var A, x, m : Real; Begin Write(‘Tinh gia tri cua cac bieu thuc’); Write (‘ Cho biet gia tri cua m = ‘); Readln ( m ); Write (‘ Cho biet gia tri cua x = ‘); Readln ( x ); A : = (3 – m) * x * x + 2 * m * x +m+2; Writeln (‘ Gia tri cua bieu thuc A = ‘, A : 4 : 1 ); Readln ; End.4.Củng cố và hướng dẫn về nhà Yêu cầu học sinh chữa bài thực hành vào vở Ôn lại tất cả các kiến thức đã học để cho tiết ôntập Yêu cầu học sinh tắt máy trước khi nghỉD.RÚT KINH NGHIỆM:……………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………................................................................................................................................................................ ===========================