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

Tuần: 16	Ngày soạn:1/12/2009	
Tiết: 31 	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 của câu lệnh điều kiện dạng thiếu và dạng đủ. 
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
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)
a) Dạng thiếu:
- Cú pháp:
IF then ;
- 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 then Else ;
- 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ẽ được thực hiện.
+ Học sinh chú ý lắng nghe
+ Học sinh độc lập gõ chương trình vào máy
+ 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.
1. Ôn lại câu lệnh điều kiện:
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 ;
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 ;
Tuần: 16	Ngày soạn:1/12/2009	
Tiết: 32 	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 chiều cao của hai bạn Long và Trang, in ra màn kết quả so sánh chiều cao của 2 bạn.
- Yêu cầu học sinh viết và gõ chương trình vào máy.
- Lưu chương trình với tên aicaohon.pas. Dịch và sửa lỗi chương trình
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.
- 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
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
+ Học sinh chú ý lắng nghe.
+ Viết và gõ chương trình vào máy.
Program Ai_cao_hon;
Var long, trang: real;
Begin
Writeln(‘ nhap chieu cao cua Long’); Readln(long);
Writeln(‘nhap chieu cao cua Trang’); Readln(trang);
If long>trang then 
Writeln(‘bạn Long cao hon’);
If Long<trang then 
Writeln(‘ban Trang cao hon’) else
Writeln(‘hai ban bang nhau’);
Readln;
End. 
+ Học sinh lưu, sửa lỗi và chạy chương trình theo yêu cầu của giáo viên.
+ 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.
+ 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.
2/ Viết chương trình nhập chiều cao của hai bạn Long và Trang, in ra màn kết quả so sánh chiều cao của 2 bạn.
Program Ai_cao_hon;
Var long, trang: real;
Begin
Writeln(‘ nhap chieu cao cua Long’); Readln(long);
Writeln(‘nhap chieu cao cua Trang’); Readln(trang);
If long>trang then 
Writeln(‘bạn Long cao hon’);
If Long<trang then 
Writeln(‘ban Trang cao hon’) else
Writeln(‘hai ban bang nhau’);
Readln;
End. 
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.