TIN 8 - TUAN 27 - TIET 51 + 52

Ngày soạn: 09/03/2013
Ngày dạy: 12/03/2013

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 được chương trình có sử dụng vòng lặp While…do
- Sử dụng được câu lệnh ghép
2. Kĩ năng: Đọc hiểu chương trình có vòng lặp while…do
3. Thái độ: Có ý thức tư duy, có thái độ ham học hỏi, tác phong làm việc nghiêm túc.
II. CHUẨN BỊ:
1. Giáo viên: SGK, giáo án, phòng máy
2. Học sinh: Đọc trước bài, SGK, đồ dùng học tập
III. TIẾN TRÌNH TIẾT DẠY:
1. Ổn định tổ chức lớp : (1’)
2. Kiểm tra bài cũ: Kiểm tra trong quá trình thực hành
3. Bài mới: (41’)
Hoạt động của giáo viên
Hoạt động của học sinh
Kiến thức ghi bảng

Hoạt động 1: Bài tập 1 (41’)

Gv: Cho học sinh suy nghĩ về chương trình bài tập 1
- Ý tưởng?




Gv: Yêu cầu học sinh xác định đầu vào, đầu ra và 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








- Gõ chương trình sau đây:
Program tinh_trung_binh;
Var n, dem: integer;
X, tb: real;
Begin
Dem:=0; tb:=0;
Writeln(‘nhap cac so can tinh n =’);
Readln(n);
While dem < n do
Begin
Dem:= dem + 1;
Writeln(‘nha so thu’, dem,’=’);
Readln(x);
Tb:= tb + x;
End;
Tb:=tb/n;
Witeln(‘Trung binh của’,n,’so là =’, tb:10:3);
Readln;
End.
- Lưu chương trình với tên tinh_tb.
- Đọc hiểu 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.


Hs: 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ố.
Xác định bài toán:
+ Input: Cho n số x1, x2, x3…xn.
+ Output: Tính trung bình.
HS : Mô tả thuật toán:
B1: dem(0; TB(0;
B2: nhập n;
B3: Nếu dem>n thì tới bước5
B4: dem(dem+1; nhập x; TB(TB+x;
B5: Kết thúc và in kết quả ra màn hình.

- Học sinh độc lập gõ chương trình vào máy.




















+ Học sinh lưu chương trình theo yêu cầu của giáo viên.

+ Học sinh thực hiện theo yêu cầu của giáo viên.
1. Bài tập 1:
Viết chương trình sử dụng lệnh lặp While … do để tính n số thực x1, x2, x3 … xn. Các số n và x1, x2, x3…, xn được nhập từ bàn phím.

Gõ chương trình sau đây:
Program tinh_trung_binh;
Var n, dem: integer;
X, tb: real;
Begin
Dem:=0; tb:=0;
Writeln(‘nhap cac so can tinh n =’);
Readln(n);
While dem < n do
Begin
Dem:= dem + 1;
Writeln(‘nha so thu’, dem,’=’);
Readln(x);
Tb:= tb + x;
End;
Tb:=tb/n;
Witeln(‘Trung binh của’,n,’so là =’, tb:10:3);
Readln;
End.


4.Củng cố: (2’)
- Sử dụng vòng lặp While .. do cho các bài toán.
5. Hướng dẫn về nhà: (1’)
- Xem trước bài thực hành 6.
6. Rút kinh nghiệm:















Ngày soạn: 12/03/2013
Ngày dạy: 15/03/2013

Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE…DO (t2)

I. MỤC TIÊU:
1. Kiến thức:
-