Mục tiêu: - Viết được chương trình Pascal của 3 bài toán nhập giá trị cho 2 biến và tính tổng, hiệu, tích, thương, div, mod của nó; hoán đổi giá trị của hai biến, nhập số nhỏ hơn 10.. Ch[r]
(1)GIÁO ÁN TIN HỌC Tiết PPCT: 37 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 nhập giá trị cho biến và tính tổng, hiệu, tích, thương, div, mod nó; hoán đổi giá trị hai biến, nhập số nhỏ 10 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: Viết câu lệnh nhập giá trị cho biến viên, học sinh để ôn lại - Y/c HS trả lời các câu hỏi - HS trả lời các câu bài cũ trên hỏi GV (trình bày - Nhóm HS nhận xét, trên bảng) đánh giá HS trả lời câu - Y/c nhóm HS nhận xét, đánh giá - Nhóm HS nhận xét, hỏi 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 nhập 30’ Những tiết trước chúng ta đã ôn tập nhiều cách viết vào hai số và tính tổng, tích, chương trình tính diện tích, hiệu, thương, div, mod tiết này, chúng ta viết nó chương trình nhập giá trị cho Program Cacpheptinh; Uses Crt; biến và tính tổng, hiệu, tích, Var x, y: Integer; thương, div, mod nó; Begin hoán đổi giá trị hai biến, Clrscr; nhập số nhỏ 10 - Y/c Hs ghi nhận đề bài Writeln(‘nhap x:’);Read(x); - Y/c Hs lên bảng - Viết chương trình Writeln(‘nhap viết chương trình theo yêu cầu đề bài y:’);Read(y); - Y/c Hs nhận xét, sửa chửa Writeln(‘Tong la:’ , x+y); Writeln(‘Tong la:’ , x-y); (nếu có) - Nhận xét bài làm học Writeln(‘Tong la:’ , x/y); sinh Writeln(‘Tong la:’ , x - Y/c Hs nhập nội dung Mod y); chương trình vào môi trường - Nhập nội dung Writeln(‘Tong la:’ , x Div lập trình Pascal chương trình y); Readln; - Theo dõi, quan sát, trợ giúp End Trang Lop8.net (2) HS - Viết chương trình nhập vào hai số và hoán đổi giá trị nó Program Hoandoi; Uses Crt; Var x, y, z: Integer; Begin Clrscr; Writeln(‘nhap x:’);Read(x); Writeln(‘nhap y:’);Read(y); z:=x; x:=y; y:=x; Write(x,y); Readln; End - Viết chương trình nhập vào số nhỏ 10 (nếu sai thì thông báo lỗi) Program Nhapso; Uses Crt; Var x: Integer; Begin Clrscr; Writeln(‘nhap x:’);Read(x); If x<10 then Write(x) Else Write(‘So da nhap lon hon 10’); 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)