Giáo án Tin học 8 - Tiết 57: Bài thực hành 7: Xử lí dãy số trong chương trình (Tiết 1) - Năm học 2009-2010 - Phạm Tuấn Anh

D¹y líp: 8A; 8B; 8E. Ngµy so¹n: 27/03/2010.
TiÕt PPCT: 57. Ngµy d¹y: 02/04/2010.
Bài thực hành 7: Xử lí dãy số trong chương trình (t1)
I. MỤC TIÊU:
1. Kiến thức
- Làm quen với việc khai báo và sử dụng các biến mảng
2. Kỹ Năng
- Ôn luyện cách sử dụng câu lệnh lặp fordo.
- Củng cố các kĩ năng đọc, hiểu và chỉnh sửa chương trình.
3. Thái độ: Nghiêm túc
II. CHUẨN BỊ:
GV: So¹n bµi, ®äc tµi liÖu tham kh¶o, dông cô d¹y häc, phßng m¸y.
HS: Xem l¹i kiÕn thøc ë tiÐt tr­íc, dông cô häc tËp.
III. TIẾN TRÌNH LÊN LỚP:
KIỂM TRA BÀI CŨ 
1. Hãy cho một số ví dụ về lặp với số lần chưa biết trước.
HOẠT ĐỘNG CỦA THẦY VÀ 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 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á, trung bình và kém (theo tiêu chuẩn từ 8.0 trở lên đạt loại giỏi, từ 6.5 đến 7.9 đạt loại khá, từ 5.0 đến 6.4 đạt trung bình và dưới 5.0 xếp loại kém).
a) Xem lại các ví dụ 2 và ví dụ 3, bài 9 về cách sử dụng và khai báo biến mảng trong Pascal.
b) Liệt kê các biến dự định sẽ sử dụng trong chương trình. Tìm hiểu phần khai báo dưới đây và tìm hiểu tác dụng của từng biến:
program Phanloai;
uses crt;
Var
 i, n, Gioi, Kha, Trungbinh, Kem: integer;
 A: array[1..100] of real;
a. Gõ phần khai báo trên vào máy tính và lưu tệp với tên Phanloai. Tìm hiểu các câu lệnh trong phần thân chương trình dưới đây:
Begin
clrscr;
write(‘Nhap so cac ban trong lop, n = ‘); readln(n);
writeln(‘Nhap diem:’);
For i:=1 to n do Begin write(i,’. ‘); readln(a[i]); End;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
for i:=1 to n do
 begin 
if a[i]>=8.0 then Gioi:=Gioi+1;
if a[i]<5 then Kem:=Kem+1;
if (a[i]=6.5) then Kha:=Kha+1;
if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1
 end;
writeln(‘Ket qua hoc tap:’);
writeln(Gioi,’ ban hoc gioi’);
writeln(Kha,’ ban hoc kha’);
writeln(Trungbinh,’ ban hoc trung binh’);
writeln(Kem,’ ban hoc kem’);
readln
End.
b. Gõ tiếp phần chương trình này vào máy tính sau phần khai báo. Dịch, chạy chương trình.
IV. CỦNG CỐ HƯỚNG DẪN VỀ NHÀ: 
- Cách sử dụng biến mảng
- Cách kết hợp với lệnh lặp fordo
- Về nhà xem lại bài học tiết sau chúng ta thực hành tiếp.