-Về kỹ năng: + Hs thực hành khai báo và sử dụng biến mảng + Hs ôn luyện cách sử dụng câu lệnh if … then, for…do + Hs hiểu và viết được chương trình với thuật toán tìm giá trị lớn nhất, n[r]
(1)Trường THCS Đoàn Giỏi GV: Phạm Tấn Phát Tuần 57,58 Ngày soạn: Tiết 29 Ngày dạy: Bài thực hành 7: Xử lý dãy số chương trình I./ Mụcđích yêu cầu: -Về kiến thức: Hs nhắc lại cách khai báo dãy, số, phần tử dãy -Về kỹ năng: + Hs thực hành khai báo và sử dụng biến mảng + Hs ôn luyện cách sử dụng câu lệnh if … then, for…do + Hs hiểu và viết chương trình với thuật toán tìm giá trị lớn nhất, nhỏ dãy số, tính tổng dãy số -Về thái độ: Hs có thái độ cẩn thận viết chương trình, tạo thói quen học tập khoa học II./ Phương pháp,phương tiện: -Phương pháp trực quan, thực nghiệm, thảo luận và nêu vấn đề III./ Lưu ý sư phạm: IV./ Hoạt động dạy học: Hoạt động giáo viên Hoạt động HS HĐ1: Kiểm tra bài cũ (5 phút) HĐ2: Thực hành bài 1,2 -GV: Chương trình tìm giá trị nhỏ dãy số nguyờn P_Min ? -GV yêu cầu hs chia nhóm làm thực hành -Tất hs đọc đề và chuẩn bị -Hs tổ chức thực hành theo nhóm -GV: Viết chương trình nhập điểm các bạn lớp Sau đó in màn hình số bạn đạt kết học tập loại giỏi, khá, TB và kém Trang Lop8.net Nội dung bài học Bài 1: Program P_Min; Var i, n, Min : integer; A: array[1 100] of integer; Begin write('Hay nhap dai cua day so, N = '); readln(n); writeln('Nhap cac phan tu cua day so:'); For i:=1 to n Begin write('a[',i,']='); readln(a[i]); End; Min:=a[1]; for i:=2 to n if Min>a[i] then Min:=a[i]; write('So nho nhat la Min = ',Min); readln; End Bài 2: Program Phan_loai; uses crt; Var i, n, G, Kh, TB, K: integer; A: array[1 100] of real; Begin clrscr; (2) Trường THCS Đoàn Giỏi GV: Phạm Tấn Phát Tiêu chuẩn: + Loại giỏi: 8.0 trở lên + Loại khá: 6.5 đến 7.9 + Loại TB: 5.0 đến 6.4 + Loại kém: 5.0 write('nhap so HS lop, n= '); readln(n); writeln('Nhap diem :'); For i:=1 to n Begin write(i,' '); readln(a[i]); End; G:=0; Kh:= 0; TB:= 0; K:= 0; for i:=1 to n Begin if a[i] >= 8.0 then G:= G + 1; if a[i] <5.0 then K:= K + 1; if (a[i] <8.0 ) and (a[i] >=6.5) then Kh:= Kh + 1; if (a[i] >= ) 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 Bài 1: Program P_Sum; Var i, n, Sum : integer; A: array[1 100] of integer; Begin write('Hay nhap dai cua day so, N = '); readln(n); writeln('Nhap cac phan tu cua day so:'); For i:=1 to n Begin write('a[',i,']='); readln(a[i]); End; Sum:=0; for i:=1 to n Sum:= Sum + a[i]; write('Day so vua nhap la: '); for i:=1 to n write(a[i], ' '); writeln; write('Tong day so la = ',Sum); readln; End -Hs tổ chức thực hành theo nhóm -GV cho hs chia nhóm làm thực hành -GV gợi ý: Dùng câu lệnh if…then… -GV: Viết chương trình tính tổng dãy số, in màn hình dãy số vừa nhập -GV cho hs chia nhóm làm thực hành -Hs tổ chức thực hành theo nhóm Trang Lop8.net (3) Trường THCS Đoàn Giỏi GV: Phạm Tấn Phát -GV:Bổ sung và chỉnh sửa chương trình BT2 để nhập loại điểm Toán và Ngữ văn các bạn Sau đó in màn hình : a/ điểm TB bạn lớp theo công thức: Điểm TB = (Điểm toán + điểm văn)/2 b/ Điểm TB lớp theo môn Toán và Ngữ văn -GV cho hs chia nhóm làm thực hành -Hs tổ chức thực hành theo nhóm Bài 2: Program Xep_loai; uses crt; Var i, n: integer; TBtoan, TBvan: real; diemT, diemV: array[1 100] of real; Begin clrscr; writeln('Diem TB : '); For i:=1 to n write(i,' ',(diemT[i] + diemV[i])/2:3:1); TBtoan: =0; TBvan: =0; For i:=1 to n Begin TBtoan: = TBtoan + diemT[i] ; TBvan: = TBvan + diemV[i] ; end; TBtoan: = TBtoan /n; TBvan: = TBvan /n; writeln('Diem TB mon Toan : ',TBtoan :3:2); writeln('Diem TB mon Van: ',TBvan :3:2); readln; End V.Củng cố, dặn dò: VI./ Rút kinh nghiệm tiết dạy Trang Lop8.net (4)