Giáo án Tin học 8 - Bài thực hành 7: Xử lý dãy số trong chương trình - Phạm Tuấn Anh - Trường THCS Sơn Tiến

Dạy Lớp: 8B; 8C; 8D. Ngµy so¹n: 29/03/2009.
Tiết PPCT: 57. Ngµy d¹y: 02/04/2009.
Bài Thực Hành 7. Xử lý dãy số trong chương trình. (T1) 
I. Mục tiêu:
Giúp hs khai báo và sử dụng các biến mảng.
Giúp Hs ôn luyện cách sử dụng câu lệnh rẽ nhánh, lệnh lặp.
Giúp Hs cũng cố kỹ năng đọc, hiểu hiệu chỉnh lỗi trong chương trình, chạy chương trình và xem kết quả.
Hiểu và viết được chương trình tham chiếu đến các phần tử trong mảng, nhập/xuất các phần tử trong mảng.
II. Chuẩn bị:
Gv: phòng máy.
Hs: bài tập thực hành
III. Tiến trình lên lớp:
Hoạt Động 1: Tiến trình thực hành
HĐ của GV
HĐ của HS
- Giáo viên yêu cầu hs thực hành bài 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).
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.
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ợ học sinh thực hành.
- Giáo viên hướng dẫn thêm cho hs hiểu 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.
Hs: thực hành bài 1.
Hs: thực hành.
Hs: lắng nghe và thực hành.
Hs: thực hành.
Hs: Trả lời.
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.
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.
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
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.