Tin 8 tiet 57.doc

Trờng THCS Sơn Tiến Giáo viên: 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. Bi thc hnh 7: X lớ dóy s trong chng trỡnh (t1) I. MC TIấU: 1. Kin thc - Lm quen vi vic khai bỏo v s dng cỏc bin mng 2. K Nng - ễn luyn cỏch s dng cõu lnh lp fordo. - Cng c cỏc k nng c, hiu v chnh sa chng trỡnh. 3. Thỏi : Nghiờm tỳc II. CHUN 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. TIN TRèNH LấN LP: KIM TRA BI C 1. Hóy cho mt s vớ d v lp vi s ln cha bit trc. HOT NG CA THY V TRề NI DUNG KIN THC GV: a ra bi tp 1 SGK ? Gi hc sinh nờu ý tng - GV hng dn HS: Lm bi tp Bi 1. Vit chng trỡnh nhp im ca cỏc bn trong lp. Sau ú in ra mn hỡnh s bn t kt qu hc tp loi gii, khỏ, trung bỡnh v kộm (theo tiờu chun t 8.0 tr lờn t loi gii, t 6.5 n 7.9 t loi khỏ, t 5.0 n 6.4 t trung bỡnh v di 5.0 xp loi kộm). a) Xem li cỏc vớ d 2 v vớ d 3, bi 9 v cỏch s dng v khai bỏo bin mng trong Pascal. b) Lit kờ cỏc bin d nh s s dng trong chng trỡnh. Tỡm hiu phn khai bỏo di õy v tỡm hiu tỏc dng ca tng bin: program Phanloai; uses crt; Var i, n, Gioi, Kha, Trungbinh, Kem: integer; A: array[1 100] of real; a. Gừ phn khai bỏo trờn vo mỏy tớnh v lu tp vi tờn Phanloai. Tỡm hiu cỏc cõu lnh trong phn thõn chng trỡnh di õy: Begin clrscr; write(Nhap so cac ban trong lop, n Giáo án tin hc lớp 8. Trêng THCS S¬n TiÕn Gi¸o viªn: Ph¹m TuÊn Anh. = ‘); 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]<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. 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 for…do - Về nhà xem lại bài học tiết sau chúng ta thực hành tiếp. 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. 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. Bi thc hnh 7: X lớ dóy s trong chng trỡnh (t1) I trong phn thõn chng trỡnh di õy: Begin clrscr; write(Nhap so cac ban trong lop, n Giáo án tin hc lớp 8. Trêng THCS S¬n TiÕn Gi¸o viªn: Ph¹m TuÊn Anh. = ‘); readln(n); writeln(‘Nhap diem:’); For. 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]< ;8. 0) and (a[i]>=6.5) then Kha:=Kha+1; if (a[i]>=5) and (a[i]<6.5)