Giáo án Tin học Lớp 8 - Tuần 31 - Năm học 2017-2018 - Nguyễn Kim Hon

Ngày soạn: 20/03/2018
Tuần: 31
Tiết: 59	
Bài thực hành 7:
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH
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.
Kĩ năng
	- Củng cố các kĩ năng đọc hiểu và chỉnh sửa chương trình.
Thái độ
Thái độ học tập nghiêm túc, yêu thích môn học.
Chuẩn bị:
Thầy: Giáo án, sách giáo khoa, máy tính điện tử.
Trò: Nghiên cứu SGK, vở ghi
Các bước lên lớp:
Ổn định lớp: Kiểm tra sĩ số (1’)
Kiểm tra bài cũ: không
Nội dung bài mới
Hoạt động của thầy
Hoạt động của trò
Nội dung cơ bản
Hoạt động 1: Bài 1 (40’)
Chương trình tìm giá trị nhỏ nhất trong dãy số nguyên P_Min ? 
HS chia nhóm làm thực hành.
Program P_Min;
Var
 i, n, Min : integer;
 A: array[1..100] of integer;
Begin
 write('Hay nhap do dai cua day so, N='); readln(n);
writeln('Nhap cac phan tu cua day so:');
 For i:=1 to n do
 Begin
 write('a[',i,']='); readln(a[i]); End;
 Min:=a[1];
 for i:=2 to n do if Min>a[i] then Min:=a[i];
 write('So nho nhat la Min = ',Min);
 readln;
End.
Chương trình tìm giá trị nhỏ nhất trong dãy số nguyên P_Min ? 
Củng cố (3’)
Giáo viên nhận xét và đánh giá tiết thực hành.
Hướng dẫn học sinh tự học, làm bài tập và soạn bài mới ở nhà (1’)
	- Tiết sau thực hành: “ Bài thực hành số 7 (tt)
Rút kinh nghiệm:
Ngày soạn: 20/03/2017
Tuần: 31
Tiết: 60	
Bài thực hành 7:
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH (TT)
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.
Kĩ năng
	- Củng cố các kĩ năng đọc hiểu và chỉnh sửa chương trình.
Thái độ
Thái độ học tập nghiêm túc, yêu thích môn học.
II. Chuẩn bị:
Thầy: Giáo án, sách giáo khoa, máy tính điện tử.
Trò: Nghiên cứu SGK, vở ghi
III. Các bước lên lớp:
Ổn định lớp: Kiểm tra sĩ số (1’)
Kiểm tra bài cũ: không
Nội dung bài mới
Hoạt động của thầy
Hoạt động của trò
Nội dung cơ bản
Hoạt động 1: Bài 2 (40’)
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
HS chia nhóm làm thực hành.
GV gợi ý: 
- Dùng câu lệnh ifthen
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.
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
Củng cố (3’)
Giáo viên nhận xét và đánh giá tiết thực hành.
Hướng dẫn học sinh tự học, làm bài tập và soạn bài mới ở nhà (1’)
	- Tiết sau thực hành: “ Bài thực hành số 7 (tt)
IV. Rút kinh nghiệm:
Ngày ..tháng ..năm 2018
Duyệt tuần 31
Mai Văn Quới