Giáo trình lập trình Pascal căn bản

90 702 5
Giáo trình lập trình Pascal căn bản

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

Thông tin tài liệu

Giáo trình lập trình Pascal căn bản

Giạo trçnh Láûp trçnh Pascal càn bn — – 1 — Trang 1 BI 1: GIÅÏI THIÃÛU NGÄN NGỈỴ PASCAL V CẠC VÊ DỦ ÂÅN GIN I. Xút xỉï ngän ngỉỵ Pascal: Pascal l ngän ngỉỵ láûp trçnh cáúp cao do 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 Phạp). Ngän ngỉỵ láûp trçnh Pascal cọ âàûc âiãøm: ngỉỵ phạp, ngỉỵ nghéa âån gin v cọ tênh logic; cáúu trục chỉång trçnh r rng, dãù hiãøu (thãø hiãûn tỉ duy láûp trçnh cáúu trục); dãù sỉía chỉỵa, ci tiãún. Trong quạ trçnh phạt triãøn, Pascal â phạt huy âỉåüc ỉu âiãøm v âỉåüc dng âãø tảo ra nhiãưu ỉïng dủng trãn nhiãưu lénh vỉûc khạc nhau. Cạc täø chỉïc v cäng ty chun vãư mạy tênh dỉûa trãn Pascal chøn â phạt triãøn thãm v tảo ra cạc chỉång trçnh dëch ngän ngỉỵ Pascal våïi nhiãưu pháưn bäø sung, gim thiãøu khạc nhau. 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 nhau xút bn, TURBO PASCAL ca hng Borland t ra cọ nhiãưu ỉu âiãøm nháút v hiãûn nay â tråí thnh ngän ngỉỵ láûp trçnh phäø biãún nháút trãn thãú giåïi sỉí dủng trong lénh vỉûc ging dảy v láûp trçnh chun nghiãûp. Chè trong 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). Cạc táûp tin chênh ca ngän ngỉỵ Turbo Pascal gäưm: - Turbo.exe: chỉång trçnh soản tho, dëch v 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ỉỵ trong chãú âäü âäư hoả. - Cạc táûp tin cọ pháưn måí räüng BGI (EGAVGA.BGI, HERC.BGI, CGA.BGI, .): âãø âiãưu khiãøn cạc loải mn hçnh tỉång ỉïng khi dng âäư hoả. II. Khåíi âäüng: – Giạo trçnh Láûp trçnh Pascal càn bn — – 2 — Trang 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 nhỉ 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 <Enter>. - Khåíi âäüng tỉì Windows: chn menu Start/Program/Borland Pascal. Nãúu chỉång trçnh Pascal chỉa âỉåüc ci vo menu Start, bản 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 trong khi soản tho. - 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: Chảy chỉång trçnh. - Alt - F5: Xem kãút qu chảy chỉång trçnh. - Alt - X: Thoạt khi mn hçnh soản tho chỉång trçnh Pascal. IV. Cáúu trục mäüt chỉång trçnh Pascal: 1. Cáúu trục cå bn: Chỉång trçnh Pascal âån gin nháút phi cọ hai tỉì khoạ Begin v End nhỉ sau: Begin End. Chỉång trçnh trãn tuy khäng lm gç khi chảy (áún Ctrl - F9) nhỉng l mäüt chỉång trçnh håüp lãû do 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 bạo hiãûu kãút thục chỉång trçnh, âáy l âiãưu bàõt büc phi cọ trong mäüt chỉång trçnh. Tỉì khoạ 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 nọ v kãút thục tải tỉì khoạ End cọ dáúu cháúm “.”. Khäúi lãûnh nàòm trong 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. Ngoi ra, nãúu sau tỉì khoạ End khäng cọ dáúu hồûc cọ dáúu “;” thç âọ cọ thãø l khäúi chỉång trçnh con, khäúi lãûnh ca hm hồûc khäúi lãûnh trong chỉång trçnh. Trong chỉång trçnh cọ thãø cọ nhiãưu khäúi lãûnh, tỉïc cọ thãø cọ nhiãưu càûp tỉì khoạ Begin v End. 2. Phỉång phạp khai bạo v täø chỉïc cáúu trục mäüt chỉång trçnh Pascal: – Giạo trçnh Láûp trçnh Pascal càn bn — – 3 — Trang 3 Viãûc âàût cạc pháưn khai bạo v soản tho 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 { Cạc lãûnh ca chỉång trçnh } End. Ư Gii thêch cáúu trục cạc khai bạo trãn: Nãúu cọ pháưn khai bạo no cáưn cho chỉång trçnh thç phi tn 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 bạo tãn chỉång trçnh, ProgName l tãn chỉång trçnh, tãn ny khạc våïi tãn táûp tin. Tãn chỉång trçnh phi tn theo quy tàõc: + khäng cọ k tỉû träúng xen giỉỵa. + khäng âàût säú åí k tỉû âáưu tiãn. + trong pháưn tãn khäng chỉïa cạc k tỉû âàût biãût nhỉ: ‘!’, ‘@’, ‘#’, ‘$’, ‘%’, ‘^’, ‘&’, ‘* ’, ‘(‘, ‘)’, ‘-‘, ‘+’, ‘/’, ‘\’, ‘.’, ’,’,.v.v. + kãút thục phi cọ dáúu ‘;’. + pháưn ny cọ thãø khäng cọ. 4 Vê dủ: mäüt cạch khai bạo tãn chỉång trçnh: Program TimUSCLN; Begin . End. - Uses: Tỉì khoạ ny dng âãø khai bạo viãûc sỉí dủng Unit (thỉ viãûn) cho chỉång trçnh. Thỉ viãûn l táûp håüp cạc hm, th tủc do ngän ngỉỵ Pascal cung cáúp km theo hồûc cng cọ thãø do ngỉåìi láûp trçnh tảo ra âãø sỉí dủng. Ta khai bạo thỉ viãûn thäng qua tãn ca thỉ viãûn, v trong chỉång trçnh âọ ta s cọ thãø sỉí dủng cạc th tủc hồûc – Giạo trçnh Láûp trçnh Pascal càn bn — – 4 — Trang 4 cạc hm cọ trong 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 chuøn vo chỉång trçnh m ta khäng cáưn phi khai bạo. Vê dủ mäüt cạch khai bạo thỉ viãûn: . Uses CRT, GRAPH; . - Label: Dng âãø khai bạo cạc nhn cho chỉång trçnh. Nhn l cạc tãn dng âãø âạnh dáúu trong chỉång trçnh âãø lãûnh GOTO nhy âãún âụng vë trê âọ. Viãûc sỉí dủng lãûnh GOTO âỉåüc âãư cáûp åí bi 4. 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ỉí dủng trong chỉång trçnh, khi bạo hàòng säú l viãûc cäú âënh mäüt vi giạ trë no âọ trong chỉång trçnh thäng qua tãn hàòng, vê dủ cạ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ỉì khoạ ny, ta cọ thãø tỉû tả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ỉí dủng trong viãûc láûp trçnh. Cạc khạ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 cạc biãún säú âỉåüc sỉí dủng trong chỉång trçnh. Biãún säú l cạc giạ trë cọ thãø thay âäøi âỉåüc trong sút quạ trçnh chảy ca chỉång trçnh. Khại niãûm vãư biãún säú ráút quan trng trong viãûc láûp trçnh (khại niãûm ny âỉåüc trçnh by k åí bi 3). Mäüt vê dủ vãư cạch khai bạo biãún: . – Giạo trçnh Láûp trçnh Pascal càn bn — – 5 — Trang 5 Var HoDem, Ten : String; N : Integer; . Ư 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, âãø tảo låìi chụ thêch, ta sỉí dủng càûp dáúu { .} hồûc (* .*) läưng cạc cáu chụ thêch vo bãn trong 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: 4 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 Gii thêch chỉång trçnh GioiThieu: - Begin: Tỉì khoạ cho biãút bàõt âáưu chỉång trçnh. - Writeln: l th tủc xút näüi dung cạc thnh pháưn bãn trong càûp dáúu ( .) lãn mn hçnh v chuøn con tr xúng dng. Bãn trong 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 trong càûp dáúu ( .) phi cạch nhau 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 nọ hay sau nọ bàòng dáúu ‘,‘. Chùi k tỉû mún hiãøn thë ngun vàn phi âỉåüc âàût trong càûp dáúu ‘ ‘. - Write: l th tủc xút näüi dung cạc thnh pháưn bãn trong càûp dáúu ( .) lãn mn hçnh, th tủc ny cọ chỉïc nàng tỉång tỉû Writeln nhỉng khäng chuøn con tr xúng dng. - End: l tỉì khoạ cho biãút kãút thục chỉång trçnh. - Cạc dng lãûnh nàòm giỉỵa Begin v End l lãûnh m chỉång trçnh cáưn phi thỉûc hiãûn. - Âãø xem chỉång trçnh trãn, ta chảy bàòng Ctrl - F9 v xem lải bàòng Alt - F5. – Giạo trçnh Láûp trçnh Pascal càn bn — – 6 — Trang 6 4 Vê dủ 2: 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 Gii thêch chỉång trçnh trãn: - Khai bạo: Uses CRT; ð khai bạo thỉ viãûn CRT, do cọ sỉí dủng lãûnh ClrScr. - Lãûnh ClrScr; ð lau sảch mn hçnh (Clear Screen). - Cạc lãûnh Writeln ( .) ð xút ra mn hçnh näüi dung bãn trong dáúu ( .) v xúng dng. - Lãûnh Readln; ð dỉìng chỉång trçnh, phỉång phạp ny dng âãø hiãøn thë näüi dung sau khi 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 nọ. Trong trỉåìng håüp trãn, kãú tiãúp l tỉì khoạ End nãn chỉång trçnh âỉåüc kãút thục sau khi cọ mäüt phêm báút k âỉåüc áún. 4 Vê dủ 3: Program TinhTong; Uses CRT; Begin ClrScr; Write ( ‘ 30 + 40 + 15 = ‘, 30 + 40 + 15 ); Readln; End. 1 Kãút qu: Mạy thỉûc hiãûn phẹp tênh v hiãøn thë 30 + 40 + 15 = 85 Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn 7 Trang 7 F Trong cỏu lóỷnh Write ồớ trón, coù hai thaỡnh phỏửn, bióứu thổùc thổù nhỏỳt: 30 + 40 +15 = õổồỹc hióứu laỡ mọỹt chuọựi phaới õổồỹc hióứn thở nguyón vn do coù cỷp dỏỳu ồớ hai õỏửu. Thaỡnh phỏửn thổù hai õổồỹc caùch vồùi thaỡnh phỏửn thổù nhỏỳt bũng dỏỳu , vaỡ do khọng coù cỷp dỏỳu hai õỏửu nón noù õổồỹc tờnh tọứng vaỡ traớ vóử giaù trở cuớa bióứu thổùc. _________ oo _________ – Giạo trçnh Láûp trçnh Pascal càn bn — – 8 — Trang 8 BI 2 : CẠC KHẠI NIÃÛM CÅ BN CA NGÄN NGỈỴ PASCAL I. Cạc tỉì khoạ (Key word) trong ngän ngỉỵ Pascal: Cạc tỉì khoạ l cạc tỉì dng âãø khai bạo, âàût tãn cho âäúi tỉåüng trong Pascal, khi 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ạ trong 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: 1. Cạc kiãøu dỉỵ liãûu dảng säú ngun: a. Kiãøu Byte: Kiãøu Byte thüc kiãøu dỉỵ liãûu biãøu diãùn cạc giạ trë säú ngun tỉì 0 âãún 255. Kiãøu Byte chiãúm 1 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 2 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 1 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ỉì 0 âãún 65535. Kiãøu Word l kiãøu säú khäng biãøu diãùn âỉåüc giạ trë ám. Kiãøu Word chiãúm 2 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 4 bytes trãn bäü nhåï. 2. 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: L táûp håüp cạc säú theo kiãøu dáúu ‘.‘ âäüng trong 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 4 bytes trãn bäü nhåï. b. Kiãøu Real: L táûp håüp cạc säú theo kiãøu dáúu ‘.‘ âäüng trong 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 6 bytes trãn bäü nhåï. – Giạo trçnh Láûp trçnh Pascal càn bn — – 9 — Trang 9 c. Kiãøu Double: L táûp håüp cạc säú theo kiãøu dáúu ‘,‘ âäüng trong 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 8 bytes trãn bäü nhåï. 3. 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 con säú: 0 9 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ỉì 0 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 trong bng m ASCII,.v.v. Âãø hiãøn thë bng m ASCII, bản chảy chỉång trçnh sau: Program ASCI I_Table; Uses CRT; Var I : Integer; Begin ClrScr; For I := 0 to 255 do Write( I, ’ = ’ , CHR( I ), ’ ‘ ); Readln; End. 4. 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. 4 Vê dủ: Var Co : Boolean; Co := True; 5. Kiãøu String (chùi k 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 nọ cọ thãø chỉïa täúi âa mäüt dy gäưm 255 k tỉû. Cụ phạp khai bạo: (1) Var Biãún_1, Biãún_2, Biãún_n: String; – Giạo trçnh Láûp trçnh Pascal càn bn — – 10 — Trang 10 Hồûc (2) Var Biãún_1, Biãún_2, Biãún_n: String [30]; Cạ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ỉí dủng kiãøu dỉỵ liãûu String s âỉåüc trçnh by chi tiãút åí bi 8. III. Cạc hm xỉí l dỉỵ liãûu cå bn ca ngän ngỉỵ Pascal: - SQR(x) bçnh phỉång ca mäüt säú ngun hay thỉûc. - ABS(x) trë tuût âäúi ca x. - SQRT(x) càn báûc hai ca x. - SIN(x) tênh giạ trë Sin(x) våïi x l Radian. - COS(x) tênh giạ trë Cos(x) våïi x l Radian. - ARCTAN(x) tênh giạ trë Arctan(x). - LN(x) hm logaric cå säú e = 2.718. - EXP(x) hm ex. - TRUNC(x) càõt b pháưn tháûp phán ca x nãúu cọ. Vê dủ: Trunc(4.86) = 4, Trunc(-3.2) = 4. - ROUND(x) cho säú ngun gáưn x nháút. Vê dủ: Round(1.6) = 2, Round(-23.68) = -24, Round(1.5) = 2. - PRED(x) 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 giạ trë 1, Pred(True) cho giạ trë False. Tuy nhiãn, Pred(False) lải khäng cho âỉåüc giạ trë no do 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 giạ trë ‘C’, Succ(2) cho giạ trë 3, Succ(False) cho giạ trë True. - ORD(x) cho säú thỉï tỉû ca k tỉû x trong bng m ASCII. Vê dủ: Ord(‘A’) = 65, Ord(‘a’) = 97, . - CHR(x) tr vãư k tỉû thỉï x trong bng m ASCII. Vê dủ: Chr(65) = ‘A’, Chr(50) = 2, . [...]... Lỏỷp trỗnh Pascal cn baớn – 1 — Trang 1 BAÌI 1: GIÅÏI THIU NGN NGặẻ PASCAL VAè CAẽC Vấ DU N GIAN I. Xút xỉï ngän ngỉỵ Pascal: Pascal l ngän ngỉỵ lỏỷp trỗnh cỏỳp cao do Niklaus Wirth , giaù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ù... phaùt trióứn, Pascal õaợ phaùt huy âỉåüc ỉu âiãøm v âỉåüc dng âãø tảo ra nhiãưu ỉïng dủng trãn nhiãưu lénh vỉûc khạc nhau. Cạc täø chỉïc v cäng ty chun vãư mạy tênh dỉûa trãn Pascal chøn â phạt triãøn thãm v tảo ra cạc chổồng trỗnh dởch ngọn ngổợ Pascal vồùi nhióửu phỏửn bọứ sung, gim thiãøu khạc nhau. Vê dủ: TURBO PASCAL ca hng Borland (M), QUICK PASCAL ca hng Microsoft, UCSD PASCAL (University... 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 nhau xút bn, TURBO PASCAL ca hng Borland t ra cọ nhiãưu ỉu âiãøm nháút v hiãûn nay â tråí thnh ngän ngỉỵ láûp trỗnh phọứ bióỳn nhỏỳt trón thóỳ giồùi sổớ duỷng trong lộnh vổỷc giaớng daỷy vaỡ lỏỷp trỗnh chuyón nghióỷp. Chố trong vng vi nàm Turbo Pascal âỉåüc ci... tam giạc hay khäng? Nãúu âụng l ba cảnh ca tam giaùc thỗ Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn – 5 — Trang 5 Var HoDem, Ten : String; N : Integer; Ư 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ổớ duỷng càûp dáúu { } hồûc (* *) läưng cạc... vióỷc thổỷc hióỷn noù seợ laỡm chỏỳm dổùt chổồng trỗnh. 4 Vờ duỷ: Chổồng trỗnh cổù nhừc laỷi cỏu Welcome to Turbo Pascal Language sau mọựi lỏửn ỏỳn mọỹt phờm. Chổồng trỗnh seợ thoaùt khi áún phêm E hoàûc e . Uses CRT; Label L1; Var TL : Char; Begin L1: Writeln( ‘ Welcome to Turbo Pascal Language ! ‘ ); TL := Readkey; { Chåì mäüt phêm âỉåüc áún, giạ trë âỉåüc âàût vo biãún TL, âáy l hm ca... Writeln( ‘ Dien tich = ‘, s : 0 : 4, ‘. The tich = ‘, v : 0 :4 ); Write( ‘ Ban co tiep tuc khong ?(C/K) ‘ ); Readln(Reply); Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn – 4 — Trang 4 cạc hm cọ trong 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... 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). Cạ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... (thổ vióỷn) cho chổồng trỗnh. Thổ viãûn l táûp håüp cạc hm, th tủc do ngän ngỉỵ Pascal cung cáúp km theo hồûc cng cọ thãø do ngổồỡi lỏỷp trỗnh taỷo ra õóứ sổớ duỷng. Ta khai bạo thỉ viãûn thäng qua tãn ca thỉ viãûn, vaỡ trong chổồng trỗnh õoù ta seợ coù thóứ sổớ dủng cạc th tủc hồûc Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn – 6 — Trang 6 4 Vê duû 2: Program DonXinPhep; Uses CRT;... ‘9’; { Kiãøu gäưm cạc k tỉû säú tỉì ‘0’ âãún ‘9’} Ngay = (Hai, Ba, Tu, Nam, Sau, Bay, ChuNhat); Ngay_Lam_Viec = Hai Bay; {Kiãøu Ngay_Lam_Viec l khon con ca kiãøu Ngay } Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn – 30 — Trang 30 ‘f’ : Begin NoSound; Sound(349); End; ‘s’ : Begin NoSound; Sound(392); End; ‘l’ : Begin NoSound; Sound(440); End; ‘x’ : Begin NoSound; Sound(494); End; ... logic > nhỏỷn giaù trở FALSE thỗ maùy láûp tỉïc thoạt khi vng làûp. Nhỉ váûy lãûnh WHILE dng âãø làûp âi làûp lải mäüt cäng viãûc trong khi âiãưu kiãûn cn âỉåüc tha mn. Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn – 7 — Trang 7 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 do cọ càûp dáúu . Trang 1 BI 1: GIÅÏI THIÃÛU NGÄN NGỈỴ PASCAL V CẠC VÊ DỦ ÂÅN GIN I. Xút xỉï ngän ngỉỵ Pascal: Pascal l ngän ngỉỵ láûp trçnh cáúp cao do Niklaus. âãư 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 Phạp). Ngän ngỉỵ láûp trçnh Pascal cọ âàûc âiãøm: ngỉỵ

Ngày đăng: 30/08/2012, 10:14

Hình ảnh liên quan

- Lệnh ClrScr; ð lau sạch màn hình (Clear Screen). - Giáo trình lập trình Pascal căn bản

nh.

ClrScr; ð lau sạch màn hình (Clear Screen) Xem tại trang 6 của tài liệu.
Dạng (2): In lên màn hình giá trị các biểu thức tại vị trí hiện hành của con trỏ theo thứ  tự viết trong lệnh - Giáo trình lập trình Pascal căn bản

ng.

(2): In lên màn hình giá trị các biểu thức tại vị trí hiện hành của con trỏ theo thứ tự viết trong lệnh Xem tại trang 16 của tài liệu.
4 Ví dụ: Nhập một ma trận m hàng ,n cột từ bàn phím. Tính và in ra màn hình tổng - Giáo trình lập trình Pascal căn bản

4.

Ví dụ: Nhập một ma trận m hàng ,n cột từ bàn phím. Tính và in ra màn hình tổng Xem tại trang 42 của tài liệu.
4 Ví dụ 3: Lập một thủ tục để tính đồng thời diện tích và thể tích hình cầu. - Giáo trình lập trình Pascal căn bản

4.

Ví dụ 3: Lập một thủ tục để tính đồng thời diện tích và thể tích hình cầu Xem tại trang 47 của tài liệu.
4 Ví dụ1: Dịch chuyển con trỏ và in một số dòng chữ trên màn hình. - Giáo trình lập trình Pascal căn bản

4.

Ví dụ1: Dịch chuyển con trỏ và in một số dòng chữ trên màn hình Xem tại trang 50 của tài liệu.
1.1. Viết chương trình hiển thị lên màn hình nội dung sau: *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * *  *  *  *  *  *  *  - Giáo trình lập trình Pascal căn bản

1.1..

Viết chương trình hiển thị lên màn hình nội dung sau: * * * * * * * * * * * * * * * * * * * * * * * * Xem tại trang 78 của tài liệu.
b. Viết chương trình mô tả sự hoạt động của mạch điện (hình dưới) khi có hai công - Giáo trình lập trình Pascal căn bản

b..

Viết chương trình mô tả sự hoạt động của mạch điện (hình dưới) khi có hai công Xem tại trang 81 của tài liệu.
d. Viết chương trình nhập vào chiều dài, chiều rộng của hình chữ nhật và in hình chữ nhật đó ra màn hình bằng các dấu * - Giáo trình lập trình Pascal căn bản

d..

Viết chương trình nhập vào chiều dài, chiều rộng của hình chữ nhật và in hình chữ nhật đó ra màn hình bằng các dấu * Xem tại trang 82 của tài liệu.

Từ khóa liên quan

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan