IV TIẾN TRèNH LấN LỚP A ỔN ĐỊNH (1’)
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. Giỏo viờn: giỏo ỏn, mỏy chiếu
2. Học sinh: Kiến thức cũ, sỏch, vở.
III - PHƯƠNG PHÁP
- Thuyết trỡnh, giảng giải, vấn đỏp.
IV - TIẾN TRèNH LấN LỚPA - ỔN ĐỊNH (1’) A - ỔN ĐỊNH (1’)
B - KIỂM TRA BÀI CŨ (3’)
1. Hĩy cho một số vớ dụ về lặp với số lần chưa biết trước.
C - BÀI MỚI (38’)
HOẠT ĐỘNG CỦA THẦY VÀ TRề TRề
NỘI DUNG KIẾN THỨ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
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.
í 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: 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 for… do thay cho cõu lệnh while…do.
D - CỦNG CỐ (3’)
- 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
E - HƯỚNG DẪN VỀ NHÀ (2’)
- Về nhà xem lại bài học tiết sau chỳng ta học tiếp.
*****************************************
Tiết 52