Pháưn 1 1 KIÃØU DỈỴ LIÃÛU PROCEDURE KIÃØU DỈỴ LIÃÛU PROCEDURE I. KHẠI NIÃÛM - ÂËNH NGHÉA KIÃØU PROCEDURE 1. KHẠI NIÃÛM Ngän ngỉỵ Pascal â cung cáúp cho chụng ta cạc kiãøu dỉỵ liãûu tỉì âån gin âãún náng cao nhỉ táûp tin, con tr, . Báy giåì ta lải lm quen våïi mäüt kiãøu dỉỵ liãûu måïi gi l kiãøu Procedure. Kiãøu Procedure l kiãøu dỉỵ liãûu m mäüt âäúi tỉåüng (biãún chàóng hản) mang kiãøu ny nháûn giạ trë khäng phi l cạc giạ trë kiãøu cå bn m l mäüt “chỉång trçnh con”. Chụng ta cọ thãø xem mäüt chỉång trçnh con nhỉ l mäüt giạ trë ca mäüt biãún âãø räưi thỉûc hiãûn cạc phẹp gạn hay truưn vo mäüt chỉång tçnh con khạc thäng qua cạc tham säú kiãøu Procedure ny. Tháût cháút mäüt biãún kiãøu Procedure chênh l mäüt con tr chỉïa âải chë segment v offset ca mäüt chỉång trçnh con thay vç âëa chè ca mäüt vng nhåï chỉïa dỉỵ liãûu. 2. ÂËNH NGHÉA KIÃØU PROCEDURE Âãø âënh nghéa kiãøu Procedure chụng ta phi dng tỉì khọa PROCEDURE hay tỉì khọa FUNCTION v khai bạo cạc âäúi säú cng nhỉ kiãøu ca chụng m con tr tr âãún Procedure hay Function no âọ. Cụ phạp nhỉ sau TYPE <tãn_kiãøu> = PROCEDURE( <âäúi_säú>: <kiãøu> ); <tãn_kiãøu> = PROCEDURE( VAR <âäúi_säú>: <kiãøu> ); <tãn_kiãøu> = FUNCTION( <âäúi_säú>: <kiãøu> ): <kiãøu>; Vê dủ: TYPE AnyProc = PROCEDURE; DisplayProc = PROCEDURE(S: STRING); StrProc = PROCEDURE(x,y,Attr:Byte; VAR St: STRING); StrFunc = FUNCTION(A: Real; B,C: Byte): STRING; Pháưn 4, Âäư hoả trong Pascal 4-1 Pascal Náng cao (Advanced Pascal) Hong Hỉỵu Hảnh II.KHAI BẠO BIÃÚN PROCEDURE Khai bạo biãún kiãøu Procedure cng bçnh thỉåìng nhỉ cạc biãún thüc kiãøu khạc, bàõt âáưu bàòng tỉì khọa VAR, khai bạo tãn biãún v tãn kiãøu Procedure. Vê dủ: VAR Proc: AnyProc; DProc: DisplayProc; SProc: StrProc; SFunc: StrFunc; Mäüt biãún kiãøu Procedure l mäüt con tr 4 byte (32 bit) âãø lỉu âëa chè CTC. Khai khai bạo cạc biãún kiãøu Procedure thç kiãøu Procedure m biãún âọ mang nãn âỉåüc âënh nghéa trỉåïc, âiãưu ny lm cho chỉång trçnh sạng sa hån v tãn kiãøu cọ thãø âỉåüc sỉí dủng nhiãưu láưn m trạnh làûp lải khäng cáưn thiãút. Chụ thêch cho vê dủ trãn: • Proc l mäüt biãún con tr tr âãún cạc chỉång trçnh con dảng Procedure khäng cọ âäúi säú. • DProc l mäüt con tr tr âãún cạc Procedure cọ âäúi säú kiãøu chùi. • SProc l mäüt con tr tr âãún cạc Procedure cọ bäún âäúi säú våïi ba âäúi säú âáưu kiãøu Byte, âäúi säú thỉï tỉ kiãøu chùi. • DFunc l mäüt con tr tr âãún cạc Function cọ ba âäúi säú m hai âäúi säú âáưu cọ kiãøu Byte, âäúi säú thỉï ba kiãøu Real. Cạc Function ny s tr vãư mäüt giạ trë kiãøu chùi. Chụ : Cạc biãún tr tr vo Procedure s hoảt âäüng nhỉ mäüt cáu lãûnh trong chỉång trçnh, tỉïc l nhỉ mäüt låìi gi th tủc, trong vê dủ trãn l cạc biãún Proc, DProc, SProc. Tỉång tỉû váûy, cạc biãún tr âãún cạc Function s hoảt âäüng nhỉ mäüt hm, tỉïc l chụng xút hiãûn dỉåïi dảng cạc låìi gi hm. Tọm lải cạc biãún kiãøu Procedure xút hiãûn trong chỉång trçnh nhỉ l cạc låìi gi CTC våïi âáưy â cạc tham säú m Procedure hay Function m nọ tr âãún cọ thãø cọ. Cạc hm v th tủc sau ny âỉåüc xem nhỉ l cạc giạ trë ca cạc biãún kiãøu Procedure phi l cạc chỉång trçnh con âỉåüc khai bạo gi xa våïi chè thë {$F+}. Pháưn 4, Âäư hoả trong Pascal 4-2 Pascal Náng cao (Advanced Pascal) Hong Hỉỵu Hảnh III. CẠC PHẸP TOẠN TRÃN KIÃØU PROCEDURE 1. PHẸP GẠN Cụ phạp phẹp toạn: <Biãún_Procedure> := <Tãn_Chỉång_Trçnh_Con>; Khäng nhỉ phẹp gạn âäúi våïi cạc biãún cọ kiãøu cå bn, phẹp gạn åí âáy mang nghéa l gạn âëa chè segment v offset ca âoản m CTC våïi tãn âỉåüc chè ra åí vãú phi cho biãún kiãøu Procedure åí vãú trại. Biãún ny âỉåüc xem nhỉ con tr tr âãún CTC âọ. Vê dủ: Viãút chỉång trçnh thỉûc hiãûn mäüt trong bäún phẹp toạn + - × v ÷ bàòng cạch dng cạc hm v sỉí dủng biãún kiãøu Procedure. TYPE FuncType = Function( x, y: Real ): Real; VAR FuncVar: FuncType; a, b: Real; Ch: Char {------- ënh nghéa hm -------} {$F+} { Chè thë gi xa } Function Cong(a, b: Real): Real; Begin Cong := a + b; End; Function Tru(a, b: Real): Real; Begin Tru := a - b; End; Function Nhan(a, b: Real): Real; Begin Nhan := a * b; End; Function Chia(a, b: Real): Real; Begin Chia := a / b; End; {$F-} { B gi xa } {------- Chỉång trçnh chênh -------} BEIN Write(‘A=’); ReadLn(a); Write(‘Phẹp toạn:’); ReadLn(Ch); Write(‘B=’); ReadLn(b); Pháưn 4, Âäư hoả trong Pascal 4-3 Pascal Náng cao (Advanced Pascal) Hong Hỉỵu Hảnh {-- Gạn giạ trë vo biãún Procedure --} Case Ch Of ‘+’: FuncVar:=Cong; ‘-’: FuncVar:=Tru; ‘*’: FuncVar:=Nhan; ‘/’: FuncVar:=Chia; End; WriteLn(‘Kãút qu l: ’, FuncVar(x, y):2:2); ReadLn; END. Chụ thêch cho chỉång trçnh vê dủ: Trong chỉång trçnh trãn, chụng ta â âënh nghéa mäüt kiãøu Procedure l FuncType l hm cọ hai tham säú kiãøu Real v giạ trë tr vãư cng l kiãøu Real. FuncType = Function( x, y: Real ): Real; Biãún FuncVar cọ kiãøu FuncType l mäüt biãún s chỉïa cạc tãn hm cọ danh sạch âäúi säú v kiãøu tr vãư ca hm nhỉ l â khai bạo. Trong vê dủ trãn l bäún hm Cong, Tru, Nhan v Chia tr vãư kãút qu l phẹp toạn tỉång ỉïng tạc âäüng lãn hai âäúi säú. Tiãúp thao l phẹp gạn cạc tãn hm cho biãún FuncVar ỉïng våïi cạc giạ trë cha Ch. V cúi cng l hçnh thỉïc xút hiãûn ca FuncVar trong cáu lãûnh. WriteLn(‘Kãút qu l: ’, FuncVar(x, y):2:2);  Âäúi säú ca CTC cọ kiãøu Procedure Kiãøu dỉỵ liãûu Procedure cng cọ thãø dng lm kiãøu ca cạc âäúi säú CTC. Mäüt âäúi säú kiãøu Procedure cng hoảt âäüng âụng theo cạc ngun tàõc m cạc âäúi säú mang kiãøu khạc hoảt âäüng. Vê dủ: TYPE ProcType = Procedure; VAR p: ProcType; {$F+} Procedure ABC_Proc; Begin WriteLn('ABC'); End; Procedure DEF_Proc; Begin WriteLn('DEF'); End; Pháưn 4, Âäư hoả trong Pascal 4-4 Pascal Náng cao (Advanced Pascal) Hong Hỉỵu Hảnh {$F-} Procedure TT(pv: Proc); Begin pv; End; Procedure TB(VAR pv: Proc); Begin pv:=DEF_Proc; End; BEGIN p:=ABC_Proc; TT(p); TB(p); p; END. 2. PHẸP SO SẠNH Cạc phẹp toạn so sạnh khäng ạp dủng cho cạc biãún kiãøu Procedure, do âọ chụng ta khäng thãø so sạnh cạc biãún kiãøu Procedure âỉåüc m chè cọ thãø so sạnh âëa chè m cạc biãún ny mang. Lục âọ chè sỉí dủng hai phẹp toạn sọ sạnh bàòng nhau ( = ) v khạc nhau ( <> ). Kãút qu l kiãøu logic (Boolean). Âãø láúy giạ trë âëa chè ca mäüt biãún chụng ta dng toạn tỉí @. @< Biãún_Procedure_1 > = hay <> @< Biãún_Procedure_2 > Vê dủ: Chụng ta khäng thãø viãút If TestFunc <> StrFunc then . M phi viãút If @TestFunc <> @StrFunc then . Chụ : Âãø mä t biãún Procedure khäng tr vo vng nhåï no, chụng ta phi gạn con tr NIL vo con tr tr âãún biãún Procedure. Vê dủ: @TestFunc := NIL;  Âäúi säú ca CTC cọ kiãøu Procedure Pháưn 4, Âäư hoả trong Pascal 4-5 ABC DEF Pascal Náng cao (Advanced Pascal) Hong Hỉỵu Hảnh 1. Chụng ta cáưn phán biãût giỉỵa låìi gi hm v lãûnh gạn giạ trë l tãn chỉång trçnh con cho biãún Procedure. Vê dủ: Xẹt chỉång trçnh sau: TYPE StrFunc = Function: STRING; VAR st: STRING; pF: StrFunc; {$F+} Function TrMark: STRING; Begin WriteLn(‘Thỉûc hiãûn hm TrMark’); TrMark := ‘Advanced PASCAL’; End; {$F-} BEGIN st := TrMark; { Låìi gi hm TrMark } pF := TrMark; { Gạn â/chè ca TrMark cho pF } END. 2. Cạc v th tủc âỉåüc xem nhỉ l mäüt kiãøu dỉỵ liãûu cho biãún Procedure phi cọ cạc u cáưu sau: • Phi l hm v th tủc ca NSD • Phi khai bạo gi xa våïi càûp chè thë {$F+} v {$F-} • Khäng cọ khai bạo Interrupt v cáu lãûnh Inline. • Khäng cọ cạc CTC läưng bãn trong. Pháưn 4, Âäư hoả trong Pascal 4-6 Pascal Náng cao (Advanced Pascal) Hong Hỉỵu Hảnh Pháưn 2 2 CHUØN ÂÄØI KIÃØU – UNIT NGỈÅÌI CHUØN ÂÄØI KIÃØU – UNIT NGỈÅÌI DNG DNG IV. CHUØN ÂÄØI KIÃØU (TYPE CASTING) Type Casting l mäüt k thût dng âãø biãún âäøi kiãøu ca mäüt vng nhåï mạy tênh. Pascal l mäüt NNLT ráút chàûc ch trong trong váún âãư täø chỉïc dỉỵ liãûu, nháút l trong cạc phẹp gạn hay trong biãøu thỉïc. Sỉû chàûc ch ny ca Pascal âäi khi lải gáy tråí ngải cho láûp trçnh viãn vç phi sỉí dủng nhiãưu lãûnh måïi âảt âỉåüc mủc âêch. Láúy mäüt vê dủ nhỉ sau, St l mäüt biãún kiãøu chùi v âang lỉu giỉỵ chùi ‘Turbo’, gi sỉí chụng ta mún tçm m ASCII ca cạc k tỉû trong chùi thç phi dng nhỉ sau: VAR St: String[10]; . St:= ‘Turbo’; For i:=1 to Length(St) do Write(Ord(St[i],#32); trong âọ chụng ta â sỉí dủng âãún 2 låìi gi hm, hm Length v Ord âãø xạc âënh chiãưu di chùi v láúy m ASCII ca k tỉû trong chùi. Ta tiãún hnh xem xẹt vng nhåï St, âỉåüc mä hçnh họa nhỉ sau 0 1 2 3 4 5 6 7 8 9 10 05 85 117 114 98 111 ‘T’ ‘u’ ‘r’ ‘b’ ‘o’ Biãún St âỉåüc lỉu trỉỵ nhỉ mäüt mng 11 pháưn tỉí ( 0 10 ) m mäùi pháưn tỉí l mäüt säú kiãøu Byte âãø lỉu giỉỵ m ASCII ca cạc k tỉû trong chùi, trong âọ m ASCII ca k tỉû âáưu l âäü di thỉûc ca chùi. Do âọ chụng ta cng cọ thãø âënh nghéa lải vng nhåï ny nhỉ sau: TYPE ByteArr = Array[0 10] of Byte; VAR A: ByteArr; . A[0]:=5; A[1]:=84; A[2]:=7; A[4]:=114; A[5]:=98; A[6]:=111; Vng nhåï biãún A s l: Pháưn 4, Âäư hoả trong Pascal 4-7 Pascal Náng cao (Advanced Pascal) Hong Hỉỵu Hảnh 0 1 2 3 4 5 6 7 8 9 10 05 85 117 114 98 111 Nãúu ta xem vng nhåï trãn l mäüt chúi thç nọ s tråí thnh chùi ‘Turbo’, ngỉåüc lải våïi vng nhåï ca St ta cọ thãø xem âọ l mäüt mng cạc säú kiãøu Byte. Cạch xem xẹt nhỉ váûy gi l chuøn âäøi kiãøu (Type Casting), m thỉûc cháút l tại âënh nghéa lải kiãøu dỉỵ liãûu ca mäüt vng nhåï. Hản chãú ca viãûc âäøi kiãøu m khäng thãø khäng nhàõc âãún l nọ s lm khại niãûm vãư kh nàng kiãøm soạt kiãøu dỉỵ liãûu trong chỉång trçnh v âäi lục xy ra nhỉỵng âiãưu âạng tiãúc. 3. CỤ PHẠP ÂÄØI KIÃØU Cụ phạp: <Kiãøu> ( <Giạ_trë> ) Vê dủ 1: ch := CHAR(65); Thanhtien:= (Tieuthu – 100)*LongInt(500) + 100*250; Vê dủ 2: CONST A: Array[0 10] of Byte = (05, 84, 117, 114, 98, 111, 0, 0, 0, 0, 0); TYPE St10 = STRING[10]; BEGIN WriteLn(St10(A)); ReadLn; END. 4. RECORD HỌA MÄÜT VNG NHÅÏ Mäüt vê dủ thỉûc tãú: Khi mún tảo ra mäüt cỉía säø trong chãú âäü vàn bn bàòng th tủc Window(x2, y1, x2, y2) ta âäü âènh trại trãn v phi dỉåïi phi âỉåüc lỉu giỉỵ trong hai biãún kiãøu Word l: WindMin Ta âäü âènh trại trãn Pháưn 4, Âäư hoả trong Pascal 4-8 Turbo y1 x1 y2 x2 Pascal Nỏng cao (Advanced Pascal) Hoaỡng Hổợu Haỷnh WindMax Toỹa õọỹ õốnh phaới dổồùi Byte cao Byte thỏỳp óứ lỏỳy caùc giaù trở x1, y1, x2, y2 tổỡ hai bióỳn WindMin vaỡ WindMax, chuùng ta cuợng coù thóứ duỡnh hai haỡm Lo vaỡ Hi cuớa DOS, nhổng ồớ õỏy chuùng ta thổỷc hióỷn kyợ thuỏỷt Record hoùa vuỡng nhồù 2 byte naỡy bũng mọỹt kióứu Record, chúng haỷn: TYPE Toado = RECORD x, y: Byte; END; Thổù tổỷ x, y trong record phaới theo thổù tổù, trổồỡng naỡo õổùng trổồùc seợ coù õởa chố thỏỳp hồn trổồỡng õổùng sau. Sau õoù ta thổỷc hióỷn record hoùa, thổỷc ra õoù laỡ mọỹt daỷng khaùc cuớa Type Casting, hai bióỳn WindMin vaỡ WindMax vaỡ lỏỳy caùc giaù trở nhổ sau: x1 := Toado(WindMin).x;y1 := Toado(WindMin).y; x2 := Toado(WindMax).x;y2 := Toado(WindMax).y; Cuù phaùp Record hoùa vuỡng nhồù naỡy coù thóứ mồớ rọỹng cho vuỡng nhồù lồùn hồn, caùc trổồỡng cuớa Record coù thóứ cuợng laỡ maớng. 5. I S CTC KHNG KIỉU Trong vióỷc sổớ duỷng caùc CTC khi vióỳt chổồng trỗnh, chuùng ta õaợ sổớ duỷng caùc õọỳi sọỳ vồùi caùc kióứu xaùc õởnh. Khi goỹi thổỷc hióỷn caùc chổồng trỗnh con chuùng ta phaới truyóửn caùc õọỳi sọỳ thổỷc tóỳ õuớ vaỡ õuùng kióứu vaỡo cho chuùng, õióửu naỡy õọi khi laỷi bỏỳt tióỷn. Turbo Pascal 5.0 trồớ lón cung cỏỳp mọỹt khaớ nng nổợa õoù laỡ coù thóứ khai baùo tham bióỳn khọng kióứu, õióửu naỡy thổỷc sổỷ laỡ hổợu ờch. Vờ duỷ, õóứ vióỳt chổồng trỗnh con nhỏỷp mọỹt sọỳ nguyón coù kióứm tra lọựi, nhổng sọỳ nguyón thỗ kióứu cuỷ thóứ laỡ Byte? hay Integer? hay Word?, . Luùc naỡy ta phaới vióỳt nhióửu CTC õóứ nhỏỷp cho mọỹt kióứu cuỷ thóứ nóỳu khọng duỡng õọỳi sọ khọng kióứu. Vờ duỷ: Chổồng trỗnh con nhỏỷp sọỳ nguyón. PROCEDURE ReadInt( x, y: Byte; VAR N ); Var Temp: STRING[80]; Result: Integer; Begin Temp := #32; repeat GotoXY(x,y); Write(#32: Length(Temp)); GotoXY(x,y); ReadLn(Temp); Val(Temp, LongInt(N), Result); until Result = 0; Phỏửn 4, ọử hoaỷ trong Pascal 4-9 Pascal Náng cao (Advanced Pascal) Hong Hỉỵu Hảnh End; Th tủc ny cọ sỉí dủng k thût Type Casting våïi tham biãún N âãø sao cho nọ lm viãûc OK våïi mi trỉåìng håüp, âiãưu ny l khäng bàõt büc trong th tủc ny. Báy giåì chụng ta hy thỉí viãút chỉång trçnh âãø nháûp cạc biãún kiãøu ngun ShortInt, Integer, LongInt, Byte, Word sỉí dủng th tủc ReadInt xem thãú no? V.UNIT NGỈÅÌI DNG 6. NGHÉA UNIT l mäüt thỉ viãûn chỉïa cạc chỉång trçnh con â âỉåüc ci sàơn. Trong Pascal cọ hai loải unit: mäüt l unit chøn (cho sàơn) nhỉ SYSTEM.TPU, CRT.TPU, GRAPH.TPU, .; v mäüt loải unit tảo ra båíi NSD. Mäüt l do âãø ta tảo cạc Unit ca NSD l: khi chỉång trçnh quạ låïn, cọ nhỉỵng nhọm chỉång trçnh con v cạc dỉỵ liãûu hon chènh, cọ thãø âỉåüc sỉí dủng båíi nhiãưu chỉång trçnh khạc nhau. Vç váûy ta cọ thãø nhọm nhỉỵng chỉång trçnh con cạc cáúu trục dỉỵ liãûu trãn thnh cạc Unit. Lm nhỉ thãú s gia tàng täúi âa täúc âäü chỉång trçnh, v cạc chỉång trçnh con âọ cọ thãø âỉåüc sỉí dủng båíi nhỉỵng chỉång trçnh khạc, bàòng cạch “USES” unit âọ ra. Âãø sỉí dủng Unit trong chỉång trçnh con thç ta khai bạo cạc Unit âọ sau tỉì khọa USES. Vê dủ: USES Crt, Dos, Printer, NewUnit; Tọm lải, nghéa khi tảo unit l nhỉ sau: • Ghi lải cạc CTC thỉåìng dng vo mäüt module tảo thỉ viãûn chỉång trçnh • Phán chỉång trçnh låïn thnh cạc module nh hån. • Tênh cọ thãø sỉí dủng lải ca unit 7. CẠC THNH PHÁƯN CA MÄÜT UNIT Mäüt unit bao gäưm cạc thnh pháưn sau: i.Pháưn Khai bạo (UNIT .) ii. Pháưn Giao tiãúp (INTERFACE) iii. Pháưn Ci âàût (IMPLEMENTATION) iv. Pháưn Khåíi tảo (INITIALIATION) Pháưn 4, Âäư hoả trong Pascal 4-10 [...]... dủ: UNIT UEXAM; • Pháưn Giao tiãúp Cn âỉåüc gi l pháưn Public, l pháưn giao diãûn ca unit våïi bãn ngoi Nhỉỵng gç khai bạo trong pháưn ny thç âỉåüc cạc chỉång trçnh sỉí dủng unit ny cọ thãø gi âãún Pháưn ny bàõt âáưu bàòng tỉì khọa INTERFACE Vê dủ: INTERFACE {$F+} {Pháưn Giao tiãúp } {chè thë gi xa } VAR Ini: String; Pháưn 4, Âäư hoả trong Pascal 4-11 Pascal Náng cao (Advanced Pascal) PROCEDURE PROCEDURE... WriteStC(x1,y1,x2,Attr,Tit); Pháưn 4, Âäư hoả trong Pascal 4-28 Pascal Náng cao (Advanced Pascal) Hong Hỉỵu Hảnh End; BEGIN { $1F : White/Blue } BoxSh(15,8,65,18,$7F,ShdOn); WinSh(6,6,50,16,$4F,' Window #2 ',ShdOn); WinSh(15,12,55,22,$1F,' Window #3 ',ShdOn); ReadLn; END IX CẠC ỈÏNG DỦNG Pháưn 4 UNIT GRAPH – ÂÄƯ HOẢ TRONG PASCAL Âäư hoả trãn mạy tênh l c mäüt lénh vỉûc räüng... âỉåüc dng âãún ca Unit khi dëch file trãn (Chãú âäü ghi âéa), Turbo pascal s tảo file UEXAM.TPU  Biãn dëch UNIT • Chn chãú âäü biãn dëch ghi âéa: Compile - Destination → Disk • Biãn dëch: Báúm täø håüp phêm Alt - F9 hồûc F9 Táûp tin biãn dëch âỉåüc s cọ pháưn måí räüng l TPU Pháưn 4, Âäư hoả trong Pascal 4-13 Pascal Náng cao (Advanced Pascal) 9 Hong Hỉỵu Hảnh CẠC UNIT CỌ DNG UNIT KHẠC Báút k mäüt unit... trong Pascal 4-14 Pascal Náng cao (Advanced Pascal) Hong Hỉỵu Hảnh Trong trỉåìng håüp ny, th tủc trong unit âỉåüc khai bạo sau âỉåüc ỉu tiãn hån, nghéa l th tủc ClrScr ca unit CRT s âỉåüc dng Âãø sỉí dủng hai th tủc ny mäüt cạch âäüc láûp, chụng ta sỉí dủng cụ phạp sau: Cụ phạp: . Vê dủ: PROGRAM Test; USES A, CRT; BEGIN A.ClrScr; 10 TÄØ CHỈÏC UNIT TRONG BÄÜ NHÅÏ Turbo Pascal. .. 40x25 Color’); 2: WriteLn(‘Mode 80x25 B/W’); 3: WriteLn(‘Mode 80x25 Color’); 7: WriteLn(‘Mode 80x25 Hercule Mono’); end; ReadLn; End Pháưn 4, Âäư hoả trong Pascal 4-18 Pascal Náng cao (Advanced Pascal) 13 Hong Hỉỵu Hảnh BIÃÚN TRUY XÚT VNG NHÅÏ Turbo Pascal cung cáúp cạc biãún truy xút vng nhåï ngoi biãún tuût âäúi, âọ l 3 biãún kiãøu mng cọ tãn l MEM, MEMW, MEML • Biãún MEM Mäùi thnh pháưn ca biãún ny... tiãûn êch tảo giao diãûn Minh ha sau âáy l tảo cỉía säø, hồûc mäüt ä cọ bọng måì bàòng cạch sỉí dủng truy xút bäü nhåï Sau âáy l listing chỉång trçnh { - } {Chỉång trçnh minh ha tảo cỉía säø cọ bọng måì } {sỉí dủng phỉång phạp truy xút bäü nhåï } { - } {Written by Hoang Huu Hanh (29/8/98) } Pháưn 4, Âäư hoả trong Pascal 4-26 Pascal Náng cao (Advanced Pascal) Hong... VÊ DỦ ẠP DỦNG Chụng ta thỉí tảo Unit UEXAM âỉåüc lỉu dỉåïi file UEXAM.PAS Näüi dung: UNIT UEXAM; USES CRT; {Pháưn Khai bạo } INTERFACE {$F+} {Pháưn Giao tiãúp } {chè thë gi xa } VAR Ini: String; Pháưn 4, Âäư hoả trong Pascal 4-12 Pascal Náng cao (Advanced Pascal) Hong Hỉỵu Hảnh PROCEDURE ThiDu1 (Var x, y: Real); PROCEDURE ThiDu2 (S: String); FUNCTION TenF (i, j: integer):string; {$F-} IMPLEMENTATION... TURBO.TPL TPUMOVER TURBO /- TURBO3 ↵ - Tạch unit Graph3 khi TURBO.TPL v tảo thnh file GRAPH3.TPU TPUMOVER TURBO /* GRAPH3 ↵ Pháưn 3 TRUY XÚT VNG NHÅÏ MẠY TÊNH Pháưn 4, Âäư hoả trong Pascal 4-17 Pascal Náng cao (Advanced Pascal) VI BIÃÚN TRUY XÚT VNG NHÅÏ 12 Hong Hỉỵu Hảnh BIÃÚN ÂËA CHÈ TUÛT ÂÄÚI Cạc biãún âỉåüc khai bạo trong chỉång trçnh sau tỉì khọa VAR hay cạc biãún âäüng tảo ra bàòng th tủc New... trçnh chênh Pascal thäng thỉåìng, thäng thỉåìng gäưm cạc cáu lãûnh gạn cạc giạ trë khåíi âäüng cho cạc biãún public  Thỉ mủc chỉïa UNIT Pascal thäng thỉåìng s tçm kiãúm cạc unit trong thỉ mủc màûc âënh âỉåüc chè båíi NSD Âãø lm âiãưu ny chụng ta thỉûc hiãûn lãûnh sau âãø chè r vë trê ca unit Options - Directories, trong mủc Unit Directories âỉa vo cạc âỉåìng dáùn tçm kiãúm Nãúu khäng tçm tháúy Pascal s... tring vng nhåï ny âỉåüc quưn sỉía âäøi hay khäng Vç nãúu khäng biãút r, viãûc thay âäøi gia trë trong vng nhåï âäi khi gáy ra tai hải ráút låïn trong chỉång trçnh Pháưn 4, Âäư hoả trong Pascal 4-19 Pascal Náng cao (Advanced Pascal) VII Hong Hỉỵu Hảnh LÁÚY THÄNG TIN CA ROM-BIOS Trong cạc PC, sau khi khåíi âäüng xong, cạc thäng säú ca mäi trỉåìng lm viãûc do ROM thỉûc hiãûn âãưu âỉåüc ghi vo mäüt vng nhåï . INTERFACE { Phỏửn Giao tióỳp } {$F+} { chố thở goỹi xa } VAR Ini: String; Phỏửn 4, ọử hoaỷ trong Pascal 4-11 Pascal Náng cao (Advanced Pascal) Hong Hỉỵu. INTERFACE { Pháưn Giao tiãúp } {$F+} { chè thë gi xa } VAR Ini: String; Pháưn 4, Âäư hoả trong Pascal 4-12 Pascal Nỏng cao (Advanced Pascal) Hoaỡng Hổợu