Giáo án Tin học Lớp 8 - Tiết 63: Bài thực hành 7: Xử lý dãy số trong chương trình (T2) - Năm học 2009-2010

bµi thùc hµnh 7
xö lý d·y sè trong ch­¬ng tr×nh (T1)
TuÇn 32
TiÕt 63
Ngµy so¹n: 29/03/2010
Ngµy d¹y: 06/04/2010
I. môc tiªu
1. KiÕn thøc
Thực hành khai báo và sử dụng các biến mảng ;
Ôn luyện cách sử dụng câu lệnh lặp if...then, for...do;
2. Kü n¨ng
 Củng cố kĩ năng đọc, hiểu và chỉnh sửa chương trình.
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 dãy số.
3. Th¸i ®é
- Th¸i ®é häc tËp nghiªm tóc. 
II. CHUẨN BỊ
1. Giáo viên
a. Phương pháp: Thuyết trình, vấn đáp, gợi mở
b. Phương tiện: Giáo án, máy chiếu, máy tính. 
2. HS: Sách, vở đọc trước bài ở nhà.
III. TIẾN TRÌNH DẠY - HỌC
1.Ổn định lớp
- Ổn định trật tự
- Kiểm tra sĩ số
2. Kiểm tra bài cũ (kiểm tra trong tiết thực hành)
3. D¹y bµi míi :
 GV: Ghi đề bài lên bảng, yêu cầu HS quan sát và viết chương trình 
Bài TH: 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. 
HS: Thực hiện yêu cầu .
GV: Cho HS đọc đề bài 2 và gõ chương trình của bài đó
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
HS: 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 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.
4. Cñng cè 
 - Gọi HS đứng tại chỗ dịch nghĩa của một số câu lệnh
5. Dặn Dò
 - Häc sinh vÒ nhµ ôn bài, tiết sau chúng ta thực hành 
IV. RÚT KINH NGHIỆM