Uses Crt; Baøi taäp: Vieát chöông trình tính chæ Var h, w: Real; số khối cơ thể BMI theo công thức w Begin 2 Write‘nhaäp h’; BMI= H , trong đó w là cân nặng Readlnh; của một người tính b[r]
(1)Ngày soạn: 17/10/2012 Ngaøy daïy: 19/10/2012 Tuaàn: Tieát: 15 BAØI TAÄP I Muïc tieâu: Kiến thức: - Hiểu số kiểu liệu chuẩn - Bieát caáu truùc cuûa moät chöông trình Pascal: caáu truùc chung vaø caùc thaønh phaàn Kó naêng: - Viết chương trình Pascal đơn giản, khai báo đúng biến, câu lệnh vào để nhập thông tin từ bàn phím đưa thông tin màn hình Thái độ: Nghiêm túc quá trình làm bài tập, có ý thức học tập, sáng tạo, tự chủ II Chuaån bò: - Gv: Saùch giaùo khoa, phoøng maùy, giaùo aùn, maùy chieáu - Hs: Vở ghi, sách giáo khoa III Phöông phaùp: - Gv giao bài tập, định hướng cho Hs, Hs phân nhóm thực các bài tập IV Tieán trình baøi daïy: Ổn định lớp: (1’) 8A1 :………………………………………………………………………………………………………………………… 8A2 :………………………………………………………………………………………………………………………… Kieåm tra baøi cuõ: (5’) Caâu 1: Neâu khaùi nieäm veà bieán? Câu 2: Khai báo biến gồm thành phần nào? Cho ví dụ Nội dung bài mới: HOẠT ĐỘNG CỦA GIÁO VIÊN VAØ HỌC SINH GHI BAÛNG Hoạt động 1: (16’) Tìm hiểu bài Baøi taäp * Baøi giaûi: taäp + HS: Ghi bài vào Program chiso; + GV: Yeâu caàu Hs cheùp baøi taäp Uses Crt; Baøi taäp: Vieát chöông trình tính chæ Var h, w: Real; số khối thể BMI theo công thức w Begin Write(‘nhaäp h’); BMI= H , đó w là cân nặng Readln(h); người (tính kilôgam), Write( ‘nhaäp w’); H là chiều cao người đó (tính Readln(w); baèng meùt) BMI := w/(h*h); + GV: Cho bieát bieán caàn khai baùo + HS: Phaùt bieåu: Khai baùo bieán chieàu cao vaø caân naëng Writeln(‘BMI= ’,BMI); chöông trình laø gì? End + GV: Biến này tương ứng với + HS: Kiểu liệu Real loại liệu gì? + GV: Giải thích cho Hs lí lựa + HS: Tập trung chú ý lắng nghe giaûi thích chọn liệu trên (2) + GV: Yêu cầu Hs hoàn thành đoạn chương trình này giấy + GV: Chỉnh sửa sai xót và hoàn chænh noäi dung Hoạt động 2: (16’) Tìm hiểu bài taäp + GV: Yeâu caàu Hs cheùp baøi taäp Bài tập: Tính cước phí sử dụng các dịch vụ internet qua đường truyền ADSL hàng tháng với cách tính cước phí là trả theo lưu lượng sử dụng, cho sau: Toång soá tieàn=tieàn thueâ bao haøng tháng + đơn giá 1MB * số MB liệu đã sử dụng + GV: Haõy cho bieát bieán caàn khai baùo chöông trình laø gì? + GV: Biến này tương ứng với loại liệu gì? + HS: Viết chương trình hoàn thieän + HS: Laéng nghe, chuù yù theo doõi baøi hoïc + HS: Ghi bài vào Baøi taäp * Baøi giaûi: Program ADSL; Var a,b,c,T: Real; Begin Write(‘Nhap tien thue bao hang thang: ’); Readln(a); Write(‘Nhap don gia MB: ’); Readln(b); Write(‘Nhap MB du lieu da su dung ’); Readln(s); T:= a+b*s; Write(‘Tong so tien phai toan: ’,T:5:2); Readln; End + HS: Phaùt bieåu: A: Tieàn thueâ bao haèng thaùng, b: Đơn giá 1MB, c: Số MB liệu đã sử dụng, T: Tổng số tiền Kiểu liệu Real + HS: Chuù yù laéng nghe phaàn + GV: Giải thích lí lựa chọn giải thích kiểu liệu trên + HS: Taäp trung chuù yù laéng nghe + GV: Nhaän xeùt vaø boå sung + HS: Vieát chöông trình + GV: Yêu cầu hoàn thành đoạn chöông trình naøy giaáy + HS: Thực hướng + GV: Chỉnh sửa sai xót và hoàn dẫn Gv chænh noäi dung + HS: Laéng nghe, chuù yù theo + GV: Hướng dẫn Hs làm bài dõi toán đơn giản TP pascal Cuûng coá: (5’) - Học bài và làm bài tập đầy đủ - Xem kỹ toàn nội dung, tập làm toán với TP Pascal - Làm lại toàn bài tập đã cho Hướng dẫn và dặn dò nhà: (2’) - Xem laïi caùc baøi taäp - Ôn tập kiến thức chuẩn bị kiểm tra tiết Ruùt kinh nghieäm: (3)