Tuần: 31 Ngày soạn: 04/4/2014
Tiết: 60 Ngày dạy: 5/4/2014

BÀI THỰC HÀNH 7: XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRÌNH (T2)
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..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.
- 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 dãy số.
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Ị
1. Chuẩn bị của Giáo viên:
Sách giáo khoa, giáo án, bài tập, phòng máy vi tính
2. Chuẩn bị của học sinh:
- Sách vở, bút ghi, thước kẻ, kiến thức liên quan, ...
III. PHƯƠNG PHÁP
- Thuyết trình, giảng giải, vấn đáp, trực quan
IV. TIẾN TRÌNH DẠY HỌC
1. Tổ chức lớp: (1p)
- Ổn định tổ chức. Kiểm tra sĩ số.
2. Kiểm tra bài cũ: Kết hợp trong giờ thực hành
3. Bài mới:
Hoạt động của thầy
Hoạt động của trò
Nội dung ghi bài

Hoạt động 1 (17p): Bài 1(tt)

GV: Phân nhóm thực hành (ngồi theo nhóm cũ đã được phân).
GV: Y/c HS khởi động phần mềm TURBO PASCAL. Mở bài thực hành ở tiết trước với tên Phanloai

d.Gõ tiếp phần thân chương trình và máy tính sau phần khai báo, dịch và chạy chương trình.


HS: Ngồi vào máy tính theo nhóm đã được phân công.



HS: Khởi động pm và mở bài thực hành ở tiết trước với tên Phanloai


- Gõ dịch và chạy thử chương trình trong SGK/80

Program Phan_loai;
uses crt;
Var
i, n, G, Kh, TB, K: integer;
A: array[1..100] of real;
Begin
clrscr;
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:
Viết chương trình nhập điểm 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 khá, giỏi, trung bình, 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


Hoạt động2 (20p): Bài 2

GV: Y/c HS đọc và nắm rõ y/c bài 2.
a. Tìm hiểu ý nghĩa của các câu lệnh trong sgk/81( tương tự bài 1)
b. Bổ sung các câu lệnh ở bài 2 vào vị trí thích hợp trong Bài 1, dịch và chạy chương trình.

HS: Đọc đề Bài 2 và tìm hiểu các y/c.


HS: thảo luận nhóm và tìm hiểu ý nghĩa của từng câu lệnh


HS: Bổ sung các câu lệnh ở bài 2 vào vị trí thích hợp trong Bài 1, dịch và chạy chương trình.
Program Xep_loai;
uses crt;
Var
i, n: integer;
TBtoan, TBvan: real;
diemT, diemV: array[1..100] of real;
Begin
clrscr;
writeln