- 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 độ: Học tập tự giác, ý thức học tập, có tinh thần trch[r]
(1)BÀ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: Hiểu câu lệnh rẽ nhánh chương trình có sẵn. 2 Kĩ năng:
- Viết câu lệnh điều kiện chương trình.
- Rèn luyện kỹ ban đầu đọc chương trình đơn giản hiểu ý nghĩa của thuật tốn sử dụng chương trình
3 Thái độ: Học tập tự giác, ý thức học tập, có tinh thần trch nhiệm, vượt qua khó khăn. II CHUẨN BỊ:
1 Giáo viên: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu. 2 Học sinh: Vở ghi, sách giáo khoa.
III CÁC HOẠT ĐỘNG DẠY – HỌC: 1 Ổn định lớp: (1’)
8A1:……… 8A2:……… 2 Kiểm tra cũ: (5’)
Câu 1: Trình bày cú pháp dạng thiếu câu lệnh điều kiện if … then?
Câu 2: Trình bày cú pháp dạng đầy đủ câu lệnh điều kiện if … then … else? 3 Bài mới:
Hoạt động GV Hoạt động HS Nội dung ghi bảng
Hoạt động 1: (18’) Tìm hiểu tập 1. + GV: Hướng dẫn em phân tích
nội dung tập
+ GV: Yêu cầu HS mơ tả lại thuật tốn học
+ GV: Gọi HS mơ tả thuật tốn theo bước học
+ GV: Nhận xét chỉnh sửa thuật toán cho em
+ GV: Hướng dẫn em phân tích bước thực ý nghĩa bước thể
+ GV: Cho HS gõ đoạn chương trình SGK
+ GV: Hướng dẫn em viết câu lệnh dựa bước thuật toán đưa
+ GV: Quan sát trình gõ chương trình, sửa sai cho em
+ GV: Hướng dẫn câu lệnh khó, giúp đỡ HS yếu
+ GV: Giải đáp thắc mắc mà em yêu cầu
+ GV: Giải thích câu lệnh khó
+ HS: Tập trung ý lắng nghe, hiểu nội dung tập
+ HS: Thuật toán:
Bước 1: Nhập hai số nguyên a, b từ bàn phím
Bước 2: Nếu a ≤ b hiển thị hình giá trị biến a trước đến giá trị biến b
Bước 3: Nếu b < a hiển thị hình giá trị biến b trước đến giá trị biến a
Bước 4: Kết thúc + HS: Thực hiện: 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
1 B ài tập 1. Thuật toán:
Bước 1: Nhập hai số nguyên a, b từ bàn phím Bước 2: Nếu a ≤ b in hình giá trị biến a trước đến giá trị biến b Bước 3: Nếu b < a in hình giá trị biến b trước đến giá trị biến a Bước 4: Kết thúc
Chương trình:
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
Ngày soạn: Ngày dạy: Tuần: 14
(2)mà em không hiểu
+ GV: Hướng dẫn HS thực thao tác
+ GV: Yêu cầu số HS lên bảng thực thao tác hướng dẫn
+ GV: Yêu cầu bạn khác quan sát theo dõi nhận xét làm bạn thực
+ GV: Quan sát hướng dẫn sửa sai cho em
+ GV: Yêu cầu HS thực xong lưu lại
+ GV: Nhận xét sửa lỗi sai mà HS thường gặp
END
+ HS: Quan sát GV thực thao tác
+ HS: Một số HS lên bảng thực thao tác hướng dẫn
+ HS: Các bạn khác theo dõi nhận xét làm bạn
+ HS: Thao tác hướng dẫn GV
+ HS: Lưu lại với tên SAP_XEP.PAS
+ HS: Chú ý lắng nghe sửa chữa sai sót thường gặp
Write(A,‘ ’,B); If B < A Then Write(B,‘ ’,A);
Readln END
Hoạt động 2: (17’) Tìm hiểu tập 2. + GV: u cầu HS tham khảo thuật
tốn ví dụ 5, học
+ GV: Hướng dẫn em phân tích bước thực ý nghĩa bước thể
+ GV: Cho HS gõ đoạn chương trình SGK
+ GV: Hướng dẫn em viết câu lệnh dựa thuật tốn tham khỏa ví dụ 5,
+ GV: Cho cá nhân HS thực nhập chương trình theo yêu cầu tốn
+ GV: Quan sát q trình gõ chương trình, sửa sai cho em
+ GV: Hướng dẫn câu lệnh khó, giúp đỡ HS yếu
+ GV: Giải đáp thắc mắc mà em yêu cầu
+ GV: Giải thích câu lệnh khó mà em khơng hiểu
+ GV: Làm mẫu thao tác khó
+ GV: Quan sát sữa lỗi em gặp phải trình thực viết chương trình
+ HS: Xem lại cách mơ tả thuật tốn ví dụ 5,
+ HS: Tập trung ý lắng nghe, hiểu nội dung tập
+ HS: Thực hiện: Program Ai_cao_hon; Uses Crt;
Var Long, Trang: Real; BEGIN
Clrscr;
Write(‘Nhập h Long: ’); Readln(Long);
Write(‘Nhập h 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
+ HS: Thực sửa chữa lỗi theo yêu cầu GV đưa
2 Bài tập 2. Program Ai_cao_hon; Uses Crt;
Var Long, Trang: Real;
BEGIN Clrscr;
Write(‘Nhập h Long: ’);
Readln(Long);
Write(‘Nhập h
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 4 Củng cố: (3’)
- Củng cố bước thực viết chương trình 5 Dặn dị: (1’)
- Xem trước nội dung IV RÚT KINH NGHIỆM :
