tiet 56: lam viec voi day so (cuc hay)

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?. 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

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:

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

40

…

…

… 4

3 2

1

…

…

…

… 7

8 7

9

…

…

…

… 9

6 8

7

…

…

…

… 6

7 6

8

DiemToan

DiemVan

Diemtoan

chỉ số

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:

- Lần l ợt cho i chạy từ 2 đến N, so sánh

* Đoạn ch ơng trình

Max:=A[1];

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

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]<Min Then Min := A[i];

Writeln(‘ So nho nhat la Min = ', Min) ; Readln ;

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

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

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

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