Tuan 17 - tiet 35 - tin 8 - 2012

ÔN TẬP
I. Mục tiêu:
1. Kiến thức: Ôn tập lại kiến thức lý thuyết đã được học ở học kì I.
2. Kĩ năng: Rèn luyện kỹ năng vận dụng lý thuyết và làm các bài tập.
3. Thái độ: Học tập tự giác, ý thức học tập, có tinh thần trách nhiệm, vượt qua khó khăn.
II. Chuẩn bị:
- Gv: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu.
- Hs: Vở ghi, sách giáo khoa.
III. Phương pháp:
- Gv hướng dẫn, sửa sai, Hs tự giác ôn luyện theo hệ thống của Gv đưa ra, nhóm.
IV. Tiến trình bài dạy:
Ổn định lớp: (1’)
8A1 :………………………………………………………………………………………………………………………….
8A2 :………………………………………………………………………………………………………………………….
2. Kiểm tra bài cũ.
Lồng ghép trong nội dung bài ôn tập.
3. Nội dung bài mới:
HOẠT ĐỘNG CỦA GIÁO VIÊN VÀ HỌC SINH
GHI BẢNG

Hoạt động 1: (43’) Vận dụng.
+ GV: Hướng dẫn Hs làm một số bài tập vận dụng như sau:
1. Sửa các lỗi đơn giản trong chương trình.
+ GV: Đưa ra yêu cầu bài toán:
Xác định lỗi sai và sửa lỗi cho chương trình sau
Program 3_canh Tam_giac
Uses Crt;
Var a, b, c:= Integer;
BEGIN
Clrscr;
Write(“Nhap ba so a, b, c : ”); Readln(a; b; c);
If c> or a> or (c+a>b) Then Writeln(‘a, b, c la ba canh cua mot tam giac’); Else Writeln(‘a, b, c khong la ba canh cua mot tam giac’);
Readln
END.
2. Xác định bài toán, mô tả thuật toán.
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 ra màn hình hai số đó theo thứ tự không giảm dần.







+ GV: Hướng dẫn Hs thực hiện viết thuật toán
3. Viết chương trình với ngôn ngữ lập trình Pascal.
Program Sap_xep;
Uses Crt;
Var A, B, T : Integer;
BEGIN
Clrscr;
Write(‘Nhap A: ’); Readln(A);
Write(‘Nhap B: ’); Readln(B);
If A <= B Then Write(A,‘ ’,B);
If B < A Then Write(B,‘ ’,A);
Readln
END.

+ GV: Chỉnh sửa các sai sót cho Hs trong quá trình các em viết chương trình dựa trên thuật toán.

+ HS: Vận dụng các kiến thức đã được học vào làm bài:
+ HS: Chương trình sau khi được sửa là:
Program Ba_canh_Tam_giac;
Uses Crt;
Var a, b, c: Real;
BEGIN
Clrscr;
Write(‘Nhap ba so a, b, c : ’); Readln(a, b, c);
If (a+b>c) and (b+c>a) and (c+a>b) Then Writeln(‘a, b, c la ba canh cua mot tam giac’) Else Writeln(‘a, b, c khong la ba canh cua mot tam giac’);
Readln
END.



+ HS: Xác định bài toán như sau tính diện tích hình tròn như sau:
Input: a, b
Output: Sắp sếp tăng dần.
Bước 1: Nhập hai số nguyên a, b từ bàn phím.
Bước 2: Nếu thì hiển thị ra màn hình giá trị biến a trước rồi đến giá trị biến b.
Bước 3: Nếu thì hiển thị ra màn hình giá trị biến b trước rồi đến giá trị biến a.
Bước 4: Kết thúc.
+ HS: Thực hiện theo sự hướng dẫn gợi mở của Gv.
+ HS: Dựa trên thuật toán được mô tả viết đoạn chương trình trên như sau:
Program Sap_xep;
Uses Crt;
Var A, B, T : Integer;
BEGIN
Clrscr;
Write(‘Nhap A: ’); Readln(A);
Write(‘Nhap B: ’); Readln(B);
If A <= B Then Write(A,‘ ’,B);
If B < A Then Write(B,‘ ’,A);
Readln
END.
+ HS: Thực hiện dưới sự hướng dẫn gợi mở của Gv đưa ra.
III. Bài tập vận dụng.
1. Sửa các lỗi đơn giản trong chương trình.
Program Ba_canh_Tam_giac;
Uses Crt;
Var a, b, c: Real;