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: 00/03/2009. Tit PPCT: 58. Ngày dạy: 00/03/2009. Bi Thc Hnh 7. X lý dóy s trong chng trỡnh. (T2) 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: 1. n nh lp: 2. Bi mi: H ca GV H ca HS -Gv: yờu cu hs tip tc thc hnh bi 2 sgk. Bài 2. Bổ sung và chỉnh sửa chơng trình trong bài 1 để nhập hai loại điểm Toán và Ngữ văn của các bạn, sau đó in ra màn hình điểm trung bình của mỗi bạn trong lớp (theo công thức điểm trung bình = (điểm Toán + điểm Ngữ văn)/2), điểm trung bình của cả lớp theo từng môn Toán và Ngữ văn. a) Tìm hiểu ý nghĩa của các câu lệnh sau đây: Phần khai báo: Var i, n: integer; TbToan, TbVan: real; DiemToan, DiemVan: array[1 100] of real; -Gv: lu ý hs gừ theo ỳng cỳ phỏp ca chng trỡnh. - Gv: nhc nh hs khi vit chng trỡnh ch no cn b sung v chnh sa chng trỡnh. - Gv: tip tc theo dừi, hng dn cho hs sa li nu sai. - T ú giỏo viờn yờu cu hs thc hnh tip v chnh sa chng trỡnh v nhn bit li. - Gv: Qua bi 2 cho ta thy c iu gỡ? - Gv: yờu cu hs thoỏt khi Turbo Pascal, Hs: Thc hnh bi 2. Hs: thc hnh. Hs: lng nghe v thc hnh. Hs: thc hnh. Hs: thc hnh bi 3. Hs: tr li. Phần thân chơng trình: begin writeln('Diem trung binh:'); for i:=1 to n do writeln(i,'. ',(DiemToan[i] +DiemVan[i])/2:3:1); TbToan:=0; TbVan:=0; for i:=1 to n do begin TbToan:=TbToan+DiemToan[i]; TbVan:=TbVan+DiemVan[i] end; TbToan:=TbToan/n; TbVan:=TbVan/n; writeln('Diem trung binh mon Toan: ',TbToan:3:2); writeln('Diem trung binh mon Van: ',TbVan:3:2); end. b) Bổ sung các câu lệnh trên vào vị trí 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. lu nhng bi ó chnh sa. thích hợp trong chơng trình. Thêm các lệnh cần thiết, dịch và chạy chơng trình với các số liệu thử. 3. Cng c: Cú pháp khai báo biến mảng kiểu số nguyên và số thực trong Pascal có dạng: +) Var <tên biến mảng>:array[<chỉ số đầu> <chỉ số cuối>]of integer; Var <tên biến mảng>: array[<chỉ số đầu> <chỉ số cuối>] of real; trong đó chỉ số đầu không lớn hơn chỉ số cuối. +) Tham chiếu tới phần tử của mảng đợc xác định bằng cách:<tên biến mảng>[chỉ số] 4.Dn dũ: - V nh xem li cỏc bi tp ó thc hnh. Nu hs no cú mỏy tớnh cỏ nhõn thỡ nờn thao tỏc li nhiu ln cho thnh tho. - Xem trc các bi tập tiết tip theo chữa bài tập. Giáo án tin học lớp 8. . Gv: Qua bi 2 cho ta thy c iu gỡ? - Gv: yờu cu hs thoỏt khi Turbo Pascal, Hs: Thc hnh bi 2. Hs: thc hnh. Hs: lng nghe v thc hnh. Hs: thc hnh. Hs: thc hnh bi 3. Hs: tr li. Phần th n chơng trình: begin writeln('Diem. học lớp 8. Trờng THCS Sơn Tiến Giáo viên: Phạm Tuấn Anh. lu nhng bi ó chnh sa. th ch hợp trong chơng trình. Th m các lệnh cần thiết, dịch và chạy chơng trình với các số liệu th . 3. Cng c: Cú. thc hnh. Nu hs no cú mỏy tớnh cỏ nhõn th nờn thao tỏc li nhiu ln cho thnh tho. - Xem trc các bi tập tiết tip theo chữa bài tập. Giáo án tin học lớp 8.