Giáo án Tin học 8 - Tiết 31, Bài thực hành số 4: Sử dụng câu lệnh điều kiện If...Then - Năm học 2009-2010

<span class='text_page_counter'>(1)</span>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ố 4 SỬ DỤNG CÂU LỆNH ĐIỀU KIỆN IF...THEN I. Mục tiêu: 1. Kiến thức: - Luyện tập sử dụng câu lệnh If...then 2. Kĩ năng: - Rèn kĩ năng ban đầu về đọc các chương trình đơn giản và hiểu được ý nghĩa của thuật toán sử dụng trong chương trình 3. 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 của thầy Hoạt động của 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: 1. Ôn lại câu lệnh điều kiện: của 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 sẽ kiêm tra điều kiện. Nếu điều kiện được thoã mãn, chương trình sẽ thực hiện 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 sẽ kiểm tra điều kiện. Nếu điều kiện được thoã mãn, chương trình sẽ thực hiện câu lệnh 1 sau từ khoá then, ngược lại câu lệnh 2 sẽ. Lop8.net.

<span class='text_page_counter'>(2)</span> được thực hiện. 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 nhau từ bàn phím và in hai số đó ra 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ủa các câu lệnh trong chương trình. -Dịch và chạy chương trình. + Học sinh chú ý lắng nghe. 2. Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím và in hai số đó ra 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ủa các câu lệnh trong chương trình theo yêu cầu của 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 hiện 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. ‘) ; ‘) ;.

<span class='text_page_counter'>(3)</span> 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ố 4 (tt) SỬ DỤNG CÂU LỆNH ĐIỀU KIỆN IF...THEN I. Mục tiêu: 1. Kiến thức: - Luyện tập sử dụng câu lệnh If...then 2. Kĩ năng: - Rèn kĩ năng ban đầu về đọc các chương trình đơn giản và hiểu được ý nghĩa của thuật toán sử dụng trong chương trình 3. 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 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 + Học sinh chú ý lắng nghe. và Trang, in ra màn kết quả cao của hai bạn Long và Trang, so sánh chiều cao của 2 in ra màn kết quả so sánh chiều + Viết và gõ chương trình vào cao của 2 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 của Readln;. Lop8.net.

<span class='text_page_counter'>(4)</span> 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 ra màn hình kết quả kiểm tra ba số đó có thể là độ dài các cạnh của một 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 của tam giác’) else Writeln(‘a,b,c khong la ba canh cua tam giac’); Readln; End. - Tìm hiểu ý nghĩa của các + Học sinh tìm hiểu ý nghĩa câu lệnh trong chương của các câu lệnh trong chương trình. trình theo yêu cầu của 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 của tam giác’) else Writeln(‘a,b,c khong la ba canh cua tam giac’); Readln; End..

<span class='text_page_counter'>(5)</span>