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

Mục tiờu: - Giỳp hs khai bỏo và sử dụng cỏc biến mảng.. - 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.. - Hs: bài tập thực hành

Trờng THCS Sơn Tiến Giáo viên: Phạm Tuấn Anh Dạy Lớp: 8B; 8C; 8D Ngày soạn: 29/03/2009 Tiết 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

- 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)

a) 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

b) 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

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,' ');

Gioi:=0; Kha:=0;

Trungbinh:=0; Kem:=0;

for i:=1 to n do

begin

if a[i]>=8.0 then

Giáo án tin học lớp 8.

Trêng THCS S¬n TiÕn Gi¸o viªn: Ph¹m TuÊn Anh.

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

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

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

1 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

2 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 lại nhiều lần cho thành thạo

- Xem trước bài tiÕt tiếp theo thùc hµnh tiÕp

Gi¸o ¸n tin häc líp 8.