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. . 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. 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