Mục tiêu: - Viết được chương trình Pascal của 3 bài toán tính diện tích hình chữ nhật, tam giác, hình tròn.. Chuẩn bị: GV: Phòng máy.[r]
(1)GIÁO ÁN TIN HỌC Tiết PPCT: 36 Ngày soạn: 28/11/2009 Ngày dạy: / /2009 – / /2009 ÔN TẬP THỰC HÀNH I Mục tiêu: - Viết chương trình Pascal bài toán tính diện tích hình chữ nhật, tam giác, hình tròn II Chuẩn bị: GV: Phòng máy HS: SGK, dụng cụ học tập đầy đủ III Hoạt động dạy học: 1/ Ổn định tổ chức: Yêu cầu hs báo cáo sĩ số, kiểm diện học sinh, nộp câu hỏi TN, nộp bài tập nhà (1’) 2/ Kiểm tra bài cũ: Hoạt động GV Hoạt động HS Nội dung TG - Vấn đáp giáo 5’ - Đặt câu hỏi chung cho lớp: Cho biết thuật toán tính diện tích viên, học sinh để ôn lại bài cũ hình A ghép từ hình chữ nhật và hình bán nguyệt - Nhóm HS nhận xét, - Y/c HS trả lời các câu hỏi - HS trả lời các câu đánh giá HS trả lời câu trên hỏi GV (trình bày hỏi trên bảng) - Y/c nhóm HS nhận xét, đánh giá - Nhóm HS nhận xét, HS trả lời câu hỏi đánh giá HS trả lời câu hỏi 3/ Bài mới: Hoạt động GV Hoạt động HS Nội dung TG - Viết chương trình tính diện 30’ Những tiết trước chúng ta đã ôn tập nhiều phần lý tích hình tam giác thuyết, tiết này, chúng ta Program Dientichtamgiac; Uses Crt; viết chương trình trên máy tính Var h,a: Integer; - Y/c Hs ghi nhận đề bài Begin - Y/c Hs lên bảng Clrscr; - Viết chương trình Write(‘Nhap dai canh viết chương trình theo yêu cầu đề bài day a=’);Read(a); - Y/c Hs nhận xét, sửa chửa Write(‘Nhap chieu cao (nếu có) h=’);Read(h); - Nhận xét bài làm học Write(‘Dien tich hinh tam sinh giac la:’ , a*h/2); - Y/c Hs nhập nội dung Readln; End chương trình vào môi trường - Nhập nội dung - Viết chương trình tính diện lập trình Pascal chương trình tích hình chữ nhật - Theo dõi, quan sát, trợ giúp Program Dientichhinhchunhat; HS Uses Crt; Var a,b: Integer; Trang Lop8.net (2) Begin Clrscr; Writeln(‘nhap chieu rong hinh chu nhat a=’);Read(a); Writeln(‘nhap chieu dai hinh chu nhat b=’);Read(b); Writeln(‘Dien tich hinh chu nhat la:’ , a*b); Readln; End - Viết chương trình tính diện tích hình tròn Program Dientichhinhtron; Uses Crt; Var r: Integer; Begin Clrscr; Write(‘Nhap ban kinh r=’);Read(r); Write(‘Dien tich hinh vuong la:’ , r*r*3.14); Readln; End Củng cố, dặn dò: Hoạt động GV Hoạt động HS Nội dung TG - Hs trả lời số câu 9’ * Củng cố: - Gọi -3 Hs thực lại hỏi GV đặt thao tác nhập chương trình * Dặn dò: - Yêu cầu hs nhà xem lại nội dung - Hs trả lời và nhận xét lý thuyết câu hỏi GV Trang Lop8.net (3)