BEGIN + GV: Hướng dẫn các em phân tích + HS: Tập trung chú ý lắng Clrscr; bài các bước thực hiện ý nghĩa của nghe, hiểu nội dung bài tập.. Write‘Nhaäp h cuûa Long: các bước thể hiện nhữn[r]
Trang 1Bài thực hành 4: SỬ DỤNG LỆNH ĐIỀU KIỆN IF … THEN
I Mục tiêu:
1 Kiến thức:
- Viết được câu lệnh if … then trong chương trình
- Hiểu được ý nghĩa của thuật toán sử dụng trong chương trình
2 Kĩ năng: Rèn luyện kỹ năng ban đầu về đọc các chương trình đơn giản.
3
Thái đo ä : 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
II I Phương pháp :
- Gv hướng dẫn thực hành, thao tác mẫu, quan sát, sửa sai, Hs thực hành trực tiếp
IV Tiến trình bài dạy:
1 Ổn định lớp: (1’)
8A1 :……….
8A2 :……….
2 Kiểm tra bài cũ.
Lồng ghép trong nội dung bài mới.
3 Nội dung bài mới:
Hoạt động 1: Tìm hiểu bài tập 2.
+ GV: Hướng dẫn các em phân tích
nội dung bài tập 1
+ GV: Yêu cầu Hs tham khảo thuật
toán ví dụ 5, bài 5 đã học
+ GV: Hướng dẫn các em phân tích
bài các bước thực hiện ý nghĩa của
các bước thể hiện những gì
+ GV: Cho Hs gõ đoạn chương
trình trong SGK
+ GV: Hướng dẫn các em viết các
câu lệnh dựa trên thuật toán tham
khỏa ở ví dụ 5, bài 5
+ GV: Quan sát quá trình gõ
chương trình, sửa sai cho các em
+ GV: Hướng dẫn những câu lệnh
khó, giúp đỡ các Hs yếu
+ HS: Tập trung chú ý lắng nghe, hiểu nội dung bài tập + HS: Xem lại cách mô tả thuật toán của ví dụ 5, bài 5
+ HS: Tập trung chú ý lắng nghe, hiểu nội dung bài tập
+ HS: Thực hiện:
Program Ai_cao_hon;
Uses Crt;
Var Long, Trang: Real;
BEGIN Clrscr;
Write(‘Nhập h của Long: ’);
Readln(Long);
Write(‘Nhập h của Trang: ’);
Readln(Trang);
If Long > Trang Writeln(‘Ban Long cao hon’);
2 bài tập 2.
Program Ai_cao_hon; Uses Crt;
Var Long, Trang: Real; BEGIN
Clrscr;
Write(‘Nhập h của Long:
’);
Readln(Long);
Write(‘Nhập h của Trang:
’); Readln(Trang);
If Long > Trang Writeln(‘Ban Long cao hon’);
If Long < Trang Then Writeln(‘ Ban Trang cao hon’) Else Writeln(‘Hai ban bang nhau’);
Readln END
Ngày soạn: 19/12/2012 Ngày dạy: 23/12/2012
Tuần: 16
Tiết: 32
Trang 2+ GV: Hướng dẫn các em làm các
yêu cầu của bài tập trong SGK
Hoạt động 2: Tìm hiểu bài tập 3.
+ GV: Hướng dẫn các em phân tích
nội dung bài tập 3
+ GV: Hướng dẫn các em phân tích
bài các bước thực hiện ý nghĩa của
các bước thể hiện những gì
+ GV: Cho Hs trình bày ý tưởng
của bài toán
+ GV: Cho Hs gõ đoạn chương
trình trong SGK
+ GV: Hướng dẫn các em viết các
câu lệnh dựa trên các bước của
thuật toán đã đưa ra
+ GV: Quan sát quá trình gõ
chương trình, sửa sai cho các em
+ GV: Hướng dẫn những câu lệnh
khó, giúp đỡ các Hs yếu
+ GV: Hướng dẫn Hs sử dụng thêm
từ khóa and sử dụng trong điều
kiện
+ GV: Nhận xét, chốt nội dung
If Long < Trang Then Writeln(‘
Ban Trang cao hon’) Else Writeln(‘Hai ban bang nhau’);
Readln END
+ HS: Thực hiện theo sự hướng dẫn của Gv
+ HS: Tập trung chú ý lắng nghe, hiểu nội dung bài tập + HS: Tập trung chú ý lắng nghe, hiểu nội dung bài tập
+ HS: a, b, c là độ dài ba cạnh của một tam giác khi và chỉ khi a+b>c, b+c>a và c+a>b
+ HS: Thực hiện:
Program Ba_canh_tam_giac;
Uses Crt;
Var a, b, c: Real;
BEGIN Clrscr;
Write(‘Nhập 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: Thực hành
3 bài tập 3.
Program Ba_canh_tam_giac;
Uses Crt;
Var a, b, c: Real;
BEGIN Clrscr;
Write(‘Nhập 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
4 Củng cố:
- Củng cố trong bài học
5 Hướng dẫn và dặn dò về nhà : (1’)
- Xem lại bài đã thực hành, chuẩn bị nội dung ơn tập.
6 Rút kinh nghiệm: