Giáo án Tin học 8 - Tiết 23, Bài thực hành số 7: Xử lý dãy số trong chương trình - Năm học 2009-2010

GIÁO ÁN TIN HỌC 8
Tiết PPCT: 23 (HKII)
Ngày soạn: 15/3/2010
Ngày dạy: 22/3/2010 – 27/3/2010
Bài thực hành số 7
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH
I. Mục tiêu:
- Làm quen với việc khai báo và sử dụng biến mảng.
- Ôn luyện cách sử dụng câu lệnh lặp for..do.
- Củng cố các kĩ năng đọc hiểu và chỉnh sửa chương trình.
- Thái độ học tập nghiêm túc, yêu thích viết chương trình để thực hiện một số công việc.
II. Chuẩn bị:
GV: Phòng máy tính.
HS: SGK, dụng cụ học tập đầy đủ.
III. Hoạt động dạy học:
1/ Ổn định tổ chức: Yêu cầu hs báo cáo sĩ số, kiểm diện học sinh (1’)
2/ Kiểm tra bài cũ: 
5’
TG
Hoạt động của GV
Hoạt động của HS
Nội dung
- Đặt câu hỏi chung cho cả lớp:
1. Viết chương trình sử dụng biến mảng để nhập và in các phần tử một dãy số, độ dài của dãy được nhập từ bàn phím.
- Y/c 1 HS trả lời các câu hỏi trên (ghi trên bảng).
- Y/c HS nhận xét, đánh giá HS trả lời câu hỏi.
- 1 HS trả lời các câu hỏi của GV.
- HS nhận xét, đánh giá HS trả lời câu hỏi.
- Vấn đáp giữa giáo viên, học sinh để ôn lại bài cũ.
- Nhóm HS nhận xét, đánh giá HS trả lời câu hỏi.
3/ Bài mới:
TG
Hoạt động của GV
Hoạt động của HS
Nội dung
30’
- Viết chương trình tìm giá trị nhỏ nhất, lớn nhất trong dãy số nguyên. 
- Y/c Hs xem lại chương trình ví dụ 3 trang 78.
- Lập bảng chạy chương trình, phần nhập số.
- Lập bảng chạy chương trình tìm số lớn nhất, nhỏ nhất.
.
Viết chương trình nhập điểm của các bạn trong lớp. Sau đó in ra màn hình số bạn đạt kết quả học tập loại giỏi, khá, TB và kém.
Tiêu chuẩn:
- Loại giỏi: 8.0 trở lên
- Loại khá: 6.5 đến 7.9
- Loại TB: 5.0 đến 6.4
- Loại kém: dưới 5.0
- Hướng dẫn Hs cách lập bảng chạy chương trình phần nhập giá trị của mảng, phần đếm số lượng loại giỏi, khá, trung bình, yếu, kém.
- HS chia nhóm làm thực hành
Bài 1: 
Program Min_Max;
Var
 i, n, Min, Max : integer;
 A: array[1..100] of integer;
Begin
 write('Hay nhap do dai cua day so, N='); readln(n);
writeln('Nhap cac phan tu cua day so:');
 For i:=1 to n do
 Begin
 write('a[',i,']='); readln(a[i]);
 End;
 Min:=a[1];
 for i:=2 to n do 
Begin
if Min>a[i] then Min:=a[i];
if max<a[i] then max:=a[i];
end;
 write('So nho nhat la Min = ',Min);
 readln;
End.
Bài 2: 
Program Phan_loai;
uses crt;
Var
 i, n, G, Kh, TB, K: integer;
 A: array[1..100] of real;
Begin
clrscr;
 write('nhap so HS trong lop, n= '); readln(n);
writeln('Nhap diem :');
 For i:=1 to n do
 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] =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.
Chương trình tìm giá trị nhỏ nhất, nhỏ nhất trong dãy số nguyên? 
Viết chương trình nhập điểm của các bạn trong lớp. Sau đó in ra màn hình số bạn đạt kết quả học tập loại giỏi, khá, TB và kém.
Tiêu chuẩn:
- Loại giỏi: 8.0 trở lên
- Loại khá: 6.5 đến 7.9
- Loại TB: 5.0 đến 6.4
- Loại kém: dưới 5.0
4. Củng cố, dặn dò:
9’
TG
Hoạt động của GV
Hoạt động của HS
Nội dung
* Củng cố:
- Y/c hs lập bảng chạy chương trình bài tập 1 SGK trang 80.
* Dặn dò:
- Yêu cầu hs về nhà xem lại nội dung lý thuyết, chuẩn bị bài tập thực hành tiếp theo.
- HS: thực hiện theo yêu cầu của GV.
- Hs thực hiện một số thao tác theo yêu cầu của GV