Bài 9. Làm việc với dãy số

Nhiệt liệt chào mừng các thầy cô giáo
về dự giờ THĂM LớP
2. Ví dụ về biến mảng:

Tiết 56: LÀM VIỆC VỚI DÃY SỐ
b.Truy cập mảng:
- Bằng cách gọi tên biến mảng[chỉ số phần tử]
A
1
2
3
4
5
6
A[1] là phần tử thứ 1
A[4] là phần tử thứ 4
A[6] là phần tử thứ 6
c.. Nhập d? liệu kiểu mảng:
+ Nh?p d? li?u t? b�n phớm:
Ví dụ 2: viết chương trinh nhập điểm cho 40 ban học sinh.
Var Diem1, Diem2, Diem3, ., Diem40: Real;
.................................
Readln(Diem1); Readln(Diem2); . ; Readln(Diem40);
Var Diem: array[1..40] of Real;
….........
For i:= 1 to 40 do Readln(Diem[i]) ;
Ví dụ 2: viết chương trinh nhập điểm cho 40 ban học sinh.
+ Gỏn giỏ tr? cho ph?n t? m?ng:
Var Diem: array[1..40] of Real;
….........
Diem[1]:=8;
Diem [2]:=9;
Diem[3]:=8;
For i:= 4 to 40 do Readln(Diem[i]) ;
IF Diem1 >= 8 then writeln(‘ gioi ’) ;
IF Diem2 >= 8 then writeln(‘ gioi ’) ;
……………………………………….
IF Diem40 >= 8 then writeln(‘ gioi ’) ;
For i: =1 to 40 do If Diem[i] >=8 then Writeln(‘ gioi ‘) ;
d. xử lí và so sánh các phần tử trong mảng:
Ví dụ 3: t? vớ d? 2 vi?t cõu l?nh dua ra nh?ng b?n h?c "gi?i" n?u di?m ki?m tra t? 8 tr? lờn b?ng khai bỏo bi?n thụng thu?ng.
Ta có thể nhập vào các giá trị, tính toán giá trị , so sánh và gán giá trị cho biến mảng t­¬ng tù biến thông thường.
- S? d?ng bi?n m?ng v� cõu l?nh l?p giỳp cho vi?c vi?t chuong trỡnh du?c ng?n g?n v� d? d�ng hon.
3. Tìm giá trị lớn nhất và nhỏ nhất của dãy số
Bài toán: Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lớn nhất.
Input:: Dãy số A gồm N số nguyên
Output: Max, Min của dãy số
Hãy nêu ý tưởng tìm số lớn nhất và nhỏ nhất của dãy số
* ý tưởng tìm max:
- Đặt giá trị Max = a[1].
- Lần lượt cho i chạy từ 2 đến N, so sánh giá trị a[i] với giá trị Max, nếu a[i] > Max thì Max nhận giá trị mới là a[i].
*ý t­ëng t×m min:
- §Æt gi¸ trÞ Min = a[1].
- LÇn l­ît cho i ch¹y tõ 2 ®Õn N, so s¸nh gi¸ trÞ a[i] víi gi¸ trÞ Min, nÕu a[i] < Min th× Min nhËn gi¸ trÞ míi lµ a[i].
Program vd1;
Uses crt;
Var
i, n, Max, Min: integer ;
A: Array[1..100] of Integer ;

BEGIN
Clrscr;
write(` Nhap so phan tu cua day so: n= `) ; readln(n) ;
For i := 1 to n do
Begin
write(` Nhap so thu `,i,` : `) ;
readln(A[i]) ;
End;
Max:=A[1];
For i := 2 to n do
If A[i]>Max Then Max := A[i];
Writeln(` So lon nhat la max = `, Max) ;
Min:=A[1];
For i := 2 to n do
If A[i] Writeln(` So nho nhat la Min = `, Min) ;
Readln ;
END.
Khai b¸o biÕn m¶ng
Nhập vào biến mảng
Tìm số lớn nhất và số nhỏ nhất










h
Nhap so phan tu cua day so: n=
7
Nhap so thu 1 :
7
Nhap so thu 2 :
9
Nhap so thu 3 :
4
Nhap so thu 4 :
6
Nhap so thu 5 :
9
Nhap so thu 6 :
8
Nhap so thu 7 :
5
So lon nhat la Max = 9
So nho nhat la Min = 4
Chương trình chạy và cho kết quả như sau:
Tin học 8
Ghi nhớ!
Dữ liệu kiểu mảng là một tập hợp hữu hạn các phần tử được xắp xếp theo dãy và mọi phần tử đều có cùng một kiểu dữ liệu.
Việc gán giá trị, đọc giá trị và tính toán với các giá trị của một phần tử trong biến mảng được thực hiện thông qua chỉ số tương ứng của phần tử đó.
Sử dụng các biến kiểu mảng và câu lệnh lặp giúp cho việc viết chương trình được ngắn gọn và dễ dàng hơn.