Tiến trình thực hành: Hoạt động của thầy Hoạt động của trò Nội dung Hoạt động 1: 20’ -Làm bài tập 2/53 - Viết chương trình nhập 2/ Viết chương trình nhập chiều chiều cao của hai bạn Long[r]
(1)Tuần: 16 Tiết: 31 Ngày soạn:1/12/2009 Ngày dạy:7/12/2009 Bài thực hành số SỬ DỤNG CÂU LỆNH ĐIỀU KIỆN IF THEN I Mục tiêu: Kiến thức: - Luyện tập sử dụng câu lệnh If then Kĩ năng: - Rèn kĩ ban đầu đọc các chương trình đơn giản và hiểu ý nghĩa thuật toán sử dụng chương trình Thái độ: - Thái độ học tập nghiêm túc, yêu thích môn học II Chuẩn bị: Nội dung bài thực hành, máy tính điện tử III Tiến trình thực hành: Hoạt động thầy Hoạt động trò Nội dung Hoạt động 1: 8’ -Ổn định lớp: -Ôn lại câu lệnh điều kiện ? Nêu cú pháp và hoạt động a) Dạng thiếu: Ôn lại câu lệnh điều kiện: câu lệnh điều kiện dạng - Cú pháp: thiếu và dạng đủ IF <điều kiện> then <câu lệnh>; - Hoạt động: Chương trình kiêm tra điều kiện Nếu điều kiện thoã mãn, chương trình thực câu lệnh sau từ khoá then, ngược lại câu lệnh đó bị bỏ qua b) Dạng đủ: - Cú pháp: If <điều kiện> then <Câu lệnh 1> Else <câu lệnh 2>; - Hoạt động: Chương trình kiểm tra điều kiện Nếu điều kiện thoã mãn, chương trình thực câu lệnh sau từ khoá then, ngược lại câu lệnh Lop8.net (2) thực Hoạt động 2: 30’ Làm bài tập1/52 - Viết chương trình nhập hai số nguyên a và b khác từ bàn phím và in hai số đó màn hình theo thứ tự không giảm - Gõ chương trình sau: program sapxep ; uses crt ; var a,b : integer ; begin clrscr ; write(‘ nhap so a : ‘) ; readln(a) ; write(‘ nhap so b : ‘) ; readln(b) ; if a < b then write(a,’ ‘,b) else writeln(b,’ ‘,a) ; readln ; - Tìm hiểu ý nghĩa các câu lệnh chương trình -Dịch và chạy chương trình + Học sinh chú ý lắng nghe Viết chương trình nhập hai số nguyên a và b khác từ bàn phím và in hai số đó màn hình theo thứ tự không giảm program sapxep ; uses crt ; var a,b : integer ; + Học sinh độc lập gõ begin chương trình vào máy clrscr ; write(‘ nhap so a : readln(a) ; write(‘ nhap so b : readln(b) ; if a < b then write(a,’ ‘,b) else writeln(b,’ ‘,a) ; readln ; + Học sinh tìm hiểu ý nghĩa các câu lệnh chương trình theo yêu cầu giáo viên + Nhấn F9 để dịch và nhấn Ctrl + F9 để chạy chương trình Hoạt động 3: 5’ -Gọi vài hs lên thực lại các thao tác -Giáo viên nhận xét và đánh giá tiết thực hành Hoạt động 4: 2’ - Tiết sau thực hành: “ Bài thực hành số 4” (tt) Lop8.net ‘) ; ‘) ; (3) Tuần: 16 Tiết: 32 Ngày soạn:1/12/2009 Ngày dạy:7/12/2009 Bài thực hành số (tt) SỬ DỤNG CÂU LỆNH ĐIỀU KIỆN IF THEN I Mục tiêu: Kiến thức: - Luyện tập sử dụng câu lệnh If then Kĩ năng: - Rèn kĩ ban đầu đọc các chương trình đơn giản và hiểu ý nghĩa thuật toán sử dụng chương trình Thái độ: - Thái độ học tập nghiêm túc, yêu thích môn học II Chuẩn bị: Nội dung bài thực hành, máy tính điện tử III Tiến trình thực hành: Hoạt động thầy Hoạt động trò Nội dung Hoạt động 1: 20’ -Làm bài tập 2/53 - Viết chương trình nhập 2/ Viết chương trình nhập chiều chiều cao hai bạn Long + Học sinh chú ý lắng nghe và Trang, in màn kết cao hai bạn Long và Trang, so sánh chiều cao in màn kết so sánh chiều + Viết và gõ chương trình vào cao bạn bạn - Yêu cầu học sinh viết và máy gõ chương trình vào máy Program Ai_cao_hon; Var long, trang: real; Begin Writeln(‘ nhap chieu cao cua Program Ai_cao_hon; Var long, trang: real; Long’); Readln(long); Writeln(‘nhap chieu cao cua Begin Writeln(‘ nhap chieu cao cua Trang’); Readln(trang); If long>trang then Long’); Readln(long); Writeln(‘bạn Long cao hon’); Writeln(‘nhap chieu cao cua If Long<trang then Trang’); Readln(trang); Writeln(‘ban Trang cao hon’) If long>trang then Writeln(‘bạn Long cao hon’); else Writeln(‘hai ban bang nhau’); If Long<trang then Readln; Writeln(‘ban Trang cao hon’) End else - Lưu chương trình với tên + Học sinh lưu, sửa lỗi và chạy Writeln(‘hai ban bang nhau’); aicaohon.pas Dịch và sửa chương trình theo yêu cầu Readln; Lop8.net (4) lỗi chương trình giáo viên End Hoạt động 2:20’ Làm bài tập 3/53 - Dưới đây là chương trình nhập ba số dương a, b, c từ bàn phím, kiểm tra và in màn hình kết kiểm tra ba số đó có thể là độ dài các cạnh tam giác hay không + Gõ chương trình vào máy Program ba_canh_tam_giac; Var a,b,c: real; Begin Write(‘nhap ba so a, b và c:’); Readln(a,b,c); If (a+b>c) and (b+c>a) and (c+a>b) then Writeln(‘a,b,c là ba cạnh tam giác’) else Writeln(‘a,b,c khong la ba canh cua tam giac’); Readln; End - Tìm hiểu ý nghĩa các + Học sinh tìm hiểu ý nghĩa câu lệnh chương các câu lệnh chương trình trình theo yêu cầu giáo viên - Dịch và chạy chương + Nhấn F9 để dịch và nhấn trình Ctrl + F9 để chạy chương trình Hoạt động 3:5’ -Giáo viên nhận xét và đánh giá tiết thực hành Hoạt động 4:2’ - Về nhà xem lại bài, tiết sau làm bài tập Lop8.net Program ba_canh_tam_giac; Var a,b,c: real; Begin Write(‘nhap ba so a, b và c:’); Readln(a,b,c); If (a+b>c) and (b+c>a) and (c+a>b) then Writeln(‘a,b,c là ba cạnh tam giác’) else Writeln(‘a,b,c khong la ba canh cua tam giac’); Readln; End (5)