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:
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 Hoạt động của trò Nội dung 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. 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 HS chia nhóm làm thực hành. GV gợi ý: - Dùng câu lệnh ifthen 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); 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; 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] =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. Chương trình tìm giá trị nhỏ nhất trong dãy số nguyên P_Min ? 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 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ò: - 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ò 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. HS chia nhóm làm thực hành. 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. 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 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 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. Chương trình tính tổng dãy số, in ra màn hình dãy số vừa nhập. 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 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.
Tài liệu đính kèm: