Đang tải... (xem toàn văn)
-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-Năm học: 2009-2010 Tuaàn 32 Tieát: 63, 64 GV: Phaïm Taán Phaùt Ngày soạn: Ngaøy daïy: Bài thực hành 7: Xử lý dãy số chương trình I./ Muïc ñích yeâu caà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./ Chuaån bò: - GV: Máy chiếu, máy tính - HS: Sgk, chuẩn bị trước bài thực hành “Xử lý dãy số chương trình” III./ Löu yù sö phaïm: - GV chuẩn bị ví dụ thực tế tổ chức thông tin dạng dãy số, mô hình và tính ứng dụng dãy số IV./ Kieåm tra baøi cuõ: (5 phuùt) -GV yêu cầu hs lên trả lời các câu hỏi 1./ Viết câu lệnh lặp với số lần xác định và số lần chưa biết trước? 2./ Chạy bước câu lệnh lặp và cho biết giá trị biến A thực xong đoạn chương trình sau ? A:= 0; i:= 3; While i<=7 Begin A:=A+i*(i+1); i:=i+2; end; -GV nhận xét và cho điểm, nhận xét quá trình chuẩn bị nhà bài thực hành7 “Xử lý dãy số chương trình” V./ Dạy học bài mới: Hoạt động giáo viên 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 ? Hoạt động hs Noäi dung baøi hoïc Bài 1: -Tất hs đọc đề và chuẩn bị -GV yêu cầu hs chia nhóm làm thực hành -Hs tổ chức thực hành theo nhóm Trang Lop8.net 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); (2) Trường THCS Đoàn Giỏi-Năm học: 2009-2010 GV: Phaïm Taán Phaùt readln; End Bài 2: -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 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 -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 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 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: -Hs tổ chức thực hành theo nhóm -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 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 Bài 2: Program Xep_loai; uses crt; Var Trang Lop8.net (3) Trường THCS Đoàn Giỏi-Năm học: 2009-2010 GV: Phaïm Taán Phaùt -GV cho hs chia nhóm làm thực hành -Hs tổ chức thực hành theo nhóm 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 HĐ4: Cuûng coá, daën doø: (10 phuùt) -GV: Hãy nhắc lại cách khai báo biến mảng chương trình? -GV: Các em học bài “Làm việc với dãy số” và bài thực hành để tuần sau nửa kiểm tra thực hành tiết V./ Ruùt kinh nghieäm tieát daïy Trang Lop8.net (4)