Tuần 25: 25/02 - 02/03/2013 Ngày soạn: 23/02/2013
Tiết : 47
Bài thực hành 6 SỬ DỤNG LỆNH LẶP WHILE....DO
I. MỤC TIÊU:
1. Kiến thức:
Hiểu ngôn ngữ lập trình dựng cấu trúc lặp với số lần chưa biết trước để chỉ dẫn máy tính thực hiện lặp đi lặp lại công việc đến khi một điều kiện nào đó được thoả mãn;
Hiểu Hoạt động của câu lệnh lặp với số lần chưa biết trước while...do… trong Pascal.
2. Kĩ năng: viết chương trình pascal sử dụng câu lệnh lặp với số lần chưa biết trước
Rèn khả năng đọc chương trình, tìm hiểu tác dụng của các câu lệnh
3. Thái độ: Có hứng thú trong học tập.
II. PHƯƠNG PHÁP: - Hoạt động theo nhóm
- Đặt và giải quyết vấn đề + thuyết trình.
III. CHUẨN BỊ
Giáo viên: Giáo án, SGK, phòng máy, máy chiếu, bài tập thực hành.
Học sinh: SGK, Đọc trước bài học, vở ghi chép, tìm hiểu một số bài toán và chỉ ra thuật toán.
Vi. tiến trình lên lớp:
1. Ổn định lớp
2.Kiểm tra bài cũ ?Nêu cấu trúc, ý nghĩa của vòng lặp while…do ?
3. Bài mới.
Hoạt động của GV và HS
Nội dung

Hoạt động 1 : thực hành

?đề bài yêu cầu làm gì ?
? điều kiện ở đây là ?
HS : trả lời
? vòng lặp thực hiện khi nào ?
HS : khi hết n số thì thôi
? tính trung bình của n số thực như thế nào ?
HS : nêu cách tính
? nêu thuật giải ?
HS : trả lời
? công việc đầu tiên phải thực hiện ?
HS : - nhập n số thực
- nhập số thứ nhất, rồi tính tổng các số vừa nhập
- tương tự lặp lại nhập cho đến khi được n số
thoát khỏi vòng lặp và tính trung bình bằng cách lấy tổng chia n
? trong bài cần dùng bao nhiêu biến ?
? xác định kiểu dữ liệu mỗi biến
HS : trả lời
? Dịch chương trình và sửa lỗi, nếu có. Chạy chương trình với các bộ dữ liệu được gõ từ bàn phím và kiểm tra kết quả nhận được.
? thảo luận đối chiếu giữa thuật toán và các câu lệnh mô tả thuật toán trong chương trình, hoạt động chính của chương trình với n=3
1. Trước khi bắt đầu vòng lặp while...do: dem=0, TB=0, n = 3;
2. Bắt đầu vòng lặp while...do
3. Kết thúc vòng lặp while...do: TB = 45/3 = 15.
Viết lại chương trình bằng cách sử dụng câu lệnh for…do thay cho câu lệnh while…do.
GV: phân biệt cho học sinh trong vòng for không cần có phép toán dem:=dem+1; khác với vòng lặp while ….do
sử dụng while...do và for...do là khác nhau. While...do thích hợp hơn với trường hợp lặp với số lần chưa biết trước, for...do thích hợp hơn với trường hợp lặp với số lần biết trước. Ví dụ, không thể sử dụng lệnh for...do để thay thế lệnh while...do trong chương trình Chao_hoi được (chưa biết trước số bạn trong nhóm).
GV: có thể giới thiệu thêm về vòng lặp Repeat… until
Bài 1:Viết chương trình sử dụng lệnh lặp While …do để tính trung bình n số thực  x1, x2, x3,..., xn. Các số n và x1, x2, x3,..., xn được nhập vào từ bàn phím.
a.Thuật toán
Bước 1. - Nhập N là số lượng số thực sẽ được nhập từ bàn phím:
- Gán biến đếm bằng 0 Dem( 0;
- Gán tổng Sum ( 0.
Bước 2. Trong khi Dem < N thì
Nhập giá trị số thực x từ bàn phím;
Cộng thêm x vào tổng Sum: Sum ( Sum + x;
Tăng biến dem thêm 1 đơn vị: Dem ( Dem+1;
Bước 3. Tính trung bình dãy số vừa nhập TB ( Sum/N.
Bước 4. Đưa TB ra màn hình, rồi kết thúc.
b) Gõ chương trình sau đây và lưu chương trình với tên Tinh_TB:
Program Tinh_Trung_binh;
uses crt;
Var n, dem: Integer;
x, TB: real;
begin clrscr;
dem:=0 ; TB:=0 ;
write(`Nhap so cac so can tinh n = `); readln(n);
while dem begin
         dem:=dem+1;
write(