... ... ...
Ngày soạn: 01/4/2013
Ngày giảng: ... Tiết 59
LÀM VIỆC VỚI DÃY SỐ I. MỤC TIấU: I. MỤC TIấU:
- Biết sõu hơn về cỏch khai bỏo mảng, nhập, in, truy cập cỏc phần tử của mảng. - Hiểu và ứng dụng được thuật toỏn tỡm số lớn nhất, số nhỏ nhất của một dóy số. - Hứng thỳ với học lập trỡnh, yờu thớch ngụn ngữ lập trỡnh Pascal.
II. CHUẨN BỊ:
- GV: Soạn bài, đọc tài liệu tham khảo,.
- HS: Xem lại bài học trước, xem bài trước ở nhà, dụng cụ học tập.
III. PHƯƠNG PHÁP
- Giải quyết vấn đề, vấn đỏp, hoạt động nhúm
IV. TIẾN TRèNH:
1. Ổn định lớp: 1 phỳt2. Kiểm tra bài cũ: 5 phỳt 2. Kiểm tra bài cũ: 5 phỳt
3. Bài mới:
hoạt động của thầy và trũ kiến thức cần đạt
Hoạt động 1 : 22 phỳt
- GV: Yờu cầu HS đọc vớ dụ 3 (SGK Tr 78). - HS: Đọc vớ dụ SGK.
- GV: Giới thiệu thuật toỏn tỡm MAX (số lớn nhất của dóy số nguyờn nhập từ bàn phớm).
- HS: Chỳ ý quan sỏt và ghi chộp.
- Sau khi giới thiệu xong thuật toỏn tỡm Max giỏo viờn hướng dẫn HS xỏc định cỏc biến, kiểu biến và viết khai bỏo biến; viết cõu lệnh thực hiện cỏc bước nhập N, nhập cỏc phần tử của mảng, tỡm Max, in Max ra màn hỡnh.
- HS: Theo hướng dẫn thực hiện cỏc yờu cầu của GV.
- GV: Từ cỏc hướng dẫn trờn giỳp HS cú thể hiểu được cỏc đoạn cương trỡnh. GV đưa ra chương trỡnh đầy đủ.
- HS: Hỡnh thành được cỏc đoạn chương trỡnh và quan sỏt, ghi chộp lại chương trỡnh đầy đủ GV đưa ra.
Hoạt động 2 : 15 phỳt
- GV: Yờu cầu HS nhập lại chương trỡnh vừa học, dịch, chạy chương trỡnh và nhận xột kết quả.
- HS: Khởi động mỏy tớnh và thực hành.
3. Tỡm giỏ trị lớn nhất và nhỏ nhất của dóy số
Thuật toỏn tỡm Max của dóy số nguyờn nhập từ bàn phớm như sau:
Bước 1. Nhập N và dóy A1,..., An
Bước 2. Max ← A1
Bước 3. Lần lượt gỏn giỏ trị từ 2 đến N cho i. Với mỗi
giỏ trị của i thỡ thực hiện: Nếu Max <Ai thỡ Max←Ai
Bước 4. Đưa ra màn hỡnh giỏ trị Max rồi kết thỳc.
program P_Max; Var i, N, Max : integer; A: array[1..100] of integer; Begin {Nhap N}
write('Hay nhap do dai cua day so, N = '); readln(N); {Nhap day so}
writeln('Nhap cac phan tu cua day so:'); For i:=1 to N do Begin write('a[',i,']='); readln(a[i]); End; {Tim Max} Max:=a[1];
for i:=2 to n doif Max<a[i] then Max:=a[i]; {Hien thi Max ra man hinh} write('So lon nhat la Max = ',Max);
readln;
End.
Thực hành
4. CỦNG CỐ: 1 phỳt
- GV củng cố lại kiến thức vừa học.
5. HƯỚNG DẪN VỀ NHÀ : 1 phỳt
- Tự làm lại cỏc bài tập chuẩn bị tốt cho tiết Bài tập.
... ... ...
Ngày soạn: 01/4/2013
Ngày giảng: ... Tiết 60
BÀI THỰC HÀNH 7
XỬ Lí DÃY SỐ TRONG CHƯƠNG TRèNH (T1)