Giáo án Tin học 8 - Tuần 31 - Năm học 2009-2010

<span class='text_page_counter'>(1)</span>Tuaàn 31 Tieát 59. NS: 11/04/2010 NG: 13/04/2010. Bài thực hành số 7 XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH I. Mục tiêu: 1. Kiến thức: - Làm quen với việc khai báo và sử dụng biến mảng. - Ôn luyện cách sử dụng câu lệnh lặp for..do 2. Kĩ năng: - Củng cố các kĩ năng đọc hiểu và chỉnh sửa chương trình. 3. Thái độ: - Thái độ học tập nghiêm túc, yêu thích viết chương trình để thực hiện một số công việc. II. Chuẩn bị: Nội dung bài thực hành, máy tính điện tử. III. Tiến trình thực hành:. Hoạt động của thầy Chương trình tìm giá trị nhỏ nhất trong dãy số nguyên P_Min ?. HS chia nhóm làm thực hành.. Hoạt động của trò Bài 1: 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);. Lop8.net. Nội dung Chương trình tìm giá trị nhỏ nhất trong dãy số nguyên P_Min ?.

<span class='text_page_counter'>(2)</span> Viết chương trình nhập readln; điểm của các bạn trong End. lớp. Sau đó in ra màn Bài 2: hình số bạn đạt kết quả Program Phan_loai; học tập loại giỏi, khá, uses crt; TB và kém. Var Tiêu chuẩn: i, n, G, Kh, TB, K: integer; - Loại giỏi: 8.0 trở lên A: array[1..100] of real; - Loại khá: 6.5 đến 7.9 Begin - Loại TB: 5.0 đến 6.4 clrscr; - Loại kém: dưới 5.0 write('nhap so HS trong lop, n= '); readln(n); writeln('Nhap diem :'); For i:=1 to n do Begin HS chia nhóm làm thực write(i,' . '); readln(a[i]); hành. End; G:=0; Kh:= 0; TB:= 0; K:= 0; GV gợi ý: for i:=1 to n do - Dùng câu lệnh Begin if…then… 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. IV. Nhận xét Giáo viên nhận xét và đánh giá tiết thực hành.. Lop8.net. 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.

<span class='text_page_counter'>(3)</span> V. Dặn dò: - Tiết sau thực hành: “ Bài thực hành số 7 (tt). Tuaàn 31 Tieát 59. NS: 11/04/2010 NG: 13/04/2010. Bài thực hành số 7 XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH (tt) I. Mục tiêu: 1. Kiến thức: - Làm quen với việc khai báo và sử dụng biến mảng. - Ôn luyện cách sử dụng câu lệnh lặp for..do 2. Kĩ năng: - Củng cố các kĩ năng đọc hiểu và chỉnh sửa chương trình. 3. Thái độ: - Thái độ học tập nghiêm túc, yêu thích viết chương trình để thực hiện một số công việc.. II. Chuẩn bị: Nội dung bài thực hành, máy tính điện tử.. III. Tiến trình thực hành: Hoạt động của thầy. Hoạt động của trò. Bài 1: 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 HS chia nhóm làm thực so:'); For i:=1 to n do hành. Chương trình tính tổng dãy số, in ra màn hình dãy số vừa nhập.. Lop8.net. Nội dung Chương trình tính tổng dãy số, in ra màn hình dãy số vừa nhập..

<span class='text_page_counter'>(4)</span> Bổ sung và chỉnh sửa chương trình trong BT2 (tiết 59 ) để 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. HS chia nhóm làm thực hành.. 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 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;. Lop8.net. Bổ sung và chỉnh sửa chương trình trong BT2 (tiết 59 ) để 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.

<span class='text_page_counter'>(5)</span> End. IV. Nhận xét Giáo viên nhận xét và đánh giá tiết thực hành. V. Dặn dò: - Về nhà xem lại bài để chuẩn bị tốt cho bài kiểm tra 45 phút ở tiết sau.. Lop8.net.

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