Mục tiêu: - Vận dụng cách mô tả thuật toán để viết chương trình đơn giản tính diện tích của hình A và chương trình tìm nghiệm của phương trình bậc nhất.. - Hiểu được nội dung của chương [r]
(1)GIÁO ÁN TIN HỌC Tiết PPCT: 24 Ngày soạn: 26/10/2009 Ngày dạy: 2/11/2009 – 7/11/2009 BÀI TẬP ( BÀI TỪ BÀI TOÁN ĐẾN CHƯƠNG TRÌNH) I Mục tiêu: - Vận dụng cách mô tả thuật toán để viết chương trình đơn giản tính diện tích hình A và chương trình tìm nghiệm phương trình bậc - Hiểu nội dung chương trình II Chuẩn bị: GV: Bảng phụ 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: Xác định kết việc thực viên, học sinh để ôn lại bài cũ thuật toán sau: B1: x:=x+x+y - Nhóm HS nhận xét, đánh giá HS trả lời câu B2: y:=y+y+x hỏi B3: x:=x-y - Y/c HS trả lời các câu hỏi - HS trả lời các câu trên hỏi GV (trình bày 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 Tiết trước chúng ta đã biết thuật toán giải số bài toán xác định Input, Output, các phép gán, thuật toán mô tả số dương có lập thành cạnh tam giác, 15’ Hoạt động 1: Tìm hiểu chương trình tìm diện tích hình A - Y/c Hs cho biết thuật toán tính diện tích hình A gồm hình chữ nhật và hình bán nguyệt ghép lại? Viết chương trình tính diện tích hình A - Input: a là ½ chiều rộng ghép từ hình chữ nhật hình chữ nhật và là bán và hình bán nguyệt kính hình bán nguyệt, b là Program DientichhinhA; Uses Crt; chiều dài hình chữ nhật - Output: Diện tích hình A Var a,b:Integer; Begin - Bước 1: S1 ← 2ab Trang Lop8.net (2) - Bước 2: S2 ← πa2/2 - Bước 3: S ← S1+S2 Clrscr; Writeln(‘nhapba:’);Read(a); Writeln(‘nhap b:’);Read(b); Writeln(‘Dien tich hinh A la:’ , 2*a*b+pi*a*a/2); Readln; end - Cho biết các biến - Có biến a và b chương trình? - Cho biết cách khai báo các - Var a, b: Integer; biến này? - Cho biết cách viết câu lệnh Writeln(‘nhapba:’);Read(a); để nhập giá trị cho các biến Writeln(‘nhap b:’);Read(b); a, b? - Cho biết cách tính diện tích hình A từ thuật toán? - 2*a*b+pi*a*a/2 - Câu lệnh tính diện tích viết nào? Writeln(‘Dien tich hinh A la:’ trình , 2*a*b+pi*a*a/2); Viết chương trình nhập 15’ Hoạt động 2: Tìm hiểu chương nhập vào hai số vào hai số và tính tổng, và tính tổng, hiệu, tích, Div, Mod, thương nó hiệu, tích, Div, Mod, - Cho biết điều kiện thương nó? ban đầu bài toán và kết Program Cacpheptinh; - Input: hai số a, b Uses Crt; thu được? - Output: kết các Var x, y: Integer; phép toán tổng, hiệu, tích, Begin Div, Mod, thương nó Clrscr; - Mô tả thuât toán bài Writeln(‘nhap x:’);Read(x); toán này? - Bài toán đơn giản, không Writeln(‘nhap y:’);Read(y); Writeln(‘Tong la:’ , x+y); cần phải tìm thuật toán, Writeln(‘Tong la:’ , x-y); thuật toán nằm Writeln(‘Tong la:’ , x/y); đề bài - Nêu cách khai báo biến? - Var x, y: Integer; Writeln(‘Tong la:’ , x Mod y); - Hãy viết các câu lệnh nhập x và y? Writeln(‘nhapx:’);Read(x); Writeln(‘Tong la:’ , x Div Writeln(‘nhapy:’);Read(y); y); - Viết các câu lệnh tính các Readln; phép tính theo đề bài? Writeln(‘Tong la:’ , x+y); End Writeln(‘Tong la:’ , x-y); Writeln(‘Tong la:’ , x/y); Writeln(‘Tong la:’ , x Mod y); Writeln(‘Tong la:’ , x Div y); Củng cố, dặn dò: TG Hoạt động GV 9’ * Củng cố: - Phải tất các bài toán phải tìm thuật toán? - Trình bày lại “khung sườn” chương trình pascal Hoạt động HS Trang Lop8.net Nội dung - Hs trả lời số câu hỏi GV đặt (3) Yêu cầu hs trả lời, nhận xét - Hs trả lời và nhận xét * Dặn dò: câu hỏi GV - Yêu cầu hs nhà xem lại nội dung bài, làm bài tập viết chương trình tính diện tích hình tam giác và hình chữ nhật Trang Lop8.net (4)