Giáo án Tin học 8 - Tiết 43, Bài thực hành 6: Sử dụng lệnh lặp while...do (Tiết 1) - Năm học 2009-2010 - Phạm Tuấn Anh

Dạy lớp: 8A; 8B; 8E. Ngày soạn: 30/01/2010. 
Tiết PPCT: 43. Ngày dạy: 01/02/2010.
Bài thực hành 6: Sử dụng lệnh lặp while...do (T1)
I. Mục tiờu:
1. Kiến thức
- 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.
2. Kỹ Năng
- Rốn luyện khả năng đọc chương trỡnh, tỡm hiểu tỏc dụng và kết hợp cỏc cõu lệnh. 
3. Thỏi độ: Nghiờm tỳc
II. Chuẩn bị:
1. Chuẩn bị của GV: - Giáo án, SGK, phòng máy, phần mềm pascal
2. Chuẩn bị của HS: - SGK, vở ghi, bút
III. Tiến trỡnh lờn lớp:
HOẠT ĐỘNG CỦA THẦY VÀ TRề
NỘI DUNG KIẾN THỨC
Hoạt động 1: 
Kiểm tra bài cũ: 
Hóy cho một số vớ dụ về lặp với số lần chưa biết trước.
GV: Đưa ra bài tập 1 SGK
? Gọi học sinh nờu ý tưởng
- GV hướng dẫn
HS: Làm bài tập
Hoạt động 2
HS: Đỏnh mỏy bài tập vào msy tớnh
GV: Kiểm tra và chạy chương trỡnh
Bài 1. Viết chương trỡnh sử dụng lệnh lặp Whiledo để 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.
í tưởng: Sử dụng một biến đếm và lệnh lặp Whiledo để nhập và cộng dần cỏc số vào một biến kiểu số thực cho đến khi nhập đủ n số. 
a) Mụ tả thuật toỏn của chương trỡnh, cỏc biến dự định sẽ sử dụng và kiểu của chỳng.
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<n do
 begin
         dem:=dem+1;
write('Nhap so thu ',dem,'= '); readln(x);
         TB:=TB+x; 
      end;
  TB:=TB/n;
  writeln('Trung binh cua ',n,' so la = ',TB:10:3);
  writeln('Nhan Enter de thoat ...');
  readln
end.
a) Đọc và tỡm hiểu ý nghĩa của từng cõu lệnh. 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.
b) Viết lại chương trỡnh bằng cỏch sử dụng cõu lệnh fordo thay cho cõu lệnh whiledo. 
III. Củng cố, hướng dẫn học ở nhà:
- Hiểu cỏc hoạt động lặp với số lần chưa biết trước
- Biết sử dụng cõu lệnh while..do
- Về nhà xem lại bài học tiết sau chỳng ta học tiếp.