Giáo án Tin học 8 - Bài 9: Làm việc với dãy số

Tiết: 56
Ngày dạy: 02/04/2010
LÀM VIỆC VỚI DÃY SỐ (tt)
I. Mục tiêu
1. Kiến thức
Học sinh biết được khái niệm mảng một chiều;
Hiểu thuật toán tìm số lớn nhất, nhỏ nhất của một dãy số.
2. Kỹ năng
Biết cách khai báo mảng, nhập, in, truy cập các phần tử của mảng;
3. Thái độ
Thái độ học tập nghiêm túc, tích cực làm các bài tập thực hành.
II. Chuẩn bị
Thầy giáo
Phòng máy
Phần mềm
Học sinh
Xem trước bài học ở nhà
III. Phương pháp dạy học
Hướng dẫn lý thuyết
Thực hành trực tuyến
IV. Tiến trình dạy học
Ổn định
Kiểm diện học sinh 
Kiểm tra bài cũ
Không 
Bài mới
Hoạt động của thầy & trò
Nội dung ghi của trò
* Nội dung 1: Tìm giá trị lớn nhất và nhỏ nhất của dãy số
GV hướng dẫn HS tìm hiểu lại thuật toán tìm giá trị lớn nhất, nhỏ nhất của dãy số nguyên ( đã học ở Bài 5 ).
GV giải thích về thuật toán tìm giá trị lớn nhất của dãy số nguyên  Sau đó cho HS nhắc lại.
Cho HS thảo luận, chỉnh sửa thuật toán trên để tìm ra số nhỏ nhất.
GV cho HS đọc ví dụ 3:
Để nhập các số nguyên sẽ được nhập vào, trước hết ta phải làm gì ?
Sau khi khai báo N, biến lưu các số được nhập vào như là các phần tử của một biến mảng A. Ngoài ra, cần khai báo thêm các biến nào nữa ?
GV: Trình bày phần khai báo chương trình 
HS đọc ví dụ 3.
HS: trước hết ta khai báo biến N.
Cần khai báo thêm biến i làm biến đếm cho các lệnh lặp, biến Max và Min để lưu số lớn nhất, nhỏ nhất.
HS theo dõi
GV cho HS đọc phần ghi nhớ.
LÀM VIỆC VỚI DÃY SỐ (tt)
3. Tìm giá trị lớn nhất và nhỏ nhất của dãy số: 
Tìm giá trị lớn nhất (Max) của dãy số nguyên nhập từ bàn phím
Thuật toán 
Bước 1: Nhập N và dãy A1,  , An;
Bước 2: Max ¬ A1;
Bước 3: Với i từ 2 đến N thực hiện: Nếu Max < A1 thì Max ¬ Ai;
Bước 4: Đưa ra màn hình giá trị Max rồi kết thúc
Ví dụ 3: (SGK)/ Tr 78.
chương trình 
Program MaxMin;
Uses crt;
Var i, n, Max, Min : integer;
 A : array [1..100] of integer;
{Phần thân chương trình sẽ tương tự dưới đây:}
Begin 
 Clrscr;
 Write (‘Hay nhap do dai cua day so, N = ‘); readln (n);
 Writeln (‘Nhap cac phan tu cua day so: m’);
 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 (n);
End. 
GHI NHỚ: (SGK)/ Tr 79.
Củng cố và luyện tập
Dữ liệu kiểu mảng là gì?
Cách khai báo mảng trong Pascal.
Hướng dẫn học ở nhà
Làm bài tập 3 trang 79 sách giáo khoa.
V. Rút kinh nghiệm