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: 56. Ngày dạy: 29/03/2010. Bi 9. Lm vic vi dóy s (T2) I. MC TIấU: 1. Kin thc - Bit c khỏi nim mng mt chiu - Bit cỏch khai bỏo mng, nhp, in, truy cp cỏc phn t ca mng 2. K Nng - Hiu thut toỏn tỡm s ln nht, nh nht ca mt dóy s. 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. 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 ? Em hóy nờu cỏch khai bỏo bin mng trong Pascal . HOT NG CA THY V TRề NI DUNG KIN THC Hot ng 1: GV: a vớ d 2 HS: c hiu vớ d GV: Hng dn hc sinh cỏch s dng bin mng HS: Chỳ ý GV: Cỏch khai bỏo bin cú ớch li gỡ? HS: Tit kim thi gian v cụng sc vit chng trỡnh. Vớ d 2. Tip tc vi vớ d 1, thay vỡ khai bỏo cỏc bin Diem_1, Diem_2, Diem_3, lu im s ca cỏc hc sinh, ta khai bỏo bin mng Diem nh sau: var Diem: array[1 50] of real; Cỏch khai bỏo v s dng bin mng nh trờn cú li gỡ? Trc ht, cú th thay rt nhiu cõu lnh nhp v in d liu ra mn hỡnh bng mt cõu lnh lp. Chng hn, ta cú th vit For i:=1 to 50 do readln(Diem[i]); nhp im ca cỏc hc sinh. so sỏnh im ca mi hc sinh vi mt giỏ tr no ú, ta cng ch cn mt cõu lnh lp, chng hn For i:=1 to 50 do if Diem[i]>8.0 then writeln('Gioi'); iu ny giỳp tit kim rt nhiu thi gian v cụng sc vit chng trỡnh. Hn na, mi hc sinh cú th cú nhiu im theo tng mụn hc: im Toỏn, im Vn, im Lớ, x lớ ng thi cỏc loi im ny, ta cú th khai Giáo án tin hc lớp 8. Trêng THCS S¬n TiÕn Gi¸o viªn: Ph¹m TuÊn Anh. Hoạt động 2: GV: Đưa ví dụ 3 HS: Đọc hiểu ví dụ GV: Hướng dẫn học sinh cách sử dụng biến mảng HS: Chú ý - Ghi vở và thực hiện chương trình. báo nhiều biến mảng: var DiemToan: array[1 50] of real; var DiemVan: array[1 50] of real; var DiemLi: array[1 50] of real; hay var DiemToan, DiemVan, DiemLi: array[1 50] of real; Khi đó, ta cũng có thể xử lí điểm thi của một học sinh cụ thể Ví dụ 2 cũng cho thấy rằng, chúng ta gán giá trị, đọc giá trị và tính toán với các giá trị của một phần tử trong biến mảng thông qua chỉ số tương ứng của phần tử đó. Chẳng hạn, trong câu lệnh trên Diem[i] là phần tử thứ i của biến mảng Diem. Ta có thể gán giá trị cho các phần tử của mảng bằng câu lệnh gán: A[1]:=5; A[2]:=8; hoặc nhập dữ liệu từ bàn phím bằng câu lệnh lặp: for i := 1 to 5 do readln(a[i]); 3. Tìm giá trị lớn nhất và nhỏ nhất của dãy số Ví dụ 3. (SGK) Phần khai báo của chương trình có thể như sau: program MaxMin; uses crt; Var i, n, Max, Min: integer; A: array[1 100] of integer; Phần thân chương trình sẽ tương tự dưới đây: Begin clrscr; write('Hay nhap do dai cua day so, N = '); readln(n); writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do 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. IV. CỦNG CỐ HƯỚNG DẪN VỀ NHÀ: - Về nhà xem lại bài học tiết sau chúng thực hành Begin write('a[',i,']='); readln(a[i]); End; Max:=a[1]; Min:=a[1]; for i:=2 to n do begin if Max<a[i] then Max:=a[i]; if Min>a[i] then Min:=a[i] end; write('So lon nhat la Max = ',Max); write('; So nho nhat la Min = ',Min); readln End. 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: 56. Ngày dạy: 29/03/2010. Bi 9. Lm vic vi dóy s (T2) I. MC TIấU: 1. Kin thc -. theo tng mụn hc: im Toỏn, im Vn, im Lớ, x lớ ng thi cỏc loi im ny, ta cú th khai Giáo án tin hc lớp 8. Trêng THCS S¬n TiÕn Gi¸o viªn: Ph¹m TuÊn Anh. Hoạt động 2: GV: Đưa ví dụ 3 HS: Đọc hiểu. readln(n); writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do 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. IV. CỦNG CỐ HƯỚNG DẪN VỀ NHÀ: - Về nhà xem