Dữ liệu kiểu vô hướng liệt kế và kiểu đoạn con

– Giạo trçnh Láûp trçnh Pascal càn bn —

–
34
—

Trang 3 4
BI 5. DỈỴ LIÃÛU KIÃØU VÄ HỈÅÏNG LIÃÛT KÃ V
KIÃØU ÂOẢN CON
I. Kiãøu liãût kã:
Kiãøu liãût kã âỉåüc âënh nghéa bàòng cạch liãût kã táút c cạc giạ trë ca kiãøu thäng
qua cạc tãn do ngỉåìi láûp trçnh âàût ra v danh sạch cạc giạ trë trãn âỉåüc âàût trong càûp
ngồûc âån
( )
.
4 Vê dủ:
Type Days = (Sun, Mon, Tue, Wed, Thu, Fri, Sat);
Viec = (DiHoc, LamBai, ThiNghiem, Nghi);
Khi âọ, ta cọ thãø khai bạo biãún nhỉ sau:
Var HomQua, HomNay : Days;
Lam : Viec;
Hồûc ta cọ thãø khai bạo trỉûc tiãúp våïi mä t kiãøu dỉỵ liãûu nhỉ sau:
Var GioiTinh : (Nam, Nu);
Color : (Red, Blue, Green, White, Black);
Ư
Chụ :
(1). Cọ thãø thỉûc hiãûn phẹp gạn trãn cạc trë kiãøu liãût kã, vê dủ:
Lam := Nghi;
Color := Blue;
(2). Cạc giạ trë ca cạc kiãøu liãût kã cọ thãø so sạnh våïi nhau theo quy âënh: Giạ trë
âỉïng trỉåïc nh hån giạ trë âỉïng sau. Ta chè sỉí dủng toạn tỉí so sạnh cho kiãøu liãût kã

v cng l toạn tỉí duy nháút dng cho kiãøu ny.
4 Vê dủ: Theo nhỉ khai bạo trãn, nãúu so sạnh
Thu < Fri
cho kãút qu
True
,
hồûc
Red >= Blue
cho kãút qu
False
.
(3). Cạc hm chøn ạp cho kiãøu liãût kã:
- Hm
ORD
: Cho thỉï tỉû trë ca âäúi säú trong kiãøu liãût kã.
4
Vê dủ: theo nhỉ khai bạo trãn,
ORD(Sun) = 0, ORD(Mon) = 1.
- Hm
PRED
: Cho trë âỉïng trỉåïc ca âäúi säú trong kiãøu liãût kã.
Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn


35


Trang 3 5
4
Vờ duỷ: theo nhổ khai baùo trón,

PRED(Sat) = Fri, PRED(LamBai) = DiHoc.
PRED(Sun)

lọựi chổồng trỗnh.
- Haỡm
SUCC
: Cho trở õi sau õọỳi sọỳ trong kióứu lióỷt kó.
4
Vờ duỷ: theo nhổ khai baùo trón,
SUCC(Fri) = Sat. SUCC(Sat)

lọựi chổồng trỗnh.
(4). Khọng thóứ
nhỏỷp, xuỏỳt õọỳi vồùi dổợ lióỷu kióứu lióỷt kó
. Giaù trở thuọỹc kióứu lióỷt kó
thổồỡng õổồỹc duỡng õóứ laỡm chố sọỳ cho voỡng lỷp
FOR,
caùc trổồỡng hồỹp lổỷa choỹn trong
lóỷnh
CASE
, chố sọỳ cho caùc maớng
(Array).

4 Vờ duỷ: Chổồng trỗnh õọứi thổù trong tuỏửn ra sọỳ.
Chuớ nhỏỷt ổùng vồùi sọỳ 0, Thổù hai ổùng
vồùi sọỳ 1,...
Type
Thu = (ChuNhat, ThuHai, ThuBa, ThuTu, ThuNam, ThuSau, ThuBay);
Var
Ngay : Thu;

Begin
Writeln( Chuong trinh doi thu ra so );
For Ngay := ChuNhat to ThuBay do
Write(Ord(Ngay));
Readln;
End.
II. Kióứu õoaỷn con:
Kióứu õoaỷn con õổồỹc õởnh nghộa do ngổồỡi duỡng dổỷa trón cồ sồớ caùc kióứu vọ hổồùng
õóỳm õổồỹc
(Nguyón, Logic, Kyù tổỷ, Lióỷt kó)
theo daỷng:
Tón_kióứu_õoaỷn_con = Hũng_dổồùi.. Hũng_trón;
Trong õoù:
Hũng
_
dổồùi, Hũng
_
trón
laỡ caùc giaù trở hũng coù cuỡng kióứu giaù trở vaỡ thoaớ
maợn õióửu kióỷn:
Hũng
_
dổồùi

<

Hũng
_
trón
. Khi õoù, caùc giaù trở cuớa kióứu õoaỷn con seợ

xaùc õởnh trong khoaớn tổỡ
Hũng
_
dổồùi
õóỳn
Hũng
_
trón
.
4 Vờ duỷ:
Type
Ky_so = 0.. 9; { Kióứu gọửm caùc kyù tổỷ sọỳ tổỡ 0 õóỳn 9}
Ngay = (Hai, Ba, Tu, Nam, Sau, Bay, ChuNhat);
Ngay_Lam_Viec = Hai.. Bay; {Kióứu Ngay_Lam_Viec laỡ khoaớn con cuớa kióứu
Ngay }