<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>

<b>BÀI TẬP</b>

<b>I. MỤC TIÊU:</b>
<i><b>1. Kiến thức: </b></i>

- Biết sửa lỗi và thực hiện các bước giải bài tốn trên máy tính.
- Biết cách viết câu lệnh điều khiển trong chương trình.

<i><b>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.</b></i>

<i><b>3. Thái độ: Học tập tích cực, nghiêm túc, có tinh thần tự giác, u thích mơn học.</b></i>
<b>II. CHUẨN BỊ:</b>

<i><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.</b></i>
<i><b>2. Học sinh: Vở ghi, sách giáo khoa.</b></i>

<b>III. CÁC HOẠT ĐỘNG DẠY – HỌC: </b>
<i><b>1. Ổn định lớp: (1’)</b></i>

8A1:………
8A2:………
<i><b>2. Kiểm tra bài cũ: </b></i>

Lồng ghép trong nội dung bài học.
<i><b>3. Bài mới: </b></i>

<b>Hoạt động của GV</b> <b>Hoạt động của HS</b> <b>Nội dung ghi bảng</b>

<i><b>Hoạt động 1: (43’) Bài tập vận dụng.</b></i>
+ GV: Hướng dẫn HS làm một số

<i>tốn.</i>

Viết chương trình nhập hai số
nguyên a và b khác nhau từ bà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.

tam giac’);

Readln
END.

<b>2. Xác định bài tốn, mơ</b>
<b>tả thuật tốn.</b>

* Xác định bài toán:
<i>Input: a, b</i>

<i>Output: Sắp sếp tăng dần.</i>
* Mơ tả thuật tốn:

<b>Ngày soạn: </b>
<b>Ngày dạy: </b>
<b>Tuần: 14</b>

</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

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 tốn

<i>3. Viết chương trình với ngơn ngữ</i>
<i>lập trình Pascal.</i>

Program Sap_xep;
Uses Crt;

chỉnh của HS và nhận xét.

<i>Bước 1: Nhập hai số nguyên a, b</i>
từ bàn phím.

<i>Bước 2: Nếu </i> <i>a ≤ b</i> thì hiển thị
ra màn hình giá trị biến a trước
rồi đến giá trị biến b.

<i>Bước 3: Nếu </i> <i>b</i> < <i>a</i> thì hiển
thị ra màn hình giá trị biến b
trước rồi đến giá trị biến a.

<i>Bước 4: Kết thúc.</i>

+ HS: Thực hiện theo sự hướng
dẫn gợi mở của GV.

+ HS: Dựa trên thuật tố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;

hiển thị ra màn hình giá trị
biến a trước rồi đến giá trị
biến b.

<i>Bước 3: Nếu </i> <i>b</i> < <i>a</i> thì
hiển thị ra màn hình giá trị
biến b trước rồi đến giá trị
biến a.

<i>Bước 4: Kết thúc</i>

<b>3. Viết chương trình với</b>
<b>ngơn ngữ lập trình Pascal.</b>
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);

---