2. Kiểm tra bài cũ:
? Hóy nờu cỏc lợi ớch của việc sử dụng biến mảng trong chương trỡnh.
3. Bài mới:
HOẠT ĐỘNG CỦA GV&HS NỘI DUNG
Hoạt động 1: 20’ GV: Đưa vớ dụ 2 HS: Đọc hiểu vớ dụ GV: Hướng dẫn học sinh cỏch sử dụng biến mảng HS: Chỳ ý
GV: Cỏch khai bỏo biến cú ớch lợi gỡ?
HS: Tiết kiệm thời gian và cụng sức viết chương trỡnh. Hoạt động 2: 17’ GV: Đưa vớ dụ 3 HS: Đọc hiểu vớ dụ GV: Hướng dẫn học sinh cỏch sử dụng biến mảng HS: Chỳ ý
- Ghi vở và thực hiện chương trỡnh.
Vớ dụ 2. Tiếp tục với vớ dụ 1, thay vỡ khai bỏo cỏc biến
Diem_1, Diem_2, Diem_3,... để lưu điểm số của cỏc học sinh, ta khai bỏo biến mảng Diem như sau:
var Diem: array[1..50] of real;
Cỏch khai bỏo và sử dụng biến mảng như trờn cú lợi gỡ? Trước hết, cú thể thay rất nhiều cõu lệnh nhập và in dữ liệu ra màn hỡnh bằng một cõu lệnh lặp. Chẳng hạn, ta cú thể viết
For i:=1 to 50 do readln(Diem[i]);
để nhập điểm của cỏc học sinh.
Để so sỏnh điểm của mỗi học sinh với một giỏ trị nào đú, ta cũng chỉ cần một cõu lệnh lặp, chẳng hạn
For i:=1 to 50 do
if Diem[i]>8.0 then writeln('Gioi');
Điều này giỳp tiết kiệm rất nhiều thời gian và cụng sức viết chương trỡnh.
Hơn nữa, mỗi học sinh cú thể cú nhiều điểm theo từng mụn học: điểm Toỏn, điểm Văn, điểm Lớ,... Để xử lớ đồng thời cỏc loại điểm này, ta cú thể khai bỏo nhiều biến mảng:
var DiemToan: array[1..50] of real;
var DiemVan: array[1..50] of real;
var DiemLi: array[1..50] of real;
hay
var DiemToan, DiemVan, DiemLi:
array[1..50] of real;
Khi đú, ta cũng cú thể xử lớ điểm thi của một học sinh cụ thể
A[1]:=5; A[2]:=8;
hoặc nhập dữ liệu từ bàn phớm bằng cõu lệnh lặp:
for i := 1 to 5 do readln(a[i]);
3. Tỡm giỏ trị lớn nhất và nhỏ nhất của dóy sốVớ dụ 3. (SGK) Phần khai bỏo của chương trỡnh cú thể như Vớ dụ 3. (SGK) Phần khai bỏo của chương trỡnh cú thể như
sau: (adsbygoogle = window.adsbygoogle || []).push({});
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:
clrscr;
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; 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.
D - CỦNG CỐ (3’)
- Khỏi niệm mảng một chiều
- Cỏch khai bỏo mảng, nhập, in, truy cập cỏc phần tử của mảng
E - HƯỚNG DẪN VỀ NHÀ (1’)
- Về nhà xem lại bài học tiết sau chỳng thực hành
Tuần 30 Ngày soạn: 24/03/2013
Tiết 58 Ngày giảng: 25/03/2013
BÀI TẬPI. Mục tiờu: I. Mục tiờu:
1. Kiến thức: