BTH6

GIÁO ÁN DỰ GIỜ

Tiết 51: BÀI THỰC HÀNH 6
SỬ DỤNG LỆNH LẶP WHILE…DO (t1)

A. MỤC TIÊU
Sau khi học xong bài này học sinh cần đạt được các mục tiêu sau:
1. Kiến thức:
- Vận dụng kiến thức của vòng lặp While … do và câu lệnh ghép để viết chương trình.
2. Kỹ năng:
- Áp dụng cấu trúc vòng lặp While ... do vào chương trình Pascal.
- Sử dụng câu lệnh ghép.
- Trình bày được hoạt động của vòng lặp while ... do trong chương trình Pascal.
3. Thái độ:
- Giáo dục thái độ học tập nghiêm túc trong giờ thực hành.
B. CHUẨN BỊ
1. Giáo viên: Bài giảng truyền thống, bài giảng điện tử, máy tính , Projector.
2. Học sinh: SGK, vở, bút, thước kẻ.
C. PHƯƠNG PHÁP
- Thuyết trình, vấn đáp, trực quan, phát hiện và giải quyết vấn đề, hoạt động nhóm.
D. TIẾN TRÌNH LÊN LỚP
I. Ổn định tổ chức: Kiểm tra sĩ số và ổn định chổ ngồi.(1’)
II. Kiểm tra bài cũ: (5’)
Câu hỏi: Nêu cấu trúc và cách hoạt động của câu lệnh lặp với số lần chưa biết trước?
* Cú pháp : While <Điều kiện> Do  ;
Trong đó:
- Điều kiện thường là một phép so sánh;
- Câu lệnh có thể là câu lệnh đơn giản hay câu lệnh ghép.
* Hoạt động:
Bước 1: Kiểm tra điều kiện.
Bước 2: Nếu điều kiện SAI, câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước 1.
III. Triển khai bài mới (35’)
1.Đặt vấn đề (1’)
GV: Tiết trước các em đã học Bài 8 Lặp với số lần chưa biết trước, biết được cú pháp và hoạt động của vòng lặp chưa biết trước While...do. Vậy với một bài toán có số lần lặp không xác định trước ta sẽ làm như thế nào để giải quyết bài toán đó thì chúng ta vào tìm hiểu nội dung bài thực hành hôm nay.
2. Bài mới (34’)
Nội dung
Hoạt động của giáo viên và học sinh

1. Thực hành
Bài 1: Viết chương trình Pascal sử dụng câu lệnh While…do để tính trung bình cộng n số thực nhập từ bàn phím. (n, và n số thực được nhập từ bàn phím)
a. Mô tả thuật toán.

+INPUT: Nhập n, nhập n số nguyên.
+OUTPUT: Kết quả TBC của n số nguyên
















* Thuật toán:
B1: Nhập giá trị của n( tính TBC bao nhiêu số);
dem(0; S(0;
B2: Trong khi dem <= n thì làm
Nhập số thứ (1,2,3n) (cho x)
S(S+x; dem(dem +1;
B3: Tính TB (S/n;
B4: In kết quả TB, kết thúc chương trình.
b. Viết chương trình.
Program tinh_TB;
Uses Crt;
Var n,dem: integer;
x, S, TB: real;
BEGIN
ClrScr;
Write(‘Muon tinh TB bao nhieu so n=’); Readln(n);
dem:= 0; S:=0;
While dem <= n do
Begin
Write(‘Nhap so thu’, dem, ‘ = ‘ );readln(x);
S:= S + x;
dem:= dem + 1;
End;
TB:= S/n;
Write(‘ Vay trung binh cong ’, n, ‘so la: ‘, TB:6:2);
Readln;
END.



Program tinh_tong;
Uses Crt;
Var n: byte;
S: longint;
BEGIN
ClrScr;
Write(‘Muon tinh tong bao nhieu so tu nhien n=’); Readln(n);
I:=1; S:=0;
While i<= n do
Begin
S:= S + i;
i:= i + 1;
End;
Writeln(‘ Vay tong cua day so la, S= ’, S);
Readln;
END.
Hoạt động 1: Thực hành (30’)
Bài tập 1:
GV: Yêu cầu HS đọc bài tập 1 (Tr72 SGK).
HS: đọc đề bài tập 1 và làm theo yêu