Giáo án Tin học 8 - Tuần 31 - Dương Phước Giàu

 Tuần 31	Tiết : 61	Ngày soạn : 23/03/2014
Bài thực hành số 7
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH
 I. MỤC TIÊU:
	1. 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
	2. Kĩ năng:
	- Củng cố các kĩ năng đọc hiểu và chỉnh sửa chương trình.
	3. Thái độ:
	- Thái độ học tập nghiêm túc, yêu thích viết chương trình để thực hiện một số công việc.
 II. CHUẨN BỊ:
GV:Sách giáo khoa, giáo án.
HS: Đọc bài trước ở nhà.	
III. HOẠT ĐỘNG DẠY HỌC:
Tổ chức lớp :ổn định lớp, kiểm tra sỉ số (1’)
Kiểm tra bài cũ :
Bài mới : 38’
HOẠT ĐỘNG CỦA THẦY
HOẠT ĐỘNG CỦA TRÒ
NỘI DUNG
Hoạt động 1: Bài 1 (21’)
Yêu cầu HS chia nhóm làm thực hành.
Chương trình tìm giá trị nhỏ nhất trong dãy số nguyên P_Min ? 
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 ? 
Hoạt động 2: Bài tập 2 (17’)
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 ');
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
writeln(Kh, ' ban hoc kha ');
writeln(TB, ' ban hoc trung binh');
writeln(K, ' ban hoc kem ');
 readln;
End.
4. Củng cố (5’)
Khi khai báo biến mảng cần chú ý điều gì ?
Có thể thay for... do bởi While...do hay không ?
5. Dặn dò (1’)
Về xem lại cách khai báo và dùng biến mảng, xem trước phần còn lại của bài thực hành, tìm hiểu cách tính tổng các số nhập từ bàn phím có dùng biến mảng
 Tuần 31	Tiết : 62	Ngày soạn : 23/03/2014
Bài thực hành số 7 (tt)
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH
 I. MỤC TIÊU:
	1. 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
	2. Kĩ năng:
	- Củng cố các kĩ năng đọc hiểu và chỉnh sửa chương trình.
	3. Thái độ:
	- Thái độ học tập nghiêm túc, yêu thích viết chương trình để thực hiện một số công việc.
II. CHUẨN BỊ:
GV:Sách giáo khoa, giáo án.
HS: Đọc bài trước ở nhà.
III. HOẠT ĐỘNG DẠY HỌC:
Tổ chức lớp :ổn định lớp, kiểm tra sỉ số (1’)
Kiểm tra bài cũ :
Bài mới : 38’
HOẠT ĐỘNG CỦA THẦY
HOẠT ĐỘNG CỦA TRÒ
NỘI DUNG
Hoạt động 1:Bài 1(21’)
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.
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.
Chương trình tính tổng dãy số, in ra màn hình dãy số vừa nhập. 
Hoạt động 2: Bài 2 (17’)
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.
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ổ 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
4. Củng cố (5’)
	Khi khai báo mảng, có thể viết 2 tên mảng trên cùng 1 khai báo không (2 mảng có cùng số phần tử và kiểu) ?
5. DẶN DÒ: 1’
	- Về học bài cũ
	- Về nhà xem trước bài: “ Quan sát hình không gian với phần mềm Yenka “
- Phần mềm dùng để làm gì? Màn hình chính của phần mềm có những gì? Phần mềm có thể làm những gì?