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ố.[r]
(1)(2)Kiểm tra cũ
(3)Bài LÀM VIỆC VỚI DÃY SỐ (tt)
2 Ví dụ biến mảng:
Ví dụ 2: Tiếp tục với ví dụ 1 Giả sử cần nhập điểm kiểm tra môn tin học của lớp gồm 40 học sinh.
Var Diem1, Diem2, Diem3, , Diem40: Real;
…
Readln(Diem1); Readln(Diem2); ; Readln(Diem40);
Khi sử dụng biến mảng nhập
liệu cho biến thế nào?
Var Diem: array[1 40] of Real; ….
(4)Bài LÀM VIỆC VỚI DÃY SỐ (tt)
2 Ví dụ biến mảng:
Em viết câu lệnh: Nếu điểm kiểm tra từ trở lên in hình “giỏi” cách khai báo
biến thông thường ?
IF Diem1 >= then writeln(‘ gioi ’) ; IF Diem2 >= then writeln(‘ gioi ’) ; …
IF Diem40 >= then writeln(‘ gioi ’) ;
Khi sử dụng biến mảng các câu lệnh sử
dụng nào?
For i: =1 to 40 If Diem[i] >=9 then Writeln(‘ gioi ‘) ;
(5)Bài LÀM VIỆC VỚI DÃY SỐ (tt)
2 Ví dụ biến mảng:
Ví dụ 3: Viết chương trình: Nhập điểm kiểm tra mơn Tốn, Lý, Văn sau tính điểm trung
bình mơn
40 … … … 4 3 2 1 … … … … 7 8 7 9 … … … … 9 6 8 7 … … … … 6 7 6 8 DiemToan DiemVan Diem ly chỉ số
Var DiemToan, DiemVan, DiemLi, DiemTB: array[1 40] of real;
…
For i:= to 40
DiemTB[i]:=(DiemToan[i]+DiemVan[i]+DiemLy[i])/3;
Khi sử dụng biến mảng ta đọc giá trị, tính tốn giá trị gán giá trị cho biến mảng
(6)Tìm giá trị lớn nhỏ dãy số
Bài LÀM VIỆC VỚI DÃY SỐ (tt)
Bài tốn: Viết chương trình nhập N số ngun từ bàn phím in màn hình số nhỏ số lớn nhất.
(7)Tìm giá trị lớn nhỏ dãy số
Bài LÀM VIỆC VỚI DÃY SỐ (tt)
Bài tốn: Viết chương trình nhập N số nguyên từ bàn phím in ra hình số nhỏ số lớn nhất.
Hãy nêu thuật tốn tìm số lớn nhỏ dãy số * ý t ëng tìm max:
- Đặt giá trị Max = a1.
- Lần l ợt cho i chạy từ đến N, so sánh giá trị ai với giá trị Max, ai > Max thì Max nhn giỏ tr mi l ai.
* Đoạn ch ¬ng tr×nh
Max:=A[1];
(8)Bài LÀM VIỆC VỚI DÃY SỐ (tt)
Tìm giá trị lớn nhỏ dãy số
Sè nµy lín nhÊt
4 8 9 6
7
Sè nµy míi lín
nhÊt
T×m sè lín nhÊt
(9)Tìm giá trị lớn nhỏ dãy số
Bài LÀM VIỆC VỚI DÃY SỐ (tt)
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 := to n Begin
write(‘ Nhap so thu ‘,i,’ : ‘) ; readln(A[i]) ;
End;
Max:=A[1];
For i := to n
If A[i]>Max Then Max := A[i];
Writeln(‘ So lon nhat la max = ', Max) ; Min:=A[1];
For i := to n
If A[i]<Min Then Min := 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
(10)Bài LÀM VIỆC VỚI DÃY SỐ (tt)
Tìm giá trị lớn nhỏ dãy số
Chươngưtrìnhưchạyưvàưchoưkếtưquảưnhưưsau: Nhap so phan tu cua day so: n=
Nhap so thu : Nhap so thu : Nhap so thu : Nhap so thu : Nhap so thu : Nhap so thu : Nhap so thu :
So nho nhat la Min = 4
7 7
9 4 6 9 8 5
(11)Bài LÀM VIỆC VỚI DÃY SỐ (tt) TỔNG KẾT
Sử dụng biến mảng hiệu việc xử lý liệu
(12)Bài LÀM VIỆC VỚI DÃY SỐ (tt)
Ghi nhớ!
Dữ liệu kiểu mảng tập hợp hữu
hn cỏc phn t c xắp xếp theo dãy và phần tử có kiểu dữ liệu.
Việc gán giá trị, đọc giá trị tính
toán với giá trị phần tử trong biến mảng đ ợc thực thông qua số t ơng ứng phần tử đó.
Sử dụng biến kiểu mảng câu
(13)Bài LÀM VIỆC VỚI DÃY SỐ (tt)
DẶN DÒ
- Cú pháp sử dụng biến mảng.
- Sử dụng câu lệnh lặp.