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

Ngày soạn: 27/3/2018
Tuần: 32
Tiết: 61
Bài thực hành 7:
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH (TT)
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 tập 3 (40’)
Chương trình tính tổng dãy số, in ra màn hình dãy số vừa nhập. 
HS chia nhóm làm thực hành.
Bài 1: 
Program P_Sum;
Var
 i, n, Sum : 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;
 Sum:=0;
 for i:=1 to n do Sum:= Sum + a[i];
 write('Day so vua nhap la: ');
 for i:=1 to n do write(a[i], ' ');
 writeln;
 write('Tong day so la = ',Sum);
 readln;
End.
Bài 1: 
Củng cố (3’)
Hệ thống lại kiến thức cho học sinh.
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’)
- Về nhà học bài kết hợp sách giáo khoa, tiết sau Thực hành.
Rút kinh nghiệm:
Ngày soạn: 27/3/2018
Tuần: 32
Tiết: 62
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 tập 4 (40’)
Bổ sung và chỉnh sửa chương trình trong BT2 (tiết 59 ) để nhập 2 loại điểm Toán và Ngữ văn của các bạn. Sau đó in ra màn hình :
a/ điểm TB của mỗi bạn trong lớp theo công thức: 
Điểm TB = (Điểm toán + điểm văn)/2
b/ Điểm TB của cả lớp theo từng môn Toán và Ngữ văn
HS chia nhóm làm thực hành.
Bài 2: 
Program Xep_loai;
uses crt;
Var
 i, n: integer;
TBtoan, TBvan: real;
diemT, diemV: array[1..100] of real;
Begin
clrscr;
 writeln('Diem TB : '); 
 For i:=1 to n do
write(i,' . ',(diemT[i] + diemV[i])/2:3:1); 
TBtoan: =0; TBvan: =0;
 For i:=1 to n do
 Begin
 TBtoan: = TBtoan + diemT[i] ;
 TBvan: = TBvan + diemV[i] ;
 end;
 TBtoan: = TBtoan /n;
 TBvan: = TBvan /n;
writeln('Diem TB mon Toan : ',TBtoan :3:2); 
writeln('Diem TB mon Van: ',TBvan :3:2); 
 readln;
End.
Bài 2: 
Củng cố (3’)
Hệ thống lại kiến thức cho học sinh.
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’)
- Về nhà học bài kết hợp sách giáo khoa, tiết sau học bài 12.
IV. Rút kinh nghiệm:
Ngày ..tháng ..năm 2018
Duyệt tuần 32
Mai Văn Quới