– 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 } . 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ọ. 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