Giáo án Tin học 8 - Tiết 29, Bài thực hành 7: Xử lý dãy số trong chương trình - Phạm Tấn Phát

Tuần 57,58	Ngày soạn:	
Tiết 29	Ngày dạy:	
Baøi thöïc haønh 7: Xöû lyù daõy soá trong chöông trình
I./ Mụcđích yêu cầu:
-Về kiến thức: Hs nhắc lại cách khai báo dãy, chỉ số, phần tử của dãy.
-Về kỹ năng:
+ Hs thực hành khai báo và sử dụng biến mảng
+ Hs ôn luyện cách sử dụng câu lệnh if  then, fordo
+ Hs 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 của dãy số.
-Về thái độ: Hs có thái độ cẩn thận trong viết chương trình, tạo thói quen học tập khoa học.
II./ Phương pháp,phương tiện:
-Phương pháp trực quan, thực nghiệm, thảo luận và nêu vấn đề.
III./ Lưu ý sư phạm:
IV./ Hoạt động dạy học:
Hoạt động của giáo viên
Hoạt động của HS
Nội dung bài học
HĐ1: Kiểm tra bài cũ (5 phút)
HĐ2: Thực hành bài 1,2
-GV: Chương trình tìm giá trị nhỏ nhất trong dãy số nguyờn P_Min ? 
-GV yêu cầu hs chia nhóm làm thực hành.
-GV: 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 chia nhóm làm thực hành.
-GV gợi ý: 
à Dùng câu lệnh ifthen
-GV: Viết chương trình tính tổng dãy số, in ra màn hình dãy số vừa nhập. 
-GV cho hs chia nhóm làm thực hành.
-GV:Bổ sung và chỉnh sửa chương trình trong BT2 để 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
-GV cho hs chia nhóm làm thực hành.
-Tất cả hs đọc đề và chuẩn bị
-Hs tổ chức thực hành theo nhóm
-Hs tổ chức thực hành theo nhóm
-Hs tổ chức thực hành theo nhóm
-Hs tổ chức thực hành theo nhóm
Bài 1: 
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.
Bài 2: 
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.
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 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.
V.Củng cố, dặn dò:
VI./ Rút kinh nghiệm tiết dạy