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
tại lớp 8A trường Thcs CHI LĂNG
?
Em hãy viết cấu trúc câu lệnh khai báo biến mảng và cho biết lợi ích của việc sử dụng biến mảng?
Kiểm tra bài cũ
2. Ví dụ về biến mảng:
Tiết 56: LÀM VIỆC VỚI DÃY SỐ
Ví dụ 2: Tiếp tục với ví dụ 1
giả sử chúng ta cần nhập điểm kiểm tra môn tin học của 1 lớp gồm 40 học sinh!
Var Diem1, Diem2, Diem3, …, Diem40: Real;
…
Readln(Diem1); Readln(Diem2); … ; Readln(Diem40);
Var Diem: array[1..40] of Real;
…
Khi sử dụng biến mảng thì nhập dữ liệu cho biến như thế nào?
For i:= 1 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 ‘) ;
Sử dụng biến mảng rất hiệu quả trong việc sử lý dữ liệu
Em hãy viết câu lệnh: Nếu điểm kiểm tra từ 8 trở lên thì in ra màn hình là “giỏi” bằng cách khai báo biến thông thường ?
Khi sử dụng biến mảng thì các câu lệnh này được sử dụng như thế nào?
Ví dụ 3: Viết chương trình nhập điểm kiểm tra của 3 môn toán, lý, văn sau đó tính điểm trung bình của 3 môn
Var DiemToan, DiemVan, DiemLi, DiemTB: array[1..40] of real;
…
For i:= 1 to 40 do
DiemTB[i]:=(DiemToan[i]+DiemVan[i]+DiemLi[i])/3;
Ta có thể đọc giá trị, tính toán giá trị và gán giá trị cho biến mảng giống như biến thông thường.
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ố
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 = a1.
- Lần lượt cho i chạy từ 2 đến N, so sánh
giá trị ai với giá trị Max, nếu ai > Max thì
Max nhận giá trị mới là ai.
* Đoạn chương trình
Max:=A[1];
For i:=2 to N do IF (A[i] > Max) Then Max:=A[i];
Số này lớn nhất
Số này mới lớn nhất. Ha ha!
ồ! Số này lớn hơn
Tìm ra số lớn nhất rồi. Hi hi!
thuật toán tìm max
4
6
7
8
9
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










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:
Sử dụng biến mảng rất hiệu quả trong việc sử lý dữ liệu
Ta có thể đọc giá trị, tính toán giá trị và gán giá trị cho biến mảng giống như biến thông thường.
Thuật toán tìm Max, Min
TỔNG KẾT
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.
DẶN DÒ
- Xem trước bài thực hành 7sgk 80,81
- Viết chương trình cho ví dụ 1
Kính chào các thầy cô
Chúc các em học giỏi