tin 8 tuan 32

Tuần 32
Tiết 63

Ngày soạn: 08/04/2016
Ngày dạy: 11/04/2016

Bài thực hành 7:
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH (t3)
I. MỤC TIÊU:
1. Kiến thức:
- Biết cách sử dụng biến mảng vào trong các bài tốn.
2. Kỹ năng:
- Ơn luyện cách khai báo mảng <tên mảng>:array[1..100] of real; lệnh lặp if ..then, for..do;
- Củng cố các kĩ năng đọc, hiểu và chỉnh sửa chương trình.
- Hiểu và viết được chương trình với thuật tốn tìm giá trị lớn nhất, nhỏ nhất của một dãy
3. Thái độ: HS có thái độ ham hiểu biết, học hỏi.
II. CHUẨN BỊ:
1. Giáo viên:
- SGK, SGV, tài liệu, Giáo án
- Đồ dùng dạy học
2. Học sinh: Vở ghi, SGK, Đọc trước “Làm việc với dãy số”
III. CÁC HOẠT ĐỘNG DẠY-HỌC:
1. Ổn định tổ chức lớp: (1’)
-Kiểm tra sĩ số: 8A5........................................................................................................
8A6.......................................................................................................
2. Kiểm tra bài cũ: kiểm tra trong quã trình thực hành
3. Bài mới: (40’)
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 2 (40’)

Gv: Cho Hs đọc đề bài tập Program Phan_loai;
Bài tập 2:
thực hành 1 SGK
uses crt;
Viết chương trình
nhập điểm của các bạn
Var
trong lớp. Sau đó in ra
i, n, G, Kh, TB, K: integer;
màn hình số bạn đạt
A: array[1..100] of real;
kết quả học tập loại
Begin
giỏi, khá, TB và kém.
clrscr;
HS chia nhóm làm thực
Tiêu chuẩn:
write('nhap
so
HS
trong
lop,
n=
');
hành.
- Loại giỏi: 8.0 trở lên
readln(n);
- Loại khá: 6.5 đến 7.9
writeln('Nhap diem :');
- Loại TB: 5.0 đến 6.4

GV gợi ý:
- Loại kém: dưới 5.0
For i:=1 to n do
- Dùng câu lệnh if…then…
Begin
write(i,' . '); readln(a[i]);
End;
G:=0; Kh:= 0; TB:= 0; K:= 0;
for i:=1 to n do
Begin


if a[i] >= 8.0 then G:= G + 1;
if a[i] <5.0 then K:= K + 1;
if (a[i] <8.0 ) and (a[i] >=6.5) then
Kh:= Kh + 1;
if (a[i] >= 5 ) and (a[i] < 6.5) then
TB:= TB + 1;
end;
writeln(' Ket qua hoc tap: ');
writeln(G, ' ban hoc gioi ');
writeln(Kh, ' ban hoc kha ');
writeln(TB, ' ban hoc trung binh');
writeln(K, ' ban hoc kem ');
readln;
End.
4. Củng cố: (2’)
- Cách khai báo mảng trong Pascal.
- Câu lệnh nhập dãy số từ bàn phím
5. Hướng dẫn về nhà: (1’)

- Soạn bài tập 2 thực hành sử dụng biến mảng trong chương trình.
IV. Rút kinh nghiệm:
..............................................................................................................................................
..............................................................................................................................................