Tin 8 tiết 31,32

Ngày soạn: 12/12/2010
Tiết 31 Bài thực hành 4 :
câu lệnh IF ….THEN (t1)
Ngày giảng
......../......../2010

Lớp/sĩ số
8A:
8B:

A. Mục tiêu.
Luyện tập sử dụng câu lệnh if …. Then .
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 .
B. Chuẩn bị.
- GV: SGK, giáo án, phòng máy vi tính.
- HS: SGK, vở ghi, bài cũ.
C. Tiến trình dạy học.
1. định tổ chức.
2. Kiểm tra bài cũ.
?H: Kiểm tra trong giờ thực hành.
3. Bài mới
Hoạt động của thầy và trò
Nội dung cần đạt

Hoạt động 1: Hướng dẫn mở đầu

- GV nêu mục đích, yêu cầu bài thực hành.
- HS khởi động máy tính.


Hoạt động 2: Thực hành

- ?H: Cho biết cấu trúc câu lệnh điều kiện trong nnlt pascal?
- HS trả lời






- GV đưa ra bài tập 1 sgk/52
Bài 1 : Viết chương trình nhập hai số nguyên a và b từ bàn phím và in hai số đó ra màn hình theo thứ tự không giảm
?H: mô tả thuật toán bài toán trên?
- HS trả lời
?H: Viết chương trình cho bài toán?
- HS viết chương trình trên máy tính của mình.
- Gv quan sát quá trình làm bài của hs và nhận xét.



- GV đưa ra bài tập 2 sgk/53
Bài 2. Viết chương trình nhập chiều cao của hai bạn Long và Trang, in ra màn hình kết quả so sánh chiều cao của hai bạn, chẳng hạn "Bạn Long cao hơn". Tham khảo thuật toán trong ví dụ 5, bài 5.
?H: mô tả thuật toán bài toán trên?
- HS trả lời
?H: Viết chương trình cho bài toán?
- HS viết chương trình trên máy tính của mình.
- Gv quan sát quá trình làm bài của hs và nhận xét.
- Dạng thiếu:
Nếu <Điều kiện> thì ;
If <điều kiện> then ;
- Dạng đủ:
Nếu <điều kiện> thì < câu lệnh 1> nếu không thì ;
If <điều kiện> then else ;
Bài 1:
Program sapxep;
Uses crt;
Var a, b : integer;
Begin
Clrscr;
Write (‘a=’) ; readln(a);
Write (‘b=’) ; readln(b);
If a < b then write (a, ‘ ‘, b) else write (b, ‘ ‘, a);
Readln;
End.

Bài 2:
program Ai_cao_hon;
uses crt;
var Long, Trang: Real;
begin
clrscr;
write(`Nhap chieu cao cua Long:`); readln(Long);
write(`Nhap chieu cao cua Trang:`); readln(Trang);
If Long>Trang then writeln(`Ban Long cao hon`)
else If Long else writeln(`Hai ban cao bang nhau`);
readln
end.

Hoạt động 3: Tổng kết thực hành

- GV nhận xét buổi thực hành
- HS vệ sinh phòng máy.


4. Củng cố.
- GV hệ thống lại kiến thức toàn bài
5. Hướng dẫn về nhà
- Học bài,
- Đọc trước bài mới.

Ngày soạn: 11/12/2010
Tiết 32 Bài thực hành 4:
câu lệnh IF ….THEN (t2)

Ngày giảng
......../......../2010

Lớp/sĩ số
8A:
8B:

A. Mục tiêu.
Luyện tập sử dụng câu lệnh điều kiện If…then.
Rèn luyện kỹ năng ban đầu về đọc các chương