Tiết 57. Bài Thực Hành 7. Xử lý dãy số trong chương trình. (T1)

: 8B; 8C; 8D. Ngày soạn: 29/03/2009.
PPCT: 57. Ngày dạy: 02/04/2009.
Bài Thực Hành 7. Xử lý dãy số trong chương trình. (T1)
I. Mục tiêu:
Giúp hs khai báo và sử dụng các biến mảng.
Giúp Hs ôn luyện cách sử dụng câu lệnh rẽ nhánh, lệnh lặp.
Giúp Hs cũng cố kỹ năng đọc, hiểu hiệu chỉnh lỗi trong chương trình, chạy chương trình và xem kết quả.
Hiểu và viết được chương trình tham chiếu đến các phần tử trong mảng, nhập/xuất các phần tử trong mảng.
II. Chuẩn bị:
Gv: phòng máy.
Hs: bài tập thực hành
III. Tiến trình lên lớp:
Hoạt Động 1: Tiến trình thực hành
HĐ của GV
HĐ của HS

- Giáo viên yêu cầu hs thực hành bài 1 trong sách giáo khoa.
Bài 1.
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á, trung bình và kém (theo tiêu chuẩn từ 8.0 trở lên đạt loại giỏi, từ 6.5 đến 7.9 đạt loại khá, từ 5.0 đến 6.4 đạt trung bình và dưới 5.0 xếp loại kém).
Xem lại các ví dụ 2 và ví dụ 3, bài 9 về cách sử dụng và khai báo biến mảng trong Pascal.
Liệt kê các biến dự định sẽ sử dụng trong chương trình. Tìm hiểu phần khai báo dưới đây và tìm hiểu tác dụng của từng biến:
program Phanloai;
uses crt;
Var
i, n, Gioi, Kha, Trungbinh, Kem: integer;
A: array[1..100] of real;
- Giáo viên theo dõi, hỗ trợ học sinh thực hành.
- Giáo viên hướng dẫn thêm cho hs hiểu các yêu cầu của bài 1.
- Gv: trong quá trình thực hành nếu những phần nào quan trọng thì yêu cầu hs nên ghi lại vào vở.
- Gv: Sau khi nhập xong, dịch và chạy chương trình em thấy màn hình Turbo Pascal xuất ra kết có đúng không?
- Gv yêu cầu hs quan sát kỹ các lệnh trong chương trình.
- Giáo viên gọi 1 - 2 học sinh lên máy chủ thực hành từng bước bài 1 cho cả lớp xem.
- Giáo viên nhận xét thao tác thực hành của học sinh và ghi điểm.
Hs: thực hành bài 1.

Hs: thực hành.

Hs: lắng nghe và thực hành.

Hs: thực hành.


Hs: Trả lời.


Begin
clrscr;
write(`Nhap so cac ban trong lop, n = `); readln(n);
writeln(`Nhap diem:`);
For i:=1 to n do Begin write(i,`. `); readln(a[i]); End;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
for i:=1 to n do
begin
if a[i]>=8.0 then Gioi:=Gioi+1;
if a[i]<5 then kem:=Kem+1;
if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;
if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1
end;
writeln(`Ket qua hoc tap:`);
writeln(Gioi,` ban hoc gioi`);
writeln(Kha,` ban hoc kha`);
writeln(Trungbinh,` ban hoc trung binh`);
writeln(Kem,` ban hoc kem`);
readln
End.



HĐ2: Tổng kết
HĐ của GV
HĐ của HS

Gv: yêu cầu lớp trưởng và lớp phó kiểm tra máy tính.
Gv: kiểm tra máy tính thực hành của hs.
Gv: đánh giá tiết thực hành của hs qua các mặt: thái độ thực hành của hs, nề nếp, sự chuẩn bị của hs…
Hs: kiểm tra máy tính.


Hs: lắng nghe.


Cũng cố:
Cách khai báo mảng?.
Tham chiếu tới phần tử mảng ta làm thế nào?
Nhập/Xuất các phần tử trong mảng
Dặn dò:
Về nhà xem lại các bài tập đã thực hành. Nếu hs nào có máy tính cá nhân thì nên thao tác