Việc sắp thứ tự thực hiện bằng cách gán cho mỗi phần tử một chỉ số.. (số nguyên).[r]
(1)Company
LOGO
LÀM VIỆC VỚI DÃY SỐ
(2)Làm việc với dãy số
Ví dụ biến mảng 2
Dãy số biến mảng 31
(3)Làm việc với dãy số Ví dụ 1:
Viết chương trình nhập điểm kiểm tra 50 học sinh lớp
- Nhập lưu điểm cho học sinh
Write (‘Nhap diem= ‘); Readln(diem_1);
Khai báo biến sau: Var diem_1: real;
- Nhập lưu điểm cho học sinh
Khai báo biến sau: Var diem_1, diem_2: real;
Write (‘Diem hs 1= ‘); Readln(diem_1); Write (‘Diem hs 2= ‘); Readln(diem_2); Dãy số biến mảng
(4)Ví dụ 2:
Viết chương trình nhập điểm kiểm tra học sinh lớp
- Nhập lưu điểm cho học sinh
- Nhập lưu điểm cho học sinh
Nhập lưu điểm cho
50 học sinh sao?
?
Khai báo n biến sau:
Var diem_1, diem_2, diem_3, diem_4, , diem_50: real;
Write (‘Diem hs 1= ‘); Readln(diem_1); Write (‘Diem hs 2= ‘); Readln(diem_2); Write (‘Diem hs 3= ‘); Readln(diem_3); Write (‘Diem hs 4= ‘); Readln(diem_4); ……
……
Write (‘Diem hs n= ‘); Readln(diem_50); Những hạn chế:
Phải khai báo nhiều biến Chương trình phải viết dài
Làm việc với dãy số Dãy số biến mảng
(5)Làm việc với dãy số
Em hiểu liệu kiểu mảng ?
? Dữ liệu kiểu mảng: Là tập hợp hữu hạn phần tử có thứ tự, phần tử có kiểu liệu (số nguyên số thực) Việc thứ tự thực cách gán cho phần tử số (số nguyên)
Vậy em hiểu biến mảng gì?
? Biến mảng: khai báo biến có kiểu liệu kiểu mảng, biến gọi biến mảng
Giá trị biến mảng mảng, tức dãy số (số nguyên, số thực)
Vậy:
Khắc phục hạn chế:
Lưu liệu liên quan biến Đặt chung tên đặt cho phần tử số Dãy số biến mảng
(6)Làm việc với dãy số
A0 A1 A2 A3 A4 A5 A6 A7 A8 A9 A10
Ba Bb Bc Bd
Tương tự, mảng B giống dãy nhà B tầng có phịng đánh số thứ tự chữ a, b, c, d :
Dãy số biến mảng 31
Mảng thứ tên A, gồm 11 phần tử kiểu Real, ứng với số 0, 1, 2, , 10, là:
Mảng thứ hai tên HTen gồm phần tử kiểu liệu String[18] ứng với số từ đến 5:
Mảng thứ ba tên B, gồm phần tử kiểu Integer ứng với số ‘a’, ‘b’, ‘c’, ‘d’:
A[0], A[1], A[2], , A[10]
Hten[1], Hten[2], Hten[3], Hten[4], Hten[5] B[‘a’], B[‘b’], B[‘c’], B[‘d’]
Ví dụ 3:
(7)Làm việc với dãy số Ví dụ biến mảng
2
17 20 24 10 16 22 18
A
1
? Khi khai báo biến mảng cần rõ điều gì?
Khai báo mảng cần rõ: + Tên biến mảng + Số lượng phần tử
+ Kiểu liệu chung phần tử
Trong đó:
+ Khi tham chiếu đến phần tử thứ i Ta viết A[i] + Tên mảng :
+ Số phần tử mảng:
+ Kiểu liệu phần tử: A
7
Kiểu nguyên
A[6] = 22
(8)Làm việc với dãy số Ví dụ biến mảng
2
Var <tên biến mảng>: array[<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu>;
Var <tên biến mảng>: array[<chỉ số đầu> <chỉ số cuối>]
of <kiểu liệu>; Cấu trúc, cú pháp khai
báo mảng:
Trong đó:
Array, of từ khóa chương trình.
Tên biến mảng người dùng đặt.
(9)Làm việc với dãy số Ví dụ biến mảng
2
Chiều cao tuổi thuộc kiểu liệu nào?
Var Chieucao: array[1 50]of real;
Var Tuoi: array[1 50]of integer;
Var diem: array[1 50] of real; ……
For i:=1 to 50 Begin
write(‘diem hs’,i,’:’); readln(diem[i]); End;
Chương trình nhập điểm kiểm tra học sinh lớp
(10)Làm việc với dãy số Ví dụ biến mảng
2
Program vidu;
Var diemtin: array [1 10] of real;
i:integer; Begin
Diemtin[1]:=5; Diemtin[10]:=5; for i:=2 to do begin
write('diemtin ='); readln(diemtin[i]); end;
For i:=1 to 10 do writeln(diemtin[i]:6:2); Readln
End Ví dụ 4:
Em khai báo mảng diemtin gồm 10 phần tử. Nhập dữ liệu cho diemtin biết phần tử đầu tiên cuối cùng luôn mang giá trị 5 Các phần tử cịn lại có giá trị nhập từ bàn phím.
Sử dụng lệnh gán để gán giá trị cho phần tử đầu cuối.
Sử dụng lệnh lặp for to để nhập liệu cho phần tử
lại (2=>9).
(11)(12)Làm việc với dãy số
Tìm giá trị lớn và nhỏ dãy số
3
Em nêu thuật tốn để tìm số nhỏ số lớn dãy số?
Dãy số 5 3 4 7 6 3 15 9
i 2 3 4 5 6 7 8 9
i>n S S S S S S S Đ
Ai>Max S S Đ S S Đ S Kết
thúc
Max 5 5 5 7 7 7 15 15
(13)Làm việc với dãy số
Var i,n,max,min:Integer;
A : Array [1 100] of Integer; BEGIN
Write(‘ Hay nhap dai cua day so, N= ‘);Readln(n); Writeln(‘Hay 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 Begin
If max < a[i] then Max:=a[i]; If Min >a[i] then Min:=a[i]; End;
Writeln (‘So lon nhat la Max =‘,max); Writeln(‘So nho nhat la Min =‘,min); Readln;
END.
Phần khai báo
(14)Var X: Array[3.4 4.8] of Integer; Var X: Array[10 1] of Integer; Var X: Array[4 10] of Real; Var X: Array[10 , 13] of Real;
A A A A B B B B C C C C D D D D
BT1: Em chọn khai báo biến mảng trong khai báo sau:
30 29282610111213141516171819202122232425279876543210
(15)HƯỚNG DẪN VỀ NHÀ
1 Xem lại cách khai báo mảng, sử dụng khai báo những trường hợp