GV: Gọi một HS đọc đề bài 1 trong bài thực hành
HS: Đọc bài
GV: Nêu lại VD và cách khai báo biến mảng ở phần VD2 và VD3
Hs: Quán lắng nghe và quan sát
GV: Gọi HS tìm các biến cần khai báo và dịch nghĩa của phần khai báo
HS: Trả lời
GV: Hướng dẫn HS cách phân tích câu lệnh trong phần thân chương trình
HS: LẮng nghe
GV: Yêu cầu HS gõ chương trình vào máy, dịch và chạy chương trình, sau đó ghi lại chương trình và ý nghĩa của các câu lệnh trong chương trình?
bµi thùc hµnh 7 xö lý d·y sè trong ch¬ng tr×nh (T1) TuÇn 31 TiÕt 62 Ngµy so¹n: 20/03/2010 Ngµy d¹y: 27/03/2010 I. môc tiªu 1. KiÕn thøc Thực hành khai báo và sử dụng các biến mảng ; Ôn luyện cách sử dụng câu lệnh lặp if...then, for...do; 2. Kü n¨ng Củng cố kĩ năng đọc, hiểu và chỉnh sửa chương trình. Hiểu và viết được chương trình với thuật toán tìm giá trị lớn nhất, nhỏ nhất của một dãy số, tính tổng dãy số. 3. Th¸i ®é - Th¸i ®é häc tËp nghiªm tóc. II. CHUẨN BỊ 1. Giáo viên a. Phương pháp: Thuyết trình, vấn đáp, gợi mở b. Phương tiện: Giáo án, máy chiếu, máy tính. 2. HS: Sách, vở đọc trước bài ở nhà. III. TIẾN TRÌNH DẠY - HỌC 1.Ổn định lớp - Ổn định trật tự - Kiểm tra sĩ số 2. Kiểm tra bài cũ (kiểm tra trong tiết thực hành) 3. D¹y bµi míi : Ho¹t ®éng cña thÇy vµ trß Néi dung GV: Gọi một HS đọc đề bài 1 trong bài thực hành HS: Đọc bài GV: Nêu lại VD và cách khai báo biến mảng ở phần VD2 và VD3 Hs: Quán lắng nghe và quan sát GV: Gọi HS tìm các biến cần khai báo và dịch nghĩa của phần khai báo HS: Trả lời GV: Hướng dẫn HS cách phân tích câu lệnh trong phần thân chương trình HS: LẮng nghe GV: Yêu cầu HS gõ chương trình vào máy, dịch và chạy chương trình, sau đó ghi lại chương trình và ý nghĩa của các câu lệnh trong chương trình? HS: Thực hiện yêu cầu Bµi 2: Program Phan_loai; uses crt; Var i, n, G, Kh, TB, K: integer; A: array[1..100] of real; Begin clrscr; write('nhap so HS trong lop, n= '); readln(n); writeln('Nhap diem :'); For i:=1 to n do Begin write(i,' . '); readln(a[i]); End; G:=0; Kh:= 0; TB:= 0; K:= 0; for i:=1 to n do Begin if a[i] >= 8.0 then G:= G + 1; if a[i] <5.0 then K:= K + 1; if (a[i] =6.5) then Kh:= Kh + 1; if (a[i] >= 5 ) and (a[i] < 6.5) then TB:= TB + 1; end; writeln(' Ket qua hoc tap: '); writeln(G, ' ban hoc gioi '); writeln(Kh, ' ban hoc kha '); writeln(TB, ' ban hoc trung binh'); writeln(K, ' ban hoc kem '); readln; End. 4. Cñng cè - Gọi HS đứng tại chỗ dịch nghĩa của một số câu lệnh 5. Dặn Dò - Häc sinh vÒ nhµ ôn bài, tiết sau chúng ta thực hành IV. RÚT KINH NGHIỆM
Tài liệu đính kèm: