Tin Học lớp 8. Tiết 43 - 46

Dạy Lớp: 8B; 8C; 8D. Ngày soạn: 08/02/2009.
Tiết PPCT: 43. Ngày dạy: 10/02/2009.
Bài thực hành 6.
Sử dụng lệnh lặp While...do.
(T1)
I. Mục tiêu:
- Hiểu câu lệnh lặp while...do trong chương trình TP có sẵn
- Biết lựa chọn câu lệnh lặp while...do hoặc for...do phù hợp với tình huống cụ thể.
- Rèn luyện kĩ năng về khai báo, sử dụng biến
- Rèn luyện khả năng đọc chương trình
- Biết vai trò của việc kết hợp các cấu trúc điều khiển.
II. Chuẩn bị:
GV: Soạn bài, đọc tài liệu tham khảo, phòng may.
HS: Xem lại bài học trước, xem bài trước ở nhà, dụng cụ học tập.
III. Tiến trình dạy học:

Hoạt động của GV
Hoạt động của HS

Hoạt động 1:
GV yêu cầu HS làm 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.
GV hướng dẫn:
ý tưởng: Sử dụng một biến đếm và lệnh lặp While…do để 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:








GV: Yêu cầu:
c) Đọ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.
d) 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.




















Hoạt động 2:
GV: Nêu các lỗi cần chú ý nếu có của HS trong lúc thực hành.
GV: NHắc lại nhunwngx điều cần chú ý:

+) Ngoài cấu trúc lặp với số lần lặp biết trước, các ngôn ngữ lập trình còn có các câu lệnh lặp với số lần chưa biết trước.
+) While…do là câu lệnh lặp với số lần chưa biết trước trong Pascal.
Về nhà xem lại bài tập 1, xem trước bài tập 2.







HS: Chú ý theo giỏi.





HS: Thực hiện làm trên máy:
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(`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.
HS: Chú ý để thực hiện.

Dạy Lớp: 8B; 8C; 8D. Ngày soạn: 08/02/2009.
Tiết PPCT: 44. Ngày dạy: 10/02/2009.
Bài thực hành 6.
Sử dụng lệnh lặp While...do.
(T2)
I. Mục tiêu:
- 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