Tin 8 tiet 57.doc

Bài thực hành 7: Xử lớ dóy số trong chương trỡnh t1 I.. Kiến thức - Làm quen với việc khai bỏo và sử dụng cỏc biến mảng 2.. Kỹ Năng - ễn luyện cỏch sử dụng cõu lệnh lặp for…do.. - Củng c

Trờng THCS Sơn Tiến Giáo viên: Phạm Tuấn Anh Dạy lớp: 8A; 8B; 8E Ngày soạn: 27/03/2010 Tiết PPCT: 57 Ngày dạy: 02/04/2010.

Bài thực hành 7: Xử lớ dóy số trong chương trỡnh (t1)

I MỤC TIấU:

1 Kiến thức

- Làm quen với việc khai bỏo và sử dụng cỏc biến mảng

2 Kỹ Năng

- ễn luyện cỏch sử dụng cõu lệnh lặp for…do

- Củng cố cỏc kĩ năng đọc, hiểu và chỉnh sửa chương trỡnh

3 Thỏi độ: Nghiờm tỳc

II CHUẨN BỊ:

GV: Soạn bài, đọc tài liệu tham khảo, dụng cụ dạy học, phòng máy.

HS: Xem lại kiến thức ở tiét trớc, dụng cụ học tập.

III TIẾN TRèNH LấN LỚP:

KIỂM TRA BÀI CŨ

1 Hóy cho một số vớ dụ về lặp với số lần chưa biết trư c.ớc

GV: Đưa ra bài tập 1 SGK

? Gọi học sinh nờu ý tưởng

- GV hướng dẫn

HS: Làm bài tập

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;

a Gừ phần khai bỏo trờn vào mỏy tớnh và lưu tệp với

tờn Phanloai Tỡm hiểu cỏc cõu lệnh trong phần thõn

chương trỡnh dưới đõy:

Begin

clrscr;

write(‘Nhap so cac ban trong lop, n

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.

= ‘); 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.

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

IV CỦNG CỐ HƯỚNG DẪN VỀ NHÀ :

- Cách sử dụng biến mảng

- Cách kết hợp với lệnh lặp for…do

- Về nhà xem lại bài học tiết sau chúng ta thực hành tiếp

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