GIáo án Tin lớp 8 tiết 57: Bài thực hành 7 xử lí dãy số trong chương trình

Tiết: 57
Ngày dạy: 09/04/2010
Bài thực hành 7
 XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRÌNH
I. Mục tiêu
1. Kiến thức
Thực hành việc khai báo và sử dụng các biến mảng;
Ôn luyện các kỹ năng sử dụng các câu lệnh if  then, for  do;
Củng cố kỹ năng đọc, hiểu và chỉnh sửa chương trình.
2. Kỹ năng
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, tích cực làm các bài tập thực hành.
II. Chuẩn bị
Thầy giáo
Phòng máy
Phần mềm
Học sinh
Xem trước bài học ở nhà
III. Phương pháp dạy học
Hướng dẫn lý thuyết
Thực hành trực tuyến
IV. Tiến trình dạy học
Ổn định
Kiểm diện học sinh 
Kiểm tra bài cũ
Không 
Bài mới
Hoạt động của thầy & trò
Nội dung ghi của trò
* Nội dung 1: Bài tập 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á, 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 GV cho HS đọc phần ghi nhớ.
Yêu cầu học sinh chia nhóm ra thực hành.
Giáo viên gợi ý
Giáo viên kiểm tra, nhận xét, đánh giá.
Thực hành 7: XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRÌNH
Bài 1
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.
Củng cố và luyện tập
Dữ liệu kiểu mảng là gì?
Cách khai báo mảng trong Pascal.
Hướng dẫn học ở nhà
Xem phần còn lại của bài học.
V. Rút kinh nghiệm