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

Tuaàn 32
Ngaøy soaïn:
Tieát: 63, 64
Ngaøy daïy:
Baøi thöïc haønh 7: Xöû lyù daõy soá trong chöông trình
I./ Muïc ñích yeâu caà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./ Chuaån bò:
- GV: Máy chiếu, máy tính
- HS: Sgk, chuẩn bị trước bài thực hành 7 “Xử lý dãy số trong chương trình”
III./ Löu yù sö phaïm:
- GV chuẩn bị ví dụ thực tế về tổ chức thông tin dạng dãy số, mô hình và tính ứng dụng của dãy số
IV./ Kieåm tra baøi cuõ: (5 phuùt)
-GV yêu cầu 1 hs lên trả lời các câu hỏi
1./ Viết câu lệnh lặp với số lần xác định và số lần chưa biết trước?
2./ Chạy từng bước câu lệnh lặp và cho biết giá trị của biến A khi thực hiện xong đoạn chương trình sau ?
A:= 0; i:= 3; 
While i<=7 do
Begin
	A:=A+i*(i+1);
	i:=i+2;
end;
-GV nhận xét và cho điểm, nhận xét quá trình chuẩn bị ở nhà bài thực hành7 “Xử lý dãy số trong chương trình”
V./ Daïy hoïc baøi môùi:
Hoaït ñoäng cuûa giaùo vieân
Hoaït ñoäng cuûa hs
Noäi dung baøi hoïc
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.
HĐ4: Cuûng coá, daën doø: (10 phuùt)
-GV: Hãy nhắc lại cách khai báo biến mảng trong chương trình?
-GV: Các em học bài 9 “Làm việc với dãy số” và bài thực hành 7 để tuần sau nửa kiểm tra thực hành 1 tiết
V./ Ruùt kinh nghieäm tieát daïy