Đang tải... (xem toàn vă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[r]
(1)Tuaàn 31 Tieát 59 NS: 11/04/2010 NG: 13/04/2010 Bài thực hành số XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH I Mục tiêu: 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 Kĩ năng: - Củng cố các kĩ đọc hiểu và chỉnh sửa chương trình Thái độ: - Thái độ học tập nghiêm túc, yêu thích viết chương trình để thực 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 thầy Chương trình tìm giá trị nhỏ dãy số nguyên P_Min ? HS chia nhóm làm thực hành Hoạt động trò 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); Lop8.net Nội dung Chương trình tìm giá trị nhỏ dãy số nguyên P_Min ? (2) Viết chương trình nhập readln; điểm các bạn End lớp Sau đó in màn Bài 2: hình số bạn đạt kết 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: 5.0 write('nhap so HS lop, n= '); readln(n); writeln('Nhap diem :'); For i:=1 to n 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 - 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] >= ) 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á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 (3) V Dặn dò: - Tiết sau thực hành: “ Bài thực hành số (tt) Tuaàn 31 Tieát 59 NS: 11/04/2010 NG: 13/04/2010 Bài thực hành số XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH (tt) I Mục tiêu: 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 Kĩ năng: - Củng cố các kĩ đọc hiểu và chỉnh sửa chương trình Thái độ: - Thái độ học tập nghiêm túc, yêu thích viết chương trình để thực 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 thầy Hoạt động trò 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 HS chia nhóm làm thực so:'); For i:=1 to n hành Chương trình tính tổng dãy số, in 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 màn hình dãy số vừa nhập (4) Bổ sung và chỉnh sửa chương trình BT2 (tiết 59 ) để 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 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 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 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; Lop8.net Bổ sung và chỉnh sửa chương trình BT2 (tiết 59 ) để 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 (5) 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 (6)