Tiết 57. Bài Thực Hành 7. Xử lý dãy số trong chương trình. (T1)

Trờng THCS Sơn Tiến Giáo viên: Phạm Tuấn Anh.
Dy Lp: 8B; 8C; 8D. Ngày soạn: 29/03/2009.
Tit PPCT: 57. Ngày dạy: 02/04/2009.
Bi Thc Hnh 7. X lý dóy s trong chng trỡnh. (T1)
I. Mc tiờu:
- Giỳp hs khai bỏo v s dng cỏc bin mng.
- Giỳp Hs ụn luyn cỏch s dng cõu lnh r nhỏnh, lnh lp.
- Giỳp Hs cng c k nng c, hiu hiu chnh li trong chng trỡnh, chy
chng trỡnh v xem kt qu.
- Hiu v vit c chng trỡnh tham chiu n cỏc phn t trong mng,
nhp/xut cỏc phn t trong mng.
II. Chun b:
- Gv: phũng mỏy.
- Hs: bi tp thc hnh
III. Tin trỡnh lờn lp:
Hot ng 1: Tin trỡnh thc hnh
H ca GV H ca HS
- Giỏo viờn yờu cu hs thc hnh bi 1
trong sỏch giỏo khoa.
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;
- Giỏo viờn theo dừi, h tr hc sinh thc
hnh.
- Giỏo viờn hng dn thờm cho hs hiu
Hs: thc hnh bi 1.
Hs: thc hnh.
Hs: lng nghe v thc hnh.
Hs: thc hnh.
Hs: Tr li.
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

Giáo án tin học lớp 8.
Trêng THCS S¬n TiÕn Gi¸o viªn: Ph¹m TuÊn Anh.
các yêu cầu của bài 1.
- Gv: trong quá trình thực hành nếu những
phần nào quan trọng thì yêu cầu hs nên ghi
lại vào vở.
- Gv: Sau khi nhập xong, dịch và chạy
chương trình em thấy màn hình Turbo
Pascal xuất ra kết có đúng không?
- Gv yêu cầu hs quan sát kỹ các lệnh trong
chương trình.
- Giáo viên gọi 1 - 2 học sinh lên máy chủ
thực hành từng bước bài 1 cho cả lớp xem.
- Giáo viên nhận xét thao tác thực hành của
học sinh và ghi điểm.
Gioi:=Gioi+1;
if a[i]<5 then
Kem:=Kem+1;
if (a[i]<8.0) and
(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.
HĐ2: Tổng kết
HĐ của GV HĐ của HS
Gv: yêu cầu lớp trưởng và lớp phó kiểm tra
máy tính.
Gv: kiểm tra máy tính thực hành của hs.
Gv: đánh giá tiết thực hành của hs qua các
mặt: thái độ thực hành của hs, nề nếp, sự
chuẩn bị của hs…
Hs: kiểm tra máy tính.
Hs: lắng nghe.
1. Cũng cố:
- Cách khai báo mảng?.
- Tham chiếu tới phần tử mảng ta làm thế nào?
- Nhập/Xuất các phần tử trong mảng
2. Dặn dò:
- Về nhà xem lại các bài tập đã thực hành. Nếu hs nào có máy tính cá nhân thì nên
thao tác lại nhiều lần cho thành thạo.
- Xem trước bài tiÕt tiếp theo thùc hµnh tiÕp.
Gi¸o ¸n tin häc líp 8.