Giáo án Số học 6 - Tiết 13: Luyện tập

<span class='text_page_counter'>(1)</span>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ố trong 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, chỉ số, phần tử của 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 đượ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 của dãy số. -Về thái độ: Hs có thái độ cẩn thận trong 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 7 “Xử lý dãy số trong chương trình” III./ Löu yù sö phaïm: - GV chuẩn bị ví dụ thực tế về tổ chức thông tin dạng dãy số, mô hình và tính ứng dụng của dãy số. IV./ Kieåm tra baøi cuõ: (5 phuùt) -GV yêu cầu 1 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 từng bước câu lệnh lặp và cho biết giá trị của biến A khi thực hiện xong đoạn chương trình sau ? A:= 0; i:= 3; While i<=7 do 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ố trong chương trình”. V./ Dạy học bài mới: Hoạt động của giáo viên HĐ2: Thực hành bài 1,2 -GV: Chương trình tìm giá trị nhỏ nhất trong dãy số nguyờn P_Min ?. Hoạt động của hs. Noäi dung baøi hoïc Bài 1:. -Tất cả 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 1 Lop8.net. Program P_Min; Var i, n, Min : integer; A: array[1..100] of integer; Begin 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 Begin write('a[',i,']='); readln(a[i]); End; Min:=a[1]; for i:=2 to n do if Min>a[i] then Min:=a[i]; write('So nho nhat la Min = ',Min);.

<span class='text_page_counter'>(2)</span> 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ủa các bạn trong lớp. Sau đó in ra màn hình số bạn đạt kết quả 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: dưới 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 ra 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 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] <8.0 ) and (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.. 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 trong BT2 để nhập 2 loại điểm Toán và Ngữ văn của các bạn. Sau đó in ra màn hình : a/ điểm TB của mỗi bạn trong lớp theo công thức: Điểm TB = (Điểm toán + điểm văn)/2 b/ Điểm TB của cả lớp theo từng 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 do dai cua day so, N = '); readln(n); writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do Begin write('a[',i,']='); readln(a[i]); End; Sum:=0; for i:=1 to n do Sum:= Sum + a[i]; write('Day so vua nhap la: '); for i:=1 to n do write(a[i], ' '); writeln; write('Tong day so la = ',Sum); readln; End.. Bài 2: Program Xep_loai; uses crt; Var. Trang 2 Lop8.net.

<span class='text_page_counter'>(3)</span> 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 do write(i,' . ',(diemT[i] + diemV[i])/2:3:1); TBtoan: =0; TBvan: =0; For i:=1 to n do 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 trong chương trình? -GV: Các em học bài 9 “Làm việc với dãy số” và bài thực hành 7 để tuần sau nửa kiểm tra thực hành 1 tiết. V./ Ruùt kinh nghieäm tieát daïy. Trang 3 Lop8.net.

<span class='text_page_counter'>(4)</span>