Giáo án Tin học 8 - Tiết 21, Bài 9: Làm việc với dãy số - Năm học 2009-2010

GIÁO ÁN TIN HỌC 8
Tiết PPCT: 21 (HKII)
Ngày soạn: 7/3/2010
Ngày dạy: ............................................. 
§9. LÀM VIỆC VỚI DÃY SỐ
Mục tiêu:
- Làm quen với việc khai báo và sử dụng các biến mảng.
- Biết cách tìm giá trị lớn nhất và giá trị nhỏ nhất của dãy số.
- Rèn luyện kĩ năng tìm giá trị lớn nhất và giá trị nhỏ nhất của dãy số.
II. Chuẩn bị:
GV: Bảng phụ
HS: SGK, dụng cụ học tập đầy đủ.
III. Hoạt động dạy học:
1/ Ổn định tổ chức: Yêu cầu hs báo cáo sĩ số, kiểm diện học sinh (1’).
2/ Kiểm tra bài cũ: 
5’
TG
Hoạt động của GV
Hoạt động của HS
Nội dung
- Đặt câu hỏi chung cho cả lớp:
1. Dữ liệu mảng là gì?
2. Nêu cách khai báo biến mảng?
- Y/c 1 Hs trả lời các câu hỏi trên.
- Y/c 2 Hs nhận xét, đánh giá.
- Nhận xét, đánh giá điểm số.
- 1 HS trả lời, ghi bảng.
- Hai HS nhận xét, đánh giá HS trả lời câu hỏi và đề nghị điểm số.
- Vấn đáp giữa giáo viên, học sinh để ôn lại bài cũ.
- Nhóm HS nhận xét, đánh giá HS trả lời câu hỏi.
3/ Bài mới:
TG
Hoạt động của GV
Hoạt động của HS
Nội dung
10’
Hoạt động 1: Tìm hiểu Ví dụ về biến mảng (tt)
- Yêu cầu HS đọc ví dụ 2.
- Viết lại cách khai báo biến của ví dụ trên với số học sinh tối đa của lớp là 40.
- Cách khai báo và sử dụng biến như trên có lợi gì?
- Giải thích về lợi ích của việc sử dụng biến mảng,.
Hoạt động 2: Tìm hiểu cách tìm giá trị lớn nhất và giá trị nhỏ nhất của dãy số.
20’
- Ví dụ 3: Viết chương trình nhập vào dãy số nguyên n và in ra màn hình số lớn nhất, nhỏ nhất.
- Hãy trình bày cách khai báo biến trong chương trình?
- Phần thân chương trình phải viết như thế nào?
- Giải thích từng phần của chương trình: Phần nhập giá trị cho biến, phần kiểm tra các giá trị của mảng để tìm số lớn nhất, nhỏ nhất.
- Đọc ví dụ 2. 
- Có thể thay rất nhiều câu lệnh lặp và in dữ liệu bằng một câu lệnh lặp. VD: For i:=1 to 50 do readln(Diem[i]);
- Sử dụng biến mảng một cách hiệu quả trong xử lý dữ liệu. VD For i:=1 to 50 do
if Diem[i]>8.0 then Writeln (‘Gioi’); hay khai báo nhiều biến: Var Toan, Van, li: array [1..50] of real; gán giá trị cho các phần tử của biến mảng: A[1]:=5; A[2]:=9;...
Program MaxMin;
uses crt;
Var
 i, n, Max, Min: integer;
 A: array[1..100] of integer;
Begin
 clrscr;
write('Hay nhap do dai cua day so, = '); readln(n);
 writeln('Nhap cac phan tu cua day so:');
 For i:=1 to n do
 Begin
 write('a[',i,']='); readln(a[i]);
 End;
 Max:=a[1]; Min:=a[1];
 for i:=2 to n do 
 begin if Max<a[i] then Max:=a[i];
 if Min>a[i] then Min:=a[i] 
 end;
 write('So lon nhat la Max = ',Max);
 write('; So nho nhat la Min = ',Min);
 readln;
End.
- Lắng nghe.
2. Ví dụ về biến mảng:
Lợi ích của việc sử dụng biến mảng:
- Có thể thay rất nhiều câu lệnh lặp và in dữ liệu bằng một câu lệnh lặp. VD: For i:=1 to 50 do readln(Diem[i]);
- Sử dụng biến mảng một cách hiệu quả trong xử lý dữ liệu. VD For i:=1 to 50 do
if Diem[i]>8.0 then Writeln (‘Gioi’); hay khai báo nhiều biến: Var Toan, Van, li: array [1..50] of real; gán giá trị cho các phần tử của biến mảng: A[1]:=5; A[2]:=9;...
3. Tìm giá trị lớn nhất và giá trị nhỏ nhất của dãy số:
program MaxMin;
uses crt;
Var
 i, n, Max, Min: integer;
 A: array[1..100] of integer;
Begin
 clrscr;
write('Hay nhap do dai cua day so, = '); readln(n);
 writeln('Nhap cac phan tu cua day so:');
 For i:=1 to n do
 Begin
 write('a[',i,']='); readln(a[i]);
 End;
 Max:=a[1]; Min:=a[1];
 for i:=2 to n do 
 begin if Max<a[i] then Max:=a[i];
 if Min>a[i] then Min:=a[i] 
 end;
 write('So lon nhat la Max = ',Max);
 write('; So nho nhat la Min = ',Min);
 readln;
End.
4. Củng cố, dặn dò:
9’
TG
Hoạt động của GV
Hoạt động của HS
Nội dung
* Củng cố:
- Lợi ích của việc sử dụng biến mảng
* Dặn dò:
- Chuẩn bị bài tập từ 4, 5 sgk trang 79 và bài thực hành 7.
- Hs trả lời và nhận xét câu hỏi của GV.
- Hs trả lời một số câu hỏi của GV đặt ra.