Tin 8

Ngày soạn 2/03/2015
Ngày dạy:22/3/2015

A. MỤC ĐÍCH, YÊU CẦU:
Kiến thức
- Biết được khái niệm mảng một chiều.
- Biết cách khai báo mảng, nhập, in, truy cập các phần tử của mảng.
Kỹ năng
- Hiểu thuật toán tìm số lớn nhất, số nhỏ nhất của một dãy số.
Thái độ
- Nghiêm túc trong học tập, có tinh thần học hỏi, sáng tạo .
B. PHƯƠNG PHÁP:
Nhóm, trả lời cá nhân
C. CHUẨN BỊ:
- Giáo viên: Sách giáo khoa, giáo án, bài tập.
- Học sinh: Sách giáo khoa, vở, viết, thước kẻ. Xem bài mới trước khi lên lớp.
D. TIẾN TRÌNH LÊN LỚP:
I. Ổn định:
II. Kiểm tra bài cũ:
* Câu hỏi:
CH1: Nêu cấu trúc khai báo biến mảng. Cho ví dụ?
* Trả lời:
CH1: * Khai báo biến mảng: (4đ)
Var : array [.. ] of
Trong đó: Chỉ số đầu và chỉ số cuối là hai số nguyên thỏa mãn Chỉ số đầu
chỉ số cuối.
VD (6đ): Var diem: array [1.. 50] of real;
III. BÀI MỚI:
Hoạt động 1: Tìm gía trị lớn nhất và nhỏ nhất của một dãy số:

Hoạt động của giáo viên và học sinh
Nội dung



*GV: Cho HS đọc VD 3 (SGK trang 78)
* HS: đọc đề, xác định INPUT, OUTPUT
- INPUT: số nguyên n
+ Dãy gồm n số nguyên
- OUTPUT
+ Số lớn nhất và số nhỏ nhất trong dãy số gồm n số nguyên
*GV: Hướng dẫn HS tìm hiểu lại thuật toán đã học trong bài 5(VD6/SGK/T430)
* HS: Viết lại thuật toán tìm số lớn nhất trong dãy số
*GV:Chốt lại thuật toán




*GV: Định hướng để HS mô tả thuật toán trên bằng NNLT PASCAL
*GV: Trong thuật toán trên cấu trúc lặp được lặp lại ở bước nào?
* HS: b2→ b4
*GV: Lệnh Max ← a[i] được thực hiện khi điều kiện nào thỏa mãn?
* HS: khi i *GV: Giá trị i sau mỗi lần lặp tăng lên mấy đơn vị?
* HS: 1 đơn vị
*GV: Vậy ta có thể sử dụng câu lệnh lặp nào?
* HS: for..do hoặc while..do
*GV: Yêu cầu hs hoàn thành ct theo nhóm
* HS: Viết chương trình theo nhóm
*GV: Thu bài nhóm, sửa, chốt lại bằng chương trình trên máy
* HS: Quan sát
















*GV:Yêu cầu hs chỉnh sửa chương trình để tìm giá trị nhỏ nhất của một dãy số
* HS: 1 học sinh trình bày trên máy, cả lớp hoàn thành vào vở
*GV: Sửa chương trình, chạy ct trên máy
* HS: Theo dõi
3. Tìm giá trị lớn nhất và nhỏ nhất của dãy số:
* VD3: (SGK trang 78)
Viết chương trình nhập n số nguyên từ bàn phím in ra màn hình số lớn nhất và số nhỏ nhất. n cũng được nhập từ bàn phím




* Thuật toán:
B1: Nhập n và dãy A1...An;
Max
; i←1
B2: i ← i+1
B3: Nều i > n thì qua B5
B4: Nếu Max < a[i] thì Max ← a[i], quay lại b2
B5: Thông báo Max và kết thúc thuật toán

















* Chương trình tìm số lớn nhất trong một dãy số:
Program max;
Var i, n, max: integer;
a : array[1..50] of integer;
Begin
Write(‘nhap do dai 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];
For i := 2 to n do
If max < a[i] then max := a[i];
Write (‘so lon nhat la’, max);
Readln;
End.
* Chương trình tìm số nhỏ nhất trong một dãy số:


Thay