Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn BAèI 1: GIẽI THIU NGN NGặẻ PASCAL VAè CAẽC Vấ DỦ ÂÅN GIN I Xút xỉï ngän ngỉỵ Pascal: Pascal laỡ ngổợ lỏỷp trỗnh cỏỳp cao Niklaus Wirth, giạo sỉ âiãûn toạn trỉåìng âải hc k thût Zurich (Thy Sé), âãư xút nàm 1970 våïi tãn Pascal âãø k niãûm nh toạn hc v triãút hc näøi tiãúng Blaise Pascal (ngổồỡi Phaùp) Ngọn ngổợ lỏỷp trỗnh Pascal coù âàûc âiãøm: ngỉỵ phạp, ngỉỵ nghéa âån gin v cọ tờnh logic; cỏỳu truùc chổồng trỗnh roợ raỡng, dóự hióứu (thóứ hióỷn tổ lỏỷp trỗnh cỏỳu truùc); dóự sổớa chổợa, caới tióỳn Trong quaù trỗnh phaùt trióứn, Pascal õaợ phạt huy âỉåüc ỉu âiãøm v âỉåüc dng âãø tảo nhiãưu ỉïng dủng trãn nhiãưu lénh vỉûc khạc Cạc täø chỉïc v cäng ty chun vãư mạy dỉûa trãn Pascal chøn â phạt triãøn thãm v tảo caùc chổồng trỗnh dởch ngổợ Pascal vồùi nhióửu pháưn bäø sung, gim thiãøu khạc Vê dủ: TURBO PASCAL ca hng Borland (M), QUICK PASCAL ca hng Microsoft, UCSD PASCAL (University of California at San Diego), ANSI PASCAL (American National Standard Institute),.v.v So våïi nhiãưu sn pháøm Pascal ca nhiãưu täø chỉïc v cäng ty khạc xút bn, TURBO PASCAL ca hng Borland t cọ nhiãưu ỉu âiãøm nháút v hiãûn â tråí thnh ngän ngổợ lỏỷp trỗnh phọứ bióỳn nhỏỳt trón thóỳ giồùi sổớ duỷng lộnh vổỷc giaớng daỷy vaỡ lỏỷp trỗnh chuyón nghiãûp Chè vng vi nàm Turbo Pascal âỉåüc ci tiãún qua nhiãưu phiãn bn : 1.0, 2.0, 3.0, 4.0, 5.0, 5.5 (1989), 6.0 (1990), 7.0 (1972) Caïc táûp tin chênh ca ngän ngỉỵ Turbo Pascal gäưm: - Turbo.exe: chỉång trỗnh soaỷn thaớo, dởch vaỡ lión kóỳt chổồng trỗnh - Turbo.tpl (.tpl - Turbo Pascal Library): táûp tin thæ viãûn lỉu cạc âån vë (Unit) chøn âãø chảy våïi Turbo.exe Mún sỉí dủng cạc lãûnh âäư ha, phi cọ cạc táûp tin sau: - Graph.tpu: Âån vë (Unit) chỉïa cạc lãûnh âäư hoả - Cạc táûp tin cọ pháưn måí räüng CHR (SANS.CHR, TRIP.CHR, GOTH.CHR,.v.v.): Chỉïa cạc kiãøu chỉỵ chãú âäü âäư hoả - Cạc táûp tin cọ pháưn måí räüng BGI (EGAVGA.BGI, HERC.BGI, CGA.BGI, ): âãø âiãưu khiãøn caùc loaỷi maỡn hỗnh tổồng ổùng duỡng õọử hoaỷ II Khồới õọỹng: Trang Giaùo trỗnh Lỏỷp trỗnh Pascal càn bn — –2— Ta cọ thãø khåíi âäüng Pascal tỉì Windows hồûc MS-DOS, chuøn âãún thỉ mủc BP hồûc TP v chảy táûp tin BP.EXE hay TURBO.EXE Hai cạch khåíi âäüng trãn thỉûc hiãûn sau: - Khåíi âäüng tỉì dáúu nhàõc ca MS-DOS: Chuøn âãún thỉ mủc BP hồûc TP nåi chỉïa táûp tin BP.EXE hồûc TURBO.EXE, g BP hồûc TURBO v áún - Khåíi âäüng tổỡ Windows: choỹn menu Start/Program/Borland Pascal Nóỳu chổồng trỗnh Pascal chỉa âỉåüc ci vo menu Start, cọ thãø dng Windows Explorer chuøn âãún táûp tin BP.EXE hồûc TURBO.EXE v khåíi âäüng Pascal bàịng cạch chảy táûp tin ny III Cạc phêm chỉïc nàng cáưn biãút ca ngän ngỉỵ Pascal: - F2: Lổu chổồng trỗnh soaỷn thaớo - F3: Tảo mäüt file måïi hồûc måí mäüt file c - F9: Dởch thổớ chổồng trỗnh õóứ kióứm tra lọựi - Ctrl - F9: Chaỷy chổồng trỗnh - Alt - F5: Xem kóỳt quaớ chaỷy chổồng trỗnh - Alt - X: Thoaùt khoới maỡn hỗnh soaỷn thaớo chổồng trỗnh Pascal IV Cỏỳu truùc mọỹt chổồng trỗnh Pascal: Cỏỳu truùc cồ baớn: Chổồng trỗnh Pascal õồn giaớn nhỏỳt phaới coù hai tỉì khoạ Begin v End sau: Begin End Chổồng trỗnh trón khọng laỡm gỗ chaỷy (ỏỳn Ctrl - F9) nhổng laỡ mọỹt chổồng trỗnh hồỹp lóỷ häüi â âiãưu kiãûn cáưn thiãút l cọ hai tỉì khoạ Begin v End Tỉì khoạ End cọ km dỏỳu . phờa sau baùo hióỷu kóỳt thuùc chổồng trỗnh, âáy l âiãưu bàõt büc phi cọ mäüt chỉång trỗnh Tổỡ khoaù Begin trón õổồỹc trỗnh bión dởch hióứu l bàõt âáưu thỉûc hiãûn cạc lãûnh sau v kãút thục tải tỉì khoạ End cọ dáúu cháúm “.” Khäúi lãûnh nàịm càûp tỉì khoạ Begin v End nãúu cọ dáúu cháúm theo sau cn gi l khäúi chổồng trỗnh chờnh Ngoaỡi ra, nóỳu sau tổỡ khoaù End khọng coù dỏỳu hoỷc coù dỏỳu ; thỗ õoù coù thóứ laỡ khọỳi chổồng trỗnh con, khọỳi lóỷnh cuớa haỡm hoỷc khọỳi lóỷnh chổồng trỗnh Trong chổồng trỗnh coù thãø cọ nhiãưu khäúi lãûnh, tỉïc cọ thãø cọ nhiãưu càûp tỉì khoạ Begin v End Phỉång phạp khai baùo vaỡ tọứ chổùc cỏỳu truùc mọỹt chổồng trỗnh Pascal: Trang Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn — –3— Viãûc âàût cạc pháưn khai bạo v soản thaớo chổồng trỗnh theo thổù tổỷ nhổ sau: Program ProgName; Uses UnitName1, UnitName2, UnitNameN; Label LabelName1, LabelName2, LabelNameN; Const Const1 = n, Const2 = m, ConstN = k; Type Type1 = AnyType; Var Var1, Var2, VarN : Type; Begin { Caùc lóỷnh cuớa chổồng trỗnh } End ệ Giaới thờch cáúu trục cạc khai bạo trãn: Nãúu cọ pháưn khai baùo naỡo cỏửn cho chổồng trỗnh thỗ phaới tuỏn theo thỉï tỉû trãn, vê dủ: pháưn khai bạo thỉ viãûn (USES) khäng thãø âàût sau pháưn khai bạo hàịng säú (CONST) hồûc sau (VAR) sau mäùi pháưn khai bạo phi cọ dáúu ‘;’ - Program: Tỉì khoạ ny dng õóứ khai baùo tón chổồng trỗnh, ProgName laỡ tón chổồng trỗnh, tón naỡy khaùc vồùi tón tỏỷp tin Tón chổồng trỗnh phaới tuỏn theo quy từc: + khọng coù kyù tỉû träúng xen giỉỵa + khäng âàût säú åí k tỉû âáưu tiãn + pháưn tãn khäng chỉïa cạc kyï tæû âàût biãût nhæ: ‘!’, ‘@’, ‘#’, ‘$’, ‘%’, ‘^’, ‘&’, ‘* ’, ‘(‘, ‘)’, ‘-‘, ‘+’, ‘/’, ‘\’, ‘.’, ’,’,.v.v + kãút thục phi cọ dáúu ‘;’ + pháưn ny cọ thãø khäng cọ Vê dủ: mäüt caùch khai baùo tón chổồng trỗnh: Program TimUSCLN; Begin End - Uses: Tỉì khoạ ny dng âãø khai baùo vióỷc sổớ duỷng Unit (thổ vióỷn) cho chổồng trỗnh Thỉ viãûn l táûp håüp cạc hm, th tủc ngän ngỉỵ Pascal cung cáúp km theo hồûc cng cọ thóứ ngổồỡi lỏỷp trỗnh taỷo õóứ sổớ duỷng Ta khai bạo thỉ viãûn thäng qua tãn ca thỉ vióỷn, vaỡ chổồng trỗnh õoù ta seợ coù thóứ sỉí dủng cạc th tủc hồûc Trang – Giạo trỗnh Lỏỷp trỗnh Pascal cn baớn caùc haỡm cọ thỉ viãûn âọ Cạc thỉ viãûn chøn ca ngän ngỉỵ Pascal gäưm: CRT, DOS, GRAPH, GRAPH3, OVERLAY, PRINTER, SYSTEM v TURBO3 Trong âọ, thỉ viãûn SYSTEM màûc âënh õổồỹc chuyóứn vaỡo chổồng trỗnh maỡ ta khọng cỏửn phaới khai bạo Vê dủ mäüt cạch khai bạo thỉ viãûn: Uses CRT, GRAPH; - Label: Duìng âãø khai baùo caùc nhaợn cho chổồng trỗnh Nhaợn laỡ caùc tón duỡng õóứ õaùnh dỏỳu chổồng trỗnh õóứ lóỷnh GOTO nhy âãún âụng vë trê âọ Viãûc sỉí dủng lãûnh GOTO âỉåüc âãư cáûp åí bi Vê dủ mäüt cạch khai bạo nhn: Label TH1, N2; - Const: Tỉì khoạ ny dng âãø khai bạo cạc hàịng sọỳ sổớ duỷng chổồng trỗnh, baùo hũng sọỳ l viãûc cäú âënh mäüt vi giạ trë no âọ chổồng trỗnh thọng qua tón hũng, vờ duỷ caùch khai bạo hàịng: Const k = 5, Max = 500, Ten = ‘Nam’; - Type: tỉì khoạ dng âãø khai bạo cạc kiãøu hàịng dỉỵ liãûu sỉí dủng cho chổồng trỗnh Vồùi tổỡ khoaù naỡy, ta coù thóứ tổỷ taỷo rióng cho mỗnh nhổợng kióứu dổợ lióỷu rióng dỉûa trãn cạc kiãøu dỉỵ liãûu chøn âãø tiãûn sỉí duỷng vióỷc lỏỷp trỗnh Caùc khaùi nióỷm vóử dổợ liãûu chøn v phỉång phạp tảo kiãøu dỉỵ liãûu tỉû tảo s âỉåüc giåïi thiãûu åí cạc pháưn sau Vê dủ mäüt cạch âãø khai bạo mäüt kiãøu dỉỵ liãûu tỉû tảo: Type Day = Array [1 7] of String[8]; - Var: Tỉì khoạ dng âãø khai bạo caùc bióỳn sọỳ õổồỹc sổớ duỷng chổồng trỗnh Bióỳn säú l cạc giạ trë cọ thãø thay âäøi âỉåüc suọỳt quaù trỗnh chaỷy cuớa chổồng trỗnh Khaùi nióỷm vóử bióỳn sọỳ rỏỳt quan troỹng vióỷc lỏỷp trỗnh (khaùi nióỷm naỡy õổồỹc trỗnh baỡy kyợ ồớ baỡi 3) Mäüt vê dủ vãư cạch khai bạo biãún: Trang Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn Var HoDem, Ten : String; N : Integer; –5— Ư Ghi chụ: - Thỉï tỉû cạc khai bạo trãn l âiãưu bàõt büc, ta phi nàõm thỉï tỉû ny cho d mäüt säú khại niãûm ta chỉa âỉåüc biãút - Trong chổồng trỗnh Pascal, õóứ taỷo lồỡi chuù thờch, ta sỉí dủng càûp dáúu { } hồûc (* *) läưng cạc cáu chụ thêch vo bãn - Trãn mäüt dng cọ thãø viãút mäüt hồûc nhiãưu cáu lãûnh V Cạc vê dủ âån gin lm quen våïi ngän ngỉỵ Pascal: Vê dủ 1: Program GioiThieu; Begin Writeln ( ‘ Trung tam Trung hoc Chuyen nghiep va Day nghe ‘ ); Write ( ‘ 74 Tran Quoc Toan - Tel: 0511 872664 ‘ ); End F Giaíi thờch chổồng trỗnh GioiThieu: - Begin: Tổỡ khoaù cho bióỳt bừt õỏửu chổồng trỗnh - Writeln: laỡ thuớ tuỷc xuỏỳt näüi dung cạc thnh pháưn bãn càûp dáúu ( ) lón maỡn hỗnh vaỡ chuyóứn troớ xuọỳng doỡng Bãn càûp dáúu ( ) cọ thãø cọ nhiãưu thnh pháưn gäưm chùi k tỉû (hàịng giạ trë chùi), biãún säú hồûc hm Giỉỵa cạc thnh pháưn càûp dáúu ( ) phi cạch bàịng dáúu ‘,‘ nãúu khäng cng loải, tỉïc l chùi k tỉû phi âỉåüc cạch våïi biãún säú hồûc hm âỉïng trỉåïc hay sau bàịng dáúu ‘,‘ Chùi k tỉû mún hiãøn thë ngun vàn phi âỉåüc âàût càûp dáúu ‘ ‘ - Write: l th tủc xút näüi dung cạc thnh pháưn bãn càûp dáúu ( ) lãn mn hỗnh, thuớ tuỷc naỡy coù chổùc nng tổồng tổỷ Writeln nhỉng khäng chuøn tr xúng dng - End: l tổỡ khoaù cho bióỳt kóỳt thuùc chổồng trỗnh - Caùc dng lãûnh nàịm giỉỵa Begin v End l lãûnh m chổồng trỗnh cỏửn phaới thổỷc hióỷn - óứ xem chổồng trỗnh trón, ta chaỷy bũng Ctrl - F9 vaỡ xem laỷi bũng Alt - F5 Trang Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn Vờ duỷ 2: –6— Program DonXinPhep; Uses CRT; Begin ClrScr; Writeln ( ‘ ********************************** ’ ); Writeln ( ‘ * Cong hoa Xa hoi Chu nghia Viet Nam * ‘ ); Writeln ( ‘ * Doc Lap - Tu Do - Hanh Phuc * ‘ ); Writeln ( ‘ * DON XIN PHEP NGHI HOC * ‘ ); Writeln ( ‘ ********************************** ’ ); Writeln ( ‘ ‘ ); Readln; End F Giaới thờch chổồng trỗnh trón: - Khai baùo: Uses CRT; ð khai bạo thỉ viãûn CRT, cọ sỉí dủng lóỷnh ClrScr - Lóỷnh ClrScr; lau saỷch maỡn hỗnh (Clear Screen) - Caïc lãûnh Writeln ( ) ð xuáút maỡn hỗnh nọỹi dung bón dỏỳu ( ) vaỡ xuọỳng doỡng - Lóỷnh Readln; dổỡng chổồng trỗnh, phỉång phạp ny dng âãø hiãøn thë näüi dung sau thỉûc hiãûn cạc lãûnh bãn trãn v chåì ngỉåìi dng áún phêm báút k âãø tiãúp tủc thỉûc hiãûn cạc lãûnh kãú sau Trong trỉåìng håüp trãn, kãú tióỳp laỡ tổỡ khoaù End nón chổồng trỗnh õổồỹc kóỳt thục sau cọ mäüt phêm báút k âỉåüc áún Vê duû 3: Program TinhTong; Uses CRT; Begin ClrScr; Write ( ‘ 30 + 40 + 15 = ‘, 30 + 40 + 15 ); Readln; End Kãút qu: Mạy thỉûc hiãûn phẹp v hiãøn thë 30 + 40 + 15 = 85 Trang – Giaïo trỗnh Lỏỷp trỗnh Pascal cn baớn F Trong cáu lãûnh Write åí trãn, cọ hai thnh pháưn, biãøu thæïc thæï nháút: ‘30 + 40 +15 = ’ âæåüc hiãøu l mäüt chùi phi âỉåüc hiãøn thë ngun vàn cọ càûp dáúu ‘ ‘ åí hai âáưu Thnh pháưn thỉï hai âỉåüc cạch våïi thnh pháưn thỉï nháút bàịng dáúu ‘,’ v khäng cọ càûp dáúu ‘ ‘ hai âáưu nãn âỉåüc täøng v tr vãư giạ trë ca biãøu thỉïc _ o²o _ Trang – Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn BAèI : CAẽC KHAẽI NIM C BAN CUA NGN NGặẻ PASCAL I Cạc tỉì khoạ (Key word) ngän ngỉỵ Pascal: Cạc tỉì khoạ l cạc tỉì dng âãø khai bạo, âàût tãn cho âäúi tỉåüng Pascal, ta âàût tãn cho âäúi tỉåüng no âọ, khäng âỉåüc âàût trng tãn våïi cạc tỉì khoạ Bng tỉì khoạ ngän ngỉỵ Pascal gäưm: and, array, asm, begin, case, const, constructor, destructor, div, do, downto, else, end, file, for, function, goto, if, implementation, in, inline, interface, label, mod, nil, not, object, of, or, packed, procedure, program, record, repeat, set, shl, shr, string, then, to, type, unit, until, uses, var, while, with, xor Turbo Pascal khäng phán biãût k tỉû thỉåìng hồûc hoa Vê dủ, cạc cạch viãút sau cọ nghéa nhæ nhau: Begin, BEGIN, begin, beGIN, bEGIN, II Cạc kiãøu dỉỵ liãûu cå bn: Cạc kiãøu dỉỵ liãûu daûng säú nguyãn: a Kiãøu Byte: Kiãøu Byte thuäüc kiãøu dỉỵ liãûu biãøu diãùn cạc giạ trë säú ngun tỉì âãún 255 Kiãøu Byte chiãúm byte trãn bäü nhåï b Kiãøu Integer: Kiãøu Integer l kiãøu dỉỵ liãûu biãøu diãùn cạc giạ trë säú ngun tỉì 32768 âãún 32767 Kiãøu Integer chiãúm bytes trãn bäü nhåï c Kiãøu Shortint: Kiãøu Shortint l kiãøu dỉỵ liãûu biãøu diãùn cạc giạ trë säú ngun tỉì 128 âãún 127 Kiãøu Shortint chiãúm byte trãn bäü nhåï d Kiãøu Word: Kiãøu Word l kiãøu dỉỵ liãûu biãøu diãùn cạc giạ trë ngun tỉì âãún 65535 Kiãøu Word l kiãøu säú khäng biãøu diãùn âỉåüc giạ trë ám Kiãøu Word chiãúm bytes trãn bäü nhåï e Kiãøu Longint: Kiãøu Longint biãøu diãùn cạc giạ trë säú ngun tỉì -2.147.483.648 âãún 2.147.483.647 Kiãøu Longint chiãúm bytes trãn bäü nhåï Cạc kiãøu dỉỵ liãûu dảng säú cọ pháưn biãøu diãùn tháûp phán: a Kiãøu Single: Laì táûp håüp cạc säú theo kiãøu dáúu ‘.‘ âäüng giåïi hản tỉì 1.5E -45 âãún 3.4 E38 (1,5 x 10-45 âãún 3,4 x 1038) Kiãøu Single chiãúm bytes trãn bäü nhåï b Kiãøu Real: L táûp håüp cạc säú theo kiãøu dáúu ‘.‘ âäüng giåïi hản tỉì 2.9E -39 âãún 1.7E 38 (2,9 x10 - 39 âãún 1,7 x 10 38) Kiãøu Real chiãúm bytes trãn bäü nhåï Trang Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn — –9— c Kiãøu Double: L táûp håüp cạc säú theo kiãøu dáúu ‘,‘ âäüng giåïi hản tỉì 5.0E -324 âãún 1.7E 308 (5,0 x10 - 324 âãún 1,7 x 10 308) Kiãøu Double chiãúm bytes trãn bäü nhåï Kiãøu Char (k tỉû): Kiãøu Char dng âãø biãøu diãùn cạc giạ trë l cạc k tỉû thüc bng chỉỵ cại: ‘A’, ‘b’, ‘x’, cạc säú: hồûc cạc k tỉû âàûc biãût : ‘!’, ‘@’, ‘#’, ‘$’, ‘%’, ‘&’, ‘*’, Âãø biãøu diãùn thäng tin, ta cáưn phi sàõp xãúp cạc k tỉû theo mäüt chøn no âọ v mäùi cạch sàõp xãúp âọ gi l bng m, thäng dủng nháút l bng m ASCII (American Standard Code for Information Interchange) Bng m ASCII cọ 256 k tỉû âỉåüc gạn m säú tỉì 255, mäùi k tỉû cọ mäüt m säú nháút âënh, vê dủ : k tỉû ‘A’ cọ m säú l 65, ‘a’ cọ m säú l 97 bng m ASCII,.v.v Âãø hiãøn thë bng m ASCII, chảy chổồng trỗnh sau: Program ASCI I_Table; Uses CRT; Var I : Integer; Begin ClrScr; For I := to 255 Write( I, ’ = ’ , CHR( I ), ’ Readln; End ‘ ); Kiãøu Logic: Kiãøu logic l kiãøu biãøu diãùn hai trảng thại l âụng (True) hồûc sai (False) Tỉì khoạ âãø khai bạo cho kiãøu logic l BOOLEAN Vê dủ: Var Co : Boolean; Co := True; Kiãøu String (chuäùi kyï tæû): String l kiãøu dỉỵ liãûu chỉïa cạc giạ trë l nhọm cạc k tỉû hồûc chè mäüt k tỉû, kãø c chùi räùng Âäü di täúi âa ca mäüt biãún kiãøu String l 255, tỉïc l cọ thãø chỉïa täúi âa mäüt dy gäưm 255 k tỉû Cụ phạp khai baïo: (1) Var Biãún_1, Biãún_2, Biãún_n: String; Trang – Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn Hoỷc 10 — (2) Var Biãún_1, Biãún_2, Biãún_n: String [30]; Caïch khai bạo (1) s cho phẹp biãún HoTen nháûn täúi âa 255 k tỉû Cạch (2) cho phẹp biãún HoTen nháûn täúi âa 30 k tỉû Ư Ghi chụ: Cạch sổớ duỷng kióứu dổợ lióỷu String seợ õổồỹc trỗnh baỡy chi tiãút åí bi III Cạc hm xỉí l dỉỵ liãûu cå bn ca ngän ngỉỵ Pascal: - SQR(x) bỗnh phổồng cuớa mọỹt sọỳ nguyón hay thổỷc - ABS(x) trë tuyãût âäúi cuía x - SQRT(x) càn báûc hai ca x - SIN(x) giạ trë Sin(x) våïi x l Radian - COS(x) giạ trë Cos(x) våïi x l Radian - ARCTAN(x) giạ trë Arctan(x) - LN(x) haìm logaric cå säú e = 2.718 - EXP(x) haìm ex - TRUNC(x) càõt b pháưn tháûp phán ca x nãúu cọ Vê dủ: Trunc(4.86) = 4, - ROUND(x) cho säú ngun gáưn x nháút Vê dủ: Round(1.6) = 2, Round(- - PRED(x) Trunc(-3.2) = 23.68) = -24, Round(1.5) = cho giạ trë âỉïng trỉåïc x, âäúi säú x cọ thãø l kiãøu logic, kiãøu ngun hồûc kiãøu k tỉû Vê dủ: Pred(‘B’); ð cho giạ trë ‘A’, Pred(2) cho giaï trë 1, Pred(True) cho giaï trë False Tuy nhiãn, Pred(False) lải khäng cho âỉåüc giạ trë no giạ trë False âỉïng trỉåïc giạ trë True âäúi våïi kiãøu Boolean - SUCC(x) cho giạ trë âỉïng sau x, âäúi säú x cọ thãø l kiãøu logic, kiãøu ngun hồûc kiãøu k tỉû Vê dủ: Succ(‘B’); ð cho giaï trë ‘C’, Succ(2) cho giaï trë 3, Succ(False) cho giạ trë True - ORD(x) cho säú thỉï tỉû ca k tỉû x bng m ASCII Vê dủ: Ord(‘A’) - CHR(x) tr vãư k tỉû thỉï x bng m ASCII Vê dủ: Chr(65) = ‘A’, = 65, Ord(‘a’) = 97, Chr(50) = 2, Trang 10 ... Start/Program/Borland Pascal Nóỳu chổồng trỗnh Pascal chổa õổồỹc caỡi va? ??o menu Start, cọ thãø dng Windows Explorer chuøn âãún táûp tin BP.EXE hồûc TURBO.EXE v khåíi âäüng Pascal bàịng cạch chảy... LabelName2, LabelNameN; Const Const1 = n, Const2 = m, ConstN = k; Type Type1 = AnyType; Var Var1, Var2, VarN : Type; Begin { Caùc lóỷnh cuớa chổồng trỗnh } End Ư Gii thêch cáúu trục cạc khai bạo... trỗnh Pascal càn bn — –8— BI : CẠC KHẠI NIÃÛM C BAN CUA NGN NGặẻ PASCAL I Caùc tổỡ khoaù (Key word) ngän ngỉỵ Pascal: Cạc tỉì khoạ l cạc tỉì dng âãø khai bạo, âàût tãn cho âäúi tæåüng Pascal,