Giáo án Tin học 8 - Tiết 38: Bài dạy Thực hành - Năm học 2009-2010

Tuần:19	Ngày Soạn:23/12/2009
Tiết:38	Ngày dạy:28/12/2009
Bài dạy: THỰC HÀNH 
I. MụcTiêu:
-Kiến Thức :Luyện tập sử dụng câu lệnh if . Then .
-Kĩ Năng :Rèn luyệ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 
-Thái Độ :Có ý thức giữ gìn và bảo vệ máy tính trong phòng máy để sử dụng lâu dài.
II/ Chuẩn bị:
Gv: - Sách giáo khoa, giáo án, tài liệu tin học có liên quan. 
Hs: -Chuẩn bị bài ở nhà , sgk.
III/ Tiến trình dạy – học:
Hoạt động của GV
Hoạt động của Hs
Nội dung
Hoạt động 1:8’
-Ổn định lớp:
-Kiểm tra bài cũ:
Viết cú pháp câu lệnh lặp? Cho ví dụ?
Hoạt động2:30’
-Thực hành :
-Nêu nội dung thực hành 
Bài 1 : Viết chương trình nhập vào 3 số từ bàn phím, tìm số lớn nhất trong 3 số đó ?
Bài 2 : Viết chương trình nhập vào 3 số từ bàn phím, tìm số nhỏ nhất trong 3 số đó ?
Hoạt động 3: 5’
Củng cố:
-Gọi vài hs lên làm lại các bài tập.
-Đánh giá tiết thực hành.
Hoạt động 4: 2’
Dặn dò:
-Xem lại nội dung đã thực hành.
-Xem trước bài câu lệnh lặp.
If then ;
Ví dụ: if a>b then writeln(a);
Var a,b,c,max: integer;
Begin
Writeln(‘ nhap a,b,c’); readln(a,b,c);
Max:=a;
If max <b then max:=b;
If max <c then max:=c;
Writeln(max);
Readln
End.
Var a,b,c,min: integer;
Begin
Writeln(‘ nhap a,b,c’); readln(a,b,c);
min:=a;
If min >b then min:=b;
If min >c then min:=c;
Writeln(min);
Readln
End.
Bài 1 : Viết chương trình nhập vào 3 số từ bàn phím, tìm số lớn nhất trong 3 số đó ?
Var a,b,c,max: integer;
Begin
Writeln(‘ nhap a,b,c’); readln(a,b,c);
Max:=a;
If max <b then max:=b;
If max <c then max:=c;
Writeln(max);
Readln
End.
Bài 2 : Viết chương trình nhập vào 3 số từ bàn phím, tìm sốnhỏ nhất trong 3 số đó ?
Var a,b,c,min: integer;
Begin
Writeln(‘ nhap a,b,c’); readln(a,b,c);
min:=a;
If min >b then min:=b;
If min >c then min:=c;
Writeln(min);
Readln
End.