Tin 8 kì 2

Tiết 37 - 38: Bài thực hành 4 - Sử dụng lệnh điều kiện if…then
Ngày soạn: 2/1/2011
I/ Mục tiêu cần đạt:
* Kiến thức: - Viết câu lệnh if…then trong chương trình
- 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.
* Kỹ năng: - Viết đúng câu lệnh rẽ nhánh dạng khuyết, rẽ nhánh dạng đầy đủ.
- Biết sử dụng đúng và có hiệu quả câu lệnh rẽ nhánh.
II/ Phương pháp:
Thuyết trình, vấn đáp, thảo luận…
III/ Chuẩn bị: 1. Chuẩn bị của GV: Chia nhóm HS, phòng máy, …
2. Chuẩn bị của HS: Đọc trước bài ở nhà.
IV/ Tiến trình lên lớp:
ổn định tổ chức :
Ngày dạy
Lớp
Tiết
HS vắng
Nhận xét HĐ Dạy


8A1





8A2





8A3





8A4





8A5




Kiểm tra bài cũ
Dạy bài mới
Hoạt động của GV và HS
Nội dung

Gv yêu cầu HS nhắc lại cấu trúc rẽ nhánh dạng thiếu và dạng đầy đủ trong Pascal.




- Gv yêu cầu HS đọc đề bài 1 (SGK – T52)
HS: đọc bài


GV: Hãy mô tả thuật toán để giải bài toán đã cho. (tham khảo bài tập 4, bài 5)
HS thảo luận và đưa ra thuật toán
GV: Trên cơ sở thuật toán như vậy hãy viết chương trình và gõ chương trình vào máy.
HS: Tham khảo chương trình SGK và gõ vào máy.
GV: Em hãy cho biết từng câu lệnh trong chương trình.
HS: Tìm hiểu từng câu lệnh và trả lời.
Gv yêu cầu HS dịch và sửa lỗi nếu có, chạy chương trình.
HS: Thực hiện trên máy.
GV: Hãy lưu chương trình với tên sapxep


GV yêu cầu HS viết chương trình bài 2
HS: Các nhóm viết vào giấy sau đó đối chiếu với bài trong SGK
HS: Gõ chương trình vào máy.

GV: Hãy lưu chương trình với tên Aicaohon
+ Dạng thiếu:
Nếu < điều kiện> thì
If < điều kiện> then < câu lệnh>
+ Dạng đầy đủ:
Nếu <điều kiện> thì nếu không thì
if <điều kiên> then else
Bài 1: Viết chương trình nhập 2 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.
a) Mô tả thuật toán để giải bài toán
Bước 1: Nhập 2 số nguyên a, b từ bàn phím
Bước 2: Nếu a
thì hiển thị ra màn hình giá trị của biến a trước ròi đến giá trị của biến b.
Bước 3: Nếu bBước 4: kết thúc.
b)Gõ chương trình
Program Sapxep;
Uses Crt;
Var a, b: integer;
Begin
Clrscr; Write (‘nhap số A:’); Readln(A);
Write (‘nhap số B:’); Readln(B);
if A