text:
Giáo trình: Lập trình Pascal căn bản
Chia sẻ: Badkid Badkid | Ngày: | Loại File: PDF | Số trang:90
lượt xem 3.268
download
Giáo trình: Lập trình Pascal căn bản
Giới thiệu ngôn ngữ Pascal, các khái niệm cơ bản của ngôn ngữ Pascal,Ngôn ngữ lập trình Pascal có đặc điểm: ngữ pháp, ngữ nghĩa đơn giản và có tính logic; cấu trúc chương trình rõ ràng, dễ hiểu (thể hiện tuy duy lập trình cấu trúc); dễ sử chữa, cải tiến....
Bình luận(0) Đăng nhập để gửi bình luận!
Nội dung Text: Giáo trình: Lập trình Pascal căn bản
- Giáo trình Lập trình Pascal căn bản
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –1— BAÌI 1: GIÅÏI THIÃÛU NGÄN NGÆÎ PASCAL VAÌ CAÏC VÊ DUÛ ÂÅN GIAÍN I. Xuáút xæï ngän ngæî Pascal: Pascal laì ngän ngæî láûp trçnh cáúp cao do Niklaus Wirth, giaïo sæ âiãûn toaïn træåìng âaûi hoüc kyî thuáût Zurich (Thuñy Sé), âãö xuáút nàm 1970 våïi tãn Pascal âãø kyí niãûm nhaì toaïn hoüc vaì triãút hoüc näøi tiãúng Blaise Pascal (ngæåìi Phaïp). Ngän ngæî láûp trçnh Pascal coï âàûc âiãøm: ngæî phaïp, ngæî nghéa âån giaín vaì coï tênh logic; cáúu truïc chæång trçnh roî raìng, dãù hiãøu (thãø hiãûn tæ duy 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î phaït huy âæåüc æu âiãøm vaì âæåüc duìng âãø taûo ra nhiãöu æïng duûng trãn nhiãöu lénh væûc khaïc nhau. Caïc täø chæïc vaì cäng ty chuyãn vãö maïy tênh dæûa trãn Pascal chuáøn âaî phaït triãøn thãm vaì taûo ra caïc chæång trçnh dëch ngän ngæî Pascal våïi nhiãöu pháön bäø sung, giaím thiãøu khaïc nhau. Vê duû: TURBO PASCAL cuía haîng Borland (Myî), QUICK PASCAL cuía haîng Microsoft, UCSD PASCAL (University of California at San Diego), ANSI PASCAL (American National Standard Institute),.v.v. So våïi nhiãöu saín pháøm Pascal cuía nhiãöu täø chæïc vaì cäng ty khaïc nhau xuáút baín, TURBO PASCAL cuía haîng Borland toí ra coï nhiãöu æu âiãøm nháút vaì hiãûn nay âaî tråí thaình 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 voìng vaìi nàm Turbo Pascal âæåüc caíi tiãún qua nhiãöu phiãn baín : 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 cuía 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 caïc âån vë (Unit) chuáøn âãø chaûy våïi Turbo.exe. Muäún sæí duûng caïc lãûnh âäö hoüa, phaíi coï caïc táûp tin sau: - Graph.tpu: Âån vë (Unit) chæïa caïc lãûnh âäö hoaû. - Caïc táûp tin coï pháön måí räüng CHR (SANS.CHR, TRIP.CHR, GOTH.CHR,.v.v.): Chæïa caïc kiãøu chæî trong chãú âäü âäö hoaû. - Caïc táûp tin coï 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 khi duìng âäö hoaû. II. Khåíi âäüng: Trang 1
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –2— Ta coï thãø khåíi âäüng Pascal tæì Windows hoàûc MS-DOS, chuyãøn âãún thæ muûc BP hoàûc TP vaì chaûy táûp tin BP.EXE hay TURBO.EXE. Hai caïch khåíi âäüng trãn thæûc hiãûn nhæ sau: - Khåíi âäüng tæì dáúu nhàõc cuía MS-DOS: Chuyãøn âãún thæ muûc BP hoàûc TP nåi chæïa táûp tin BP.EXE hoàûc TURBO.EXE, goî BP hoàûc TURBO vaì áún . - Khåíi âäüng tæì Windows: choün menu Start/Program/Borland Pascal. Nãúu chæång trçnh Pascal chæa âæåüc caìi vaìo menu Start, baûn coï thãø duìng Windows Explorer chuyãøn âãún táûp tin BP.EXE hoàûc TURBO.EXE vaì khåíi âäüng Pascal bàòng caïch chaûy táûp tin naìy. III. Caïc phêm chæïc nàng cáön biãút cuía ngän ngæî Pascal: - F2: Læu chæång trçnh trong khi soaûn thaío. - F3: Taûo mäüt file måïi hoàûc måí mäüt file cuî. - 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: 1. Cáúu truïc cå baín: Chæång trçnh Pascal âån giaín nháút phaíi coï hai tæì khoaï Begin vaì End nhæ sau: Begin End. Chæång trçnh trãn tuy khäng laìm gç khi chaûy (áún Ctrl - F9) nhæng laì mäüt chæång trçnh håüp lãû do häüi âuí âiãöu kiãûn cáön thiãút laì coï hai tæì khoaï Begin vaì End. Tæì khoaï End coï keìm dáúu “.” phêa sau baïo hiãûu kãút thuïc chæång trçnh, âáy laì âiãöu bàõt buäüc phaíi coï trong mäüt chæång trçnh. Tæì khoaï Begin trãn âæåüc trçnh biãn dëch hiãøu laì bàõt âáöu thæûc hiãûn caïc lãûnh sau noï vaì kãút thuïc taûi tæì khoaï End coï dáúu cháúm “.”. Khäúi lãûnh nàòm trong càûp tæì khoaï Begin vaì End nãúu coï dáúu cháúm theo sau coìn goüi laì 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 trong chæång trçnh. Trong chæång trçnh coï thãø coï nhiãöu khäúi lãûnh, tæïc coï thãø coï nhiãöu càûp tæì khoaï Begin vaì End. 2. Phæång phaïp khai baïo vaì täø chæïc cáúu truïc mäüt chæång trçnh Pascal: Trang 2
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –3— Viãûc âàût caïc pháön khai baïo vaì soaû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 truïc caïc khai baïo trãn: Nãúu coï 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ê duû: pháön khai baïo thæ viãûn (USES) khäng thãø âàût sau pháön khai baïo hàòng säú (CONST) hoàûc sau (VAR)... sau mäùi pháön khai baïo phaíi coï dáúu ‘;’. - Program: Tæì khoaï naìy duìng âãø 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äú åí kyï tæû âáöu tiãn. + trong pháön tãn khäng chæïa caïc kyï tæû âàût biãût nhæ: ‘!’, ‘@’, ‘#’, ‘$’, ‘%’, ‘^’, ‘&’, ‘* ’, ‘(‘, ‘)’, ‘-‘, ‘+’, ‘/’, ‘\’, ‘.’, ’,’,.v.v. + kãút thuïc phaíi coï dáúu ‘;’. + pháön naìy coï thãø khäng coï. 4 Vê duû: mäüt caïch khai baïo tãn chæång trçnh: Program TimUSCLN; Begin ... End. - Uses: Tæì khoaï naìy duìng âãø khai baïo viãûc sæí duûng Unit (thæ viãûn) cho chæång trçnh. Thæ viãûn laì táûp håüp caïc haìm, thuí tuûc do ngän ngæî Pascal cung cáúp keìm theo hoàûc cuîng coï thãø do ngæåìi láûp trçnh taûo ra âãø sæí duûng. Ta khai baïo thæ viãûn thäng qua tãn cuía thæ viãûn, vaì trong chæång trçnh âoï ta seî coï thãø sæí duûng caïc thuí tuûc hoàûc Trang 3
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –4— caïc haìm coï trong thæ viãûn âoï. Caïc thæ viãûn chuáøn cuía ngän ngæî Pascal gäöm: CRT, DOS, GRAPH, GRAPH3, OVERLAY, PRINTER, SYSTEM vaì TURBO3. Trong âoï, 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 baïo. Vê duû mäüt caïch khai baï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 trong chæång trçnh âãø lãûnh GOTO nhaíy âãún âuïng vë trê âoï. Viãûc sæí duûng lãûnh GOTO âæåüc âãö cáûp åí baìi 4. Vê duû mäüt caïch khai baïo nhaîn: ... Label TH1, N2; ... - Const: Tæì khoaï naìy duìng âãø khai baïo caïc hàòng säú sæí duûng trong chæång trçnh, khi baïo hàòng säú laì viãûc cäú âënh mäüt vaìi giaï trë naìo âoï trong chæång trçnh thäng qua tãn hàòng, vê duû caïch khai baïo hàòng: ... Const k = 5, Max = 500, Ten = ‘Nam’; ... - Type: tæì khoaï duìng âãø khai baïo caïc kiãøu hàòng dæî liãûu sæí duû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 caïc kiãøu dæî liãûu chuáøn âãø tiãûn sæí duûng trong viãûc láûp trçnh. Caïc khaïi niãûm vãö dæî liãûu chuáøn vaì phæång phaïp taûo kiãøu dæî liãûu tæû taûo seî âæåüc giåïi thiãûu åí caïc pháön sau. Vê duû mäüt caïch âãø khai baïo mäüt kiãøu dæî liãûu tæû taûo: ... Type Day = Array [1..7] of String[8]; ... - Var: Tæì khoaï duìng âãø khai baïo caïc biãún säú âæåüc sæí duûng trong chæång trçnh. Biãún säú laì caïc giaï trë coï thãø thay âäøi âæåüc trong 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 trong viãûc láûp trçnh (khaïi niãûm naìy âæåüc trçnh baìy kyî åí baìi 3). Mäüt vê duû vãö caïch khai baïo biãún: ... Trang 4
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –5— Var HoDem, Ten : String; N : Integer; ... Ö Ghi chuï: - Thæï tæû caïc khai baïo trãn laì âiãöu bàõt buäüc, ta phaíi nàõm thæï tæû naìy cho duì mäüt säú khaï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 {...} hoàûc (*...*) läöng caïc cáu chuï thêch vaìo bãn trong noï. - Trãn mäüt doìng coï thãø viãút mäüt hoàûc nhiãöu cáu lãûnh. V. Caïc vê duû âån giaín laìm quen våïi ngän ngæî Pascal: 4 Vê duû 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 caïc thaình pháön bãn trong càûp dáúu (...) lãn maìn hçnh vaì chuyãøn con troí xuäúng doìng. Bãn trong càûp dáúu (...) coï thãø coï nhiãöu thaình pháön gäöm chuäùi kyï tæû (hàòng giaï trë chuäùi), biãún säú hoàûc haìm. Giæîa caïc thaình pháön trong càûp dáúu (...) phaíi caïch nhau bàòng dáúu ‘,‘ nãúu khäng cuìng loaûi, tæïc laì chuäùi kyï tæû phaíi âæåüc caïch våïi biãún säú hoàûc haìm âæïng træåïc noï hay sau noï bàòng dáúu ‘,‘. Chuäùi kyï tæû muäún hiãøn thë nguyãn vàn phaíi âæåüc âàût trong càûp dáúu ‘ ‘. - Write: laì thuí tuûc xuáút näüi dung caïc thaình pháön bãn trong càûp dáúu (...) lãn maìn hçnh, thuí tuûc naìy coï chæïc nàng tæång tæû Writeln nhæng khäng chuyãøn con troí xuäúng doìng. - End: laì tæì khoaï cho biãút kãút thuïc chæång trçnh. - Caïc doìng lãûnh nàòm giæîa Begin vaì End laì lãûnh maì 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 5
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –6— 4 Vê duû 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 Giaíi thêch chæång trçnh trãn: - Khai baïo: Uses CRT; ð khai baïo thæ viãûn CRT, do coï sæí duûng lãûnh ClrScr. - Lãûnh ClrScr; ð lau saûch maìn hçnh (Clear Screen). - Caïc lãûnh Writeln (...) ð xuáút ra maìn hçnh näüi dung bãn trong dáúu (...) vaì xuäúng doìng. - Lãûnh Readln; ð dæìng chæång trçnh, phæång phaïp naìy duìng âãø hiãøn thë näüi dung sau khi thæûc hiãûn caïc lãûnh bãn trãn vaì chåì ngæåìi duìng áún phêm báút kyì âãø tiãúp tuûc thæûc hiãûn caïc lãûnh kãú sau noï. Trong træåìng håüp trãn, kãú tiãúp laì tæì khoaï End nãn chæång trçnh âæåüc kãút thuïc sau khi coï mäüt phêm báút kyì âæåüc áún. 4 Vê duû 3: Program TinhTong; Uses CRT; Begin ClrScr; Write ( ‘ 30 + 40 + 15 = ‘, 30 + 40 + 15 ); Readln; End. 1 Kãút quaí: Maïy thæûc hiãûn pheïp tênh vaì hiãøn thë 30 + 40 + 15 = 85 Trang 6
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –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 vàn 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. _________ o²o _________ Trang 7
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –8— BAÌI 2 : CAÏC KHAÏI NIÃÛM CÅ BAÍN CUÍA NGÄN NGÆÎ PASCAL I. Caïc tæì khoaï (Key word) trong ngän ngæî Pascal: Caïc tæì khoaï laì caïc tæì duìng âãø khai baïo, âàût tãn cho âäúi tæåüng trong Pascal, khi ta âàût tãn cho âäúi tæåüng naìo âoï, khäng âæåüc âàût truìng tãn våïi caïc tæì khoaï. Baíng tæì khoaï 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 kyï tæû thæåìng hoàûc hoa. Vê duû, caïc caïch viãút sau coï yï nghéa nhæ nhau: Begin, BEGIN, begin, beGIN, bEGIN,... II. Caïc kiãøu dæî liãûu cå baín: 1. Caï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 caïc giaï trë säú nguyãn tæì 0 âãún 255. Kiãøu Byte chiãúm 1 byte trãn bäü nhåï. b. Kiãøu Integer: Kiãøu Integer laì kiãøu dæî liãûu biãøu diãùn caïc giaï trë säú nguyãn tæì - 32768 âãún 32767. Kiãøu Integer chiãúm 2 bytes trãn bäü nhåï. c. Kiãøu Shortint: Kiãøu Shortint laì kiãøu dæî liãûu biãøu diãùn caïc giaï trë säú nguyãn tæì - 128 âãún 127. Kiãøu Shortint chiãúm 1 byte trãn bäü nhåï. d. Kiãøu Word: Kiãøu Word laì kiãøu dæî liãûu biãøu diãùn caïc giaï trë nguyãn tæì 0 âãún 65535. Kiãøu Word laì kiãøu säú khäng biãøu diãùn âæåüc giaï trë ám. Kiãøu Word chiãúm 2 bytes trãn bäü nhåï. e. Kiãøu Longint: Kiãøu Longint biãøu diãùn caïc giaï trë säú nguyãn tæì -2.147.483.648 âãún 2.147.483.647. Kiãøu Longint chiãúm 4 bytes trãn bäü nhåï. 2. Caïc kiãøu dæî liãûu daûng säú coï pháön biãøu diãùn tháûp phán: a. Kiãøu Single: Laì táûp håüp caïc säú theo kiãøu dáúu ‘.‘ âäüng trong giåïi haû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: Laì táûp håüp caïc säú theo kiãøu dáúu ‘.‘ âäüng trong giåïi haû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åï. Trang 8
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –9— c. Kiãøu Double: Laì táûp håüp caïc säú theo kiãøu dáúu ‘,‘ âäüng trong giåïi haû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 (kyï tæû): Kiãøu Char duìng âãø biãøu diãùn caïc giaï trë laì caïc kyï tæû thuäüc baíng chæî caïi: ‘A’, ‘b’, ‘x’,... caïc con säú: 0..9 hoàûc caïc kyï tæû âàûc biãût : ‘!’, ‘@’, ‘#’, ‘$’, ‘%’, ‘&’, ‘*’,... Âãø biãøu diãùn thäng tin, ta cáön phaíi sàõp xãúp caïc kyï tæû theo mäüt chuáøn naìo âoï vaì mäùi caïch sàõp xãúp âoï goüi laì baíng maî, thäng duûng nháút laì baíng maî ASCII (American Standard Code for Information Interchange). Baíng maî ASCII coï 256 kyï tæû âæåüc gaïn maî säú tæì 0..255, mäùi kyï tæû coï mäüt maî säú nháút âënh, vê duû : kyï tæû ‘A’ coï maî säú laì 65, ‘a’ coï maî säú laì 97 trong baíng maî ASCII,.v.v. Âãø hiãøn thë baíng maî ASCII, baûn chaû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 laì kiãøu biãøu diãùn hai traûng thaïi laì âuïng (True) hoàûc sai (False). Tæì khoaï âãø khai baïo cho kiãøu logic laì BOOLEAN. 4 Vê duû: Var Co : Boolean; Co := True; 5. Kiãøu String (chuäùi kyï tæû): String laì kiãøu dæî liãûu chæïa caïc giaï trë laì nhoïm caïc kyï tæû hoàûc chè mäüt kyï tæû, kãø caí chuäùi räùng. Âäü daìi täúi âa cuía mäüt biãún kiãøu String laì 255, tæïc laì noï coï thãø chæïa täúi âa mäüt daîy gäöm 255 kyï tæû. Cuï phaïp khai baïo: (1) Var Biãún_1, Biãún_2, Biãún_n: String; Trang 9
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 10 — Hoàûc (2) Var Biãún_1, Biãún_2, Biãún_n: String [30]; Caïch khai baïo (1) seî cho pheïp biãún HoTen nháûn täúi âa 255 kyï tæû. Caïch (2) cho pheïp biãún HoTen nháûn täúi âa 30 kyï tæû. Ö Ghi chuï: Caïch sæí duûng kiãøu dæî liãûu String seî âæåüc trçnh baìy chi tiãút åí baìi 8. III. Caïc haìm xæí lyï dæî liãûu cå baín cuía 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 cuía x. - SIN(x) tênh giaï trë Sin(x) våïi x laì Radian. - COS(x) tênh giaï trë Cos(x) våïi x laì Radian. - ARCTAN(x) tênh giaï trë Arctan(x). - LN(x) haìm logaric cå säú e = 2.718. - EXP(x) haìm ex. - TRUNC(x) càõt boí pháön tháûp phán cuía x nãúu coï. Vê duû: Trunc(4.86) = 4, Trunc(-3.2) = 4. - ROUND(x) cho säú nguyãn gáön x nháút. Vê duû: Round(1.6) = 2, Round(- 23.68) = -24, Round(1.5) = 2. - PRED(x) cho giaï trë âæïng træåïc x, âäúi säú x coï thãø laì kiãøu logic, kiãøu nguyãn hoàûc kiãøu kyï tæû. Vê duû: Pred(‘B’); ð cho giaï trë ‘A’, Pred(2) cho giaï trë 1, Pred(True) cho giaï trë False. Tuy nhiãn, Pred(False) laûi khäng cho âæåüc giaï trë naìo do giaï trë False âæïng træåïc giaï trë True âäúi våïi kiãøu Boolean. - SUCC(x) cho giaï trë âæïng sau x, âäúi säú x coï thãø laì kiãøu logic, kiãøu nguyãn hoàûc kiãøu kyï tæû. Vê duû: Succ(‘B’); ð cho giaï trë ‘C’, Succ(2) cho giaï trë 3, Succ(False) cho giaï trë True. - ORD(x) cho säú thæï tæû cuía kyï tæû x trong baíng maî ASCII. Vê duû: Ord(‘A’) = 65, Ord(‘a’) = 97,... - CHR(x) traí vãö kyï tæû thæï x trong baíng maî ASCII. Vê duû: Chr(65) = ‘A’, Chr(50) = 2,... Trang 10
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 11 — - ODD(x) Traí vãö giaï trë True nãúu x laì säú leí vaì traí vãö giaï trë False nãúu x laì säú chàôn. IV. Sæí duûng haìm Random(n) âãø láúy mäüt giaï trë nguyãn ngáùu nhiãn: Haìm Random(n) seî traí vãö mäüt giaï trë nguyãn maì maïy láúy ngáùu nhiãn coï giaï trë tæì 0 âãún n. Trong âoï, n laì mäüt säú kiãøu Word tæïc laì trong khoaín tæì 0.. 65535. Træåïc khi sæí duûng haìm Random ta phaíi goüi thuí tuûc Randomize âãø khåíi taûo bäü taûo säú ngáùu nhiãn _________ o²o _________ BAÌI 3: HÀÒNG SÄÚ, BIÃÚN SÄÚ, BIÃØU THÆÏC VAÌ CÁU LÃÛNH ÂÅN GIAÍN TRONG NGÄN NGÆÎ PASCAL I. Hàòng säú: 1. Khaïi niãûm: - Hàòng säú laì caïc giaï trë khäng thay âäøi trong quaï trçnh chaûy chæång trçnh. - Coï hai phæång phaïp sæí duûng hàòng : + Gaïn træûc tiãúp giaï trë hàòng.Vê duû: DT := R * R * 3.14; ChuVi := D * 3.14; + Âàût cho hàòng mäüt tãn goüi vaì trong quaï trçnh soaûn chæång trçnh ta duìng tãn goüi thay cho viãûc duìng træûc tiãúp giaï trë âoï. Vê duû: ChuVi := D * Pi; trong âoï, Pi laì mäüt hàòng säú chuáøn cuía Pascal (tæïc laì ta coï thãø duìng maì khäng cáön khai baïo vaì gaïn giaï trë). - Hàòng säú luän luän âæåüc khai baïo træåïc pháön khai baïo biãún nãúu sæí duûng theo phæång phaïp âàût tãn cho hàòng. 2. Cuï phaïp khai baïo: Const a1 = Trë_säú_1, a2 = Trë_säú_2, an = Trë_säú_n; Trong âoï: a1... an laì tãn caïc hàòng säú, caïc trë_säú_1,2,...,n laì caïc giaï trë gaïn cho caïc tãn hàòng a1...an. F Vê duû mäüt caïch khai baïo hàòng säú: Const Pi = 3.1416, Max = 500; 4 Vê duû: chæång trçnh tênh chu vi âæåìng troìn coï sæí duûng hàòng säú Pi do ta âënh nghéa: Program TinhCV_DT_HT; Const Pi = 3.1416; Var R :Real; Begin Trang 11
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 12 — Write ( ‘ Nhap ban kinh hinh tron : ‘ ); Readln (R); Writeln ( ‘ Dien tich hinh tron = ‘ , Pi * R * R ); Writeln ( ‘ Chu vi hinh tron = ‘ , 2 * R * Pi); Readln; End. Ö Ghi chuï: - Ta traïnh viãút: z := Exp(1.23) + Sin(2.34) * Sin(2.34); - Ta seî tháúy tai haûi ngay vç khi muäún tênh laûi z våïi giaï trë måïi cuía x, vê duû x = 1.55, khäng leî laûi âi thay hãút 3 vë trê våïi 2.34 (laì giaï trë cuû thãø cuía x maì ta âaî khäng sæí duûng hàòng säú) thaình 1.55 !! - Trong chæång trçnh trãn, baûn coï thãø täúi æu hoaï thãm âãø chæång trçnh chaûy nhanh hån bàòng caïch thay hai láön tênh Sin(x) bàòng mäüt láön. Cuû thãø, ta thæûc hiãûn nhæ sau: t := Sin(x); z := Exp(a + t * t - x); Taïc phong täúi æu hoaï naìy seî ráút coï êch cho baûn khi baûn coï mäüt chæång trçnh våïi khäúi læåüng tênh toaïn âäö säü, coï thãø chaûy vaìi ngaìy âãm liãn tuûc nhæng nãúu biãút täúi æu ngay tæì âáöu thç seî giaím båït xuäúng coìn mäüt ngaìy chàóng haûn. Luïc naìy baûn måïi ‘tháúu hiãøu’ täúi æu hoaï âãø laìm gç ? II. Biãún säú: 1. Khaïi niãûm: - Laì âaûi læåüng maì giaï trë cuía noï coï thãø thay âäøi trong quaï trçnh thæûc hiãûn chæång trçnh. Biãún âæåüc khai baïo bàòng tæì khoaï VAR. - Biãún laì tãn cuía mäüt vuìng bäü nhåï læu træî dæî liãûu. - Biãún âæåüc truy xuáút trong chæång trçnh thäng qua tãn biãún. - Biãún laì mäüt cáúu truïc ghi nhåï dæî liãûu vç váûy phaíi âæåüc quy âënh theo mäüt kiãøu dæî liãûu naìo âoï, vê duû kiãøu Integer, Byte, Char,... 2. Cuï phaïp khai baïo cho caïc biãún: VAR Tãn_biãún_1, Tãn_biãún_2, Tãn_biãún_n : Kiãøu_dæî_liãûu_cuía_biãún; Trong âoï: Tãn_biãún_1, Tãn_biãún_2, Tãn_biãún_n laì tãn caïc biãún cáön khai baïo âãø sæí duûng trong chæång trçnh, Kiãøu_dæî_liãûu_cuía_biãún laì mäüt trong caïc kiãøu dæî liãûu Trang 12
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 13 — chuáøn (âaî âæåüc nãu trong pháön II cuía baìi 2) cuía Pascal hoàûc do ngæåìi duìng âënh nghéa. F Vê duû mäüt caïch khai baïo biãún: Var a,b : Integer; c : Real; Ten : String [10]; 4 Vê duû: chæång trçnh tênh täøng hai säú nguyãn âæåüc nháûp tæì baìn phêm. Trong baìi naìy, ta cáön khai baïo hai biãún a vaì b âãø tênh toaïn. Uses CRT; Var a, b : Integer; Begin ClrScr; Write( ‘ Nhap so thu nhat : ‘ ); Readln(a); Write( ‘ Nhap so thu hai : ‘ ); Readln(b); Write( ‘ Ket qua : ‘, a ,’ + ‘, b ,’ = ‘, a + b); Readln; End. III. Biãøu thæïc: Mäüt biãøu thæïc âæåüc taûo båíi caïc toaïn tæí (pheïp toaïn) vaì caïc toaïn haûng duìng âãø thãø hiãûn mäüt cäng thæïc toaïn hoüc. Toaïn haûng coï thãø laì hàòng, haìm hoàûc biãún. 4 Vê duû: Sau khi khai coï baïo: Const Max = 120; Var x: Integer; ta coï thãø viãút biãøu thæïc sau: 5 + Max * Exp(x); Trong âoï: + vaì * laì hai toaïn tæí, caïc hàòng säú 5, Max vaì haìm Exp(x) laì caïc toaïn haûng. Ö Chuï yï: - Mäüt hàòng, mäüt biãún, mäüt haìm cuîng âæåüc xem laì biãøu thæïc, âoï laì biãøu thæïc âån giaín. - Caïc pheïp toaïn trong mäüt biãøu thæïc âæåüc sàõp xãúp theo thæï tæû æu tiãn nhæ sau: Trang 13
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 14 — + Caïc pheïp toaïn mäüt ngäi âæåüc æu tiãn thæï nháút laì: dáúu dæång (+), dáúu ám (- ), pheïp phuí âënh (not). + Caïc pheïp toaïn nhán chia: nhán (*), chia (/), láúy pháön nguyãn (div), láúy pháön dæ (mod), pheïp vaì (and). + Caïc pheïp cäüng træì: cäüng (+), træì (-), pheïp hoàûc (or). + Caïc pheïp so saïnh: = , = , < >. - Biãøu thæïc trong càûp dáúu ngoàûc ( ) âæåüc thæûc hiãûn træåïc tiãn nãúu coï. - Caïc toaïn tæí cuìng thæï tæû æu tiãn thç âæåüc thæûc hiãûn tæì traïi qua phaíi. 4 Vê duû viãûc sæí duûng caïc toaïn tæí vaì toaïn haûng: 3 + 5 * 3 = 18 (3 + 5) * 3 = 24 5 / 2 * 3 = 7.5 (5 + 2 > 4) and not (true or (5 - 3 = 8)) = false −b+ d ( -b + sqrt(d) ) / 2 * a ( coï nghéa: a ) 2 IV. Cáu lãûnh âån giaín: Sau pháön khai baïo dæî liãûu laì pháön lãûnh cuía chæång trçnh. Pháön naìy xaïc âënh caïc cäng viãûc maì chæång trçnh phaíi thæûc hiãûn xæí lyï caïc dæî liãûu âaî âæåüc khai baïo. Cáu lãûnh âæåüc chia thaình hai loaûi: - Cáu lãûnh âån giaín: + Lãûnh gaïn (:=) + Lãûnh Nháûp - Xuáút (READ, READLN, WRITE, WRITELN). + Goüi thuí tuûc. + Lãûnh nhaíy (GOTO). - Cáu lãûnh coï cáúu truïc: + Lãûnh gheïp (BEGIN... END) + Lãûnh læûa choün (IF... ELSE, CASE... OF) + Lãûnh làûp (FOR, REPEAT... UNTIL, WHILE... DO) + Lãûnh WITH. Ö Ghi chuï: Näüi dung baìi naìy chè âãö cáûp âãún caïc lãûnh âån giaín. Caïc lãûnh coï cáúu truïc âæåüc trçnh baìy åí baìi 4. 1. Lãûnh gaïn: Trang 1 4
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 15 — Lãûnh gaïn duìng âãø gaïn giaï trë cuía mäüt biãøu thæïc (coï thãø laì haìm, biãún hoàûc giaï trë) cho mäüt biãún. Cuï phaïp: Biãún := biãøu_thæïc; F Âáöu tiãn, maïy tênh giaï trë cuía biãøu thæïc åí vãú phaíi, sau âoï, giaï trë tênh âæåüc tæì vãú phaíi âæåüc gaïn cho vãú traïi (biãún). Ö Chuï yï: - Vãú traïi cuía lãûnh gaïn chè coï thãø laì biãún. Vê duû: viãút x + y = 7; laì sai vç vãú traïi cuía cáu lãûnh naìy laì mäüt biãøu thæïc chæï khäng phaíi laì mäüt biãún. - Kiãøu giaï trë cuía biãøu thæïc (haìm, biãún hoàûc giaï trë) åí vãú phaíi phaíi truìng våïi kiãøu cuía biãún âaî âæåüc khai baïo, træì mäüt säú træåìng håüp nhæ biãún kiãøu thæûc (Single, Real, Double) coï thãø nháûn giaï trë kiãøu nguyãn (Shorint, Byte, Integer, Word, Longint),... do táûp håüp säú nguyãn laì táûp con cuía säú thæûc. 4 Vê duû: Sau khi âaî coï khai baïo: Var c1, c2 : Char; i, j : Integer; x, y : Real; thç ta coï thãø thæûc hiãûn caïc pheïp gaïn sau: c1 := ‘A’; c2 := Chr(97); i := (23 + 6) * 2 mod 3; j := Round(20 / 3); x := i; y := j; 2. Lãûnh Xuáút: Lãûnh xuáút duìng âãø in lãn maìn hçnh caïc dæî liãûu, kãút quaí hay caïc thäng baïo. Cuï phaïp (1). WRITE(Biãøu_thæïc_1, Biãøu_thæïc_2,..., Biãøu_thæïc_n); (2). WRITELN(Biãøu_thæïc_1, Biãøu_thæïc_2,..., Biãøu_thæïc_n); (3). WRITELN; Trang 1 5
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 16 — Daûng (1): In lãn maìn hçnh giaï trë caïc biãøu thæïc taûi vë trê hiãûn haình cuía con troí theo thæï tæû viãút trong lãûnh. Sau khi thæûc hiãûn xong lãûnh WRITE(... ); con troí âënh vë taûi sau giaï trë biãøu_thæïc_n cuía cáu lãûnh. Daûng (2): In lãn maìn hçnh giaï trë caïc biãøu thæïc taûi vë trê hiãûn haình cuía con troí theo thæï tæû viãút trong lãûnh. Sau khi thæûc hiãûn xong lãûnh WRITELN(... ); con troí âënh vë taûi âáöu doìng kãú tiãúp. Daûng (3): Duìng âãø chuyãøn con troí xuäúng doìng. 4 Vê duû: Var a, b : Byte; Begin A := 2; B := 4; Write ( ‘ Day la ket qua phep nhan A voi B: ‘, a * b); Writeln; Writeln( ‘ **** ‘ ); Write ( ‘ ------------------------------------------------- ‘ ); End. 1 Kãút quaí sau khi chaûy chæång trçnh trãn: Day la ket qua phep nhan A voi B: 8 **** -------------------------------------------- Ö Chuï yï: Coï hai daûng viãút trong thuí tuûc Write vaì Writeln laì viãút khäng quy caïch vaì viãút coï quy caïch. Âiãöu naìy ta xeït qua tæìng kiãøu dæî liãûu. (1). Vê duû vãö caïc daûng viãút khäng coï quy caïch: Uses CRT; Var I : Integer; R : Real; Ch : Char; B : Boolean; Begin I := 123; R := 123.456; Ch := ‘A’; B := 2
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 17 — Writeln( R); {2} Writeln( 3.14 ); {3} Writeln( 20 * 2.5); {4} Writeln; Writeln( Ch ); {5} Writeln( B ); {6} Writeln( #7 ); {7} End. F Caïch viãút khäng quy caïch seî canh näüi dung theo lãö bãn traïi. - Säú nguyãn âæåüc viãút ra våïi säú chäù âuïng bàòng säú chæî säú gaïn vaìo, kãø tæì vë trê bãn traïi. Lãûnh {1} in ra: 123 - Säú thæûc âæåüc viãút ra våïi trçnh tæû sau: mäüt dáúu caïch, tiãúp âãún laì mäüt säú pháön nguyãn, dáúu cháúm, 10 vë trê säú tháûp phán, tiãúp âãún laì chæî E, dáúu cuía pháön muî (+,-), hai säú biãøu diãùn giaï trë pháön muî: + Lãûnh {2}in ra: 1.2345600000E+02 + Lãûnh {3}in ra: 3.1400000000E+00 + Lãûnh {4}in ra: 5.0000000000E+01 - Kiãøu kyï tæû in bçnh thæåìng, mäüt kyï tæû chiãúm mäüt chäù. Lãûnh {5}in ra: A - Kiãøu Boolean in ra mäüt trong hai tæì True hoàûc False. Lãûnh {6}in ra: True - Lãûnh {7}: phaït ra mäüt tiãúng Beep åí loa. (2). Vê duû vãö caïc daûng viãút coï quy caïch: Var I : Integer; R , Z : Real; Ch : Char; B : Boolean; Begin I := 123; R := 123.456; Ch := ‘A’; B := 2
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 18 — Writeln( 35.123456789:12:6 ); {4} Writeln( R:12 ); {5} Writeln( Ch:5); {6} Writeln(‘ABC’:5); {7} Writeln( B:7 ); {8} Writeln( Z:1:2 ); {9} End. F Caïch viãút coï quy caïch seî canh näüi dung theo lãö bãn phaíi, nãúu thæìa chäù thç pháön lãö bãn traïi âæåüc âãø tràõng. - Lãûnh {1} vaì {2} daình 8 kyï tæû trãn maìn hçnh âãø in caïc säú nguyãn. - Lãûnh {3} vaì {4} daình 12 kyï tæû trãn maìn hçnh âãø in caïc säú thæûc våïi 6 säú leí pháön tháûp phán, kãút quaí in ra: 123.456000 vaì 35.123457 (do pháön tháûp phán >6 chäù nãn âæåüc laìm troìn säú). - Lãûnh {5}in giaï trë cuía R våïi 12 chäù daûng muî säú: 1.23456E+02 - Lãûnh {6},{7} daình 5 chäù âãø in chæî A vaì xáu kyï tæû ABC. - Lãûnh {8} daình 7 kyï tæû âãø in giaï trë True. - Lãûnh {9} in säú thæûc Z nhæ sau: Writeln( Z : m : n ). Nãúu m < n thç säú thæûc Z âæåüc in våïi n säú leí, coìn säú chäù trãn maìn hçnh thç tuyì vaìo âäü daìi cuía säú Z. Trong træåìng håüp m > n vaì âäü daìi cuía säú låïn hån m thç säú âæåüc tæû âäüng canh phaíi. Træåìng håüp m > n vaì âäü daìi cuía säú nhoí hån m thç säú âæåüc canh phaíi dæ bao nhiãu kyï tæû maïy âãø träúng bãn traïi. Ö Træåìng håüp trong cáu cáön hiãøn thë dáúu ‘ thç ta phaíi viãút hai dáúu ‘ liãön nhau (“). 4 Vê duû: Write( ‘ Don‘’t forget me ! ’ ); 1 Kãút quaí: Trãn maìn hçnh hiãøn thë: Don‘t forget me ! Ö Ghi chuï: Muäún in dæî liãûu ra maïy in ta duìng lãûnh Write hoàûc Writeln våïi tham säú LST vaìo træåïc. Biãún LST âæåüc khai baïo trong Unit Printer, vç váûy, âãø sæí duûng lãûnh in ta cáön phaíi khai baïo thæ viãûn Printer trong chæång trçnh. 4 Vê duû: Uses Printer; Trang 1 8
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 19 — Begin Writeln(Lst,’ Welcome to Turbo Pascal Language ! ‘ ); End. 1 Kãút quaí: Khi chaûy maïy in ra giáúy cáu Welcome to Turbo Pascal Language ! 3. Lãûnh Nháûp: Lãûnh nháûp duìng âãø âæa dæî liãûu tæì baìn phêm vaìo caïc biãún. Cuï phaïp: (1) Readln(Biãún_1, biãún_2, biãún_n); (2) Read(Biãún_1, biãún_2, biãún_n); Khi thæûc hiãûn lãûnh naìy, maïy dæìng laûi chåì ngæåìi duìng nháûp vaìo âuí n láön nháûp dæî liãûu tæång æïng våïi n biãún. Ngoaìi ra, ta coï thãø sæí duûng thuí tuûc Readln âãø dæìng chæång trçnh vaì chåì ngæåìi duìng áún mäüt phêm báút kyì âãø tiãúp tuûc, kyï tæû âæåüc áún khäng hiãøn thë lãn maìn hçnh. Ö Chuï yï: - Caïc biãún trong thuí tuûc Readln phaíi thuäüc kiãøu nguyãn, thæûc, kyï tæû hoàûc xáu kyï tæû. Do âoï, ta khäng thãø naûp tæì baìn phêm giaï trë True hoàûc False caïc biãún kiãøu Boolean. - Dæî liãûu nháûp vaìo phaíi tæång æïng våïi kiãøu âaî khai baïo. Phaíi áún phêm Enter âãø thæûc hiãûn lãûnh nháûp sau khi goî xong giaï trë cáön nháûp. 4 Vê duû 1: Våïi a, b laì hai biãún nguyãn, x laì biãún thæûc. Xeït âoaûn chæång trçnh sau: Readln(a, b); Readln(x); Nãúu ta goî caïc phêm: 2 24 6.5 14 < Enter > 1 Kãút quaí: a nháûn giaï trë 2, b nháûn giaï trë 24. Caïc kyï tæû coìn laûi bë boí qua vaì khäng âæåüc xeït trong thuí tuûc Readln(x) tiãúp theo. Nhæ váûy, maïy dæìng laûi åí cáu lãûnh Readln(x) âãø chåì nháûp säú liãûu cho biãún x. 4 Vê duû 2: Giaí sæí ta âaî khai baïo: Var s1, s2, s3 : String[5]; Xeït cáu lãûnh: Readln(s1, s2, s3); Nãúu ta khäng nháûp kyï tæû maì chè áún < Enter > thç caí 3 biãún s1, s2, s3 âãöu laì xáu räùng. Trang 19
CÓ THỂ BẠN MUỐN DOWNLOAD
-
Giáo trình: Lập trình cơ bản
65 p | 372 | 239
-
Giáo trình Lập trình ASP.NET bằng C#
238 p | 531 | 213
-
Giáo trình Lập trình Java - Đại học Bách Khoa Hà Nội
239 p | 537 | 194
-
Giới thiệu về chương trình lập trình trên window
69 p | 343 | 162
-
Giáo trình: Ngôn ngữ lập trình máy tính C++
114 p | 326 | 161
-
Giáo trình:Lập trình Pascal cơ bản
90 p | 257 | 141
-
Giáo trình: Lập trình Pascal căn bản 11
91 p | 400 | 132
-
Ngôn ngữ lập trình Fortran 90
223 p | 346 | 130
-
Giáo trình Lập trình nâng cao - Trần Uyên Trang
154 p | 373 | 126
-
Ngôn ngữ lập trình - Lập trình song song
36 p | 314 | 117
-
Giáo trình lập trình Pascal
90 p | 177 | 104
-
Giáo trình lập trình căn bản
65 p | 265 | 95
-
Sams Teach Yourself Visual C# 2008
529 p | 127 | 43
-
Giáo trình Lập Trình căn bản hệ Trung cấp - 1
11 p | 87 | 22
-
Giáo trình: Lập trình Joomla Chương 3: Tạo component
28 p | 78 | 22
-
Ngôn ngữ lập trình tự nhiên
3 p | 26 | 2

markdown:
# Giáo trình: Lập trình Pascal căn bản
Chia sẻ: Badkid Badkid | Ngày: | Loại File: PDF | Số trang:90
lượt xem 3.268
download
![](http://image.tlvnimg.com/document/thumbnail/2009/20090310/badkid/80x100/4511346340227.jpg)
##
Giáo trình: Lập trình Pascal căn bản
[Vui lòng tải xuống để xem tài liệu đầy đủ](javascript:void(0);)
Download
![](http://static.tlvnimg.com/b2013az/templates/version1/default/images/down16x21.png)
Giới thiệu ngôn ngữ Pascal, các khái niệm cơ bản của ngôn ngữ Pascal,Ngôn ngữ lập trình Pascal có đặc điểm: ngữ pháp, ngữ nghĩa đơn giản và có tính logic; cấu trúc chương trình rõ ràng, dễ hiểu (thể hiện tuy duy lập trình cấu trúc); dễ sử chữa, cải tiến....
Bình luận(0)
[Đăng nhập để gửi bình luận!](javascript:void(0);)
##
Nội dung Text: Giáo trình: Lập trình Pascal căn bản
- Giáo trình Lập trình Pascal căn bản
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –1— BAÌI 1: GIÅÏI THIÃÛU NGÄN NGÆÎ PASCAL VAÌ CAÏC VÊ DUÛ ÂÅN GIAÍN I. Xuáút xæï ngän ngæî Pascal: Pascal laì ngän ngæî láûp trçnh cáúp cao do Niklaus Wirth, giaïo sæ âiãûn toaïn træåìng âaûi hoüc kyî thuáût Zurich (Thuñy Sé), âãö xuáút nàm 1970 våïi tãn Pascal âãø kyí niãûm nhaì toaïn hoüc vaì triãút hoüc näøi tiãúng Blaise Pascal (ngæåìi Phaïp). Ngän ngæî láûp trçnh Pascal coï âàûc âiãøm: ngæî phaïp, ngæî nghéa âån giaín vaì coï tênh logic; cáúu truïc chæång trçnh roî raìng, dãù hiãøu (thãø hiãûn tæ duy 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î phaït huy âæåüc æu âiãøm vaì âæåüc duìng âãø taûo ra nhiãöu æïng duûng trãn nhiãöu lénh væûc khaïc nhau. Caïc täø chæïc vaì cäng ty chuyãn vãö maïy tênh dæûa trãn Pascal chuáøn âaî phaït triãøn thãm vaì taûo ra caïc chæång trçnh dëch ngän ngæî Pascal våïi nhiãöu pháön bäø sung, giaím thiãøu khaïc nhau. Vê duû: TURBO PASCAL cuía haîng Borland (Myî), QUICK PASCAL cuía haîng Microsoft, UCSD PASCAL (University of California at San Diego), ANSI PASCAL (American National Standard Institute),.v.v. So våïi nhiãöu saín pháøm Pascal cuía nhiãöu täø chæïc vaì cäng ty khaïc nhau xuáút baín, TURBO PASCAL cuía haîng Borland toí ra coï nhiãöu æu âiãøm nháút vaì hiãûn nay âaî tråí thaình 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 voìng vaìi nàm Turbo Pascal âæåüc caíi tiãún qua nhiãöu phiãn baín : 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 cuía 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 caïc âån vë (Unit) chuáøn âãø chaûy våïi Turbo.exe. Muäún sæí duûng caïc lãûnh âäö hoüa, phaíi coï caïc táûp tin sau: - Graph.tpu: Âån vë (Unit) chæïa caïc lãûnh âäö hoaû. - Caïc táûp tin coï pháön måí räüng CHR (SANS.CHR, TRIP.CHR, GOTH.CHR,.v.v.): Chæïa caïc kiãøu chæî trong chãú âäü âäö hoaû. - Caïc táûp tin coï 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 khi duìng âäö hoaû. II. Khåíi âäüng: Trang 1
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –2— Ta coï thãø khåíi âäüng Pascal tæì Windows hoàûc MS-DOS, chuyãøn âãún thæ muûc BP hoàûc TP vaì chaûy táûp tin BP.EXE hay TURBO.EXE. Hai caïch khåíi âäüng trãn thæûc hiãûn nhæ sau: - Khåíi âäüng tæì dáúu nhàõc cuía MS-DOS: Chuyãøn âãún thæ muûc BP hoàûc TP nåi chæïa táûp tin BP.EXE hoàûc TURBO.EXE, goî BP hoàûc TURBO vaì áún . - Khåíi âäüng tæì Windows: choün menu Start/Program/Borland Pascal. Nãúu chæång trçnh Pascal chæa âæåüc caìi vaìo menu Start, baûn coï thãø duìng Windows Explorer chuyãøn âãún táûp tin BP.EXE hoàûc TURBO.EXE vaì khåíi âäüng Pascal bàòng caïch chaûy táûp tin naìy. III. Caïc phêm chæïc nàng cáön biãút cuía ngän ngæî Pascal: - F2: Læu chæång trçnh trong khi soaûn thaío. - F3: Taûo mäüt file måïi hoàûc måí mäüt file cuî. - 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: 1. Cáúu truïc cå baín: Chæång trçnh Pascal âån giaín nháút phaíi coï hai tæì khoaï Begin vaì End nhæ sau: Begin End. Chæång trçnh trãn tuy khäng laìm gç khi chaûy (áún Ctrl - F9) nhæng laì mäüt chæång trçnh håüp lãû do häüi âuí âiãöu kiãûn cáön thiãút laì coï hai tæì khoaï Begin vaì End. Tæì khoaï End coï keìm dáúu “.” phêa sau baïo hiãûu kãút thuïc chæång trçnh, âáy laì âiãöu bàõt buäüc phaíi coï trong mäüt chæång trçnh. Tæì khoaï Begin trãn âæåüc trçnh biãn dëch hiãøu laì bàõt âáöu thæûc hiãûn caïc lãûnh sau noï vaì kãút thuïc taûi tæì khoaï End coï dáúu cháúm “.”. Khäúi lãûnh nàòm trong càûp tæì khoaï Begin vaì End nãúu coï dáúu cháúm theo sau coìn goüi laì 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 trong chæång trçnh. Trong chæång trçnh coï thãø coï nhiãöu khäúi lãûnh, tæïc coï thãø coï nhiãöu càûp tæì khoaï Begin vaì End. 2. Phæång phaïp khai baïo vaì täø chæïc cáúu truïc mäüt chæång trçnh Pascal: Trang 2
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –3— Viãûc âàût caïc pháön khai baïo vaì soaû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 truïc caïc khai baïo trãn: Nãúu coï 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ê duû: pháön khai baïo thæ viãûn (USES) khäng thãø âàût sau pháön khai baïo hàòng säú (CONST) hoàûc sau (VAR)... sau mäùi pháön khai baïo phaíi coï dáúu ‘;’. - Program: Tæì khoaï naìy duìng âãø 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äú åí kyï tæû âáöu tiãn. + trong pháön tãn khäng chæïa caïc kyï tæû âàût biãût nhæ: ‘!’, ‘@’, ‘#’, ‘$’, ‘%’, ‘^’, ‘&’, ‘* ’, ‘(‘, ‘)’, ‘-‘, ‘+’, ‘/’, ‘\’, ‘.’, ’,’,.v.v. + kãút thuïc phaíi coï dáúu ‘;’. + pháön naìy coï thãø khäng coï. 4 Vê duû: mäüt caïch khai baïo tãn chæång trçnh: Program TimUSCLN; Begin ... End. - Uses: Tæì khoaï naìy duìng âãø khai baïo viãûc sæí duûng Unit (thæ viãûn) cho chæång trçnh. Thæ viãûn laì táûp håüp caïc haìm, thuí tuûc do ngän ngæî Pascal cung cáúp keìm theo hoàûc cuîng coï thãø do ngæåìi láûp trçnh taûo ra âãø sæí duûng. Ta khai baïo thæ viãûn thäng qua tãn cuía thæ viãûn, vaì trong chæång trçnh âoï ta seî coï thãø sæí duûng caïc thuí tuûc hoàûc Trang 3
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –4— caïc haìm coï trong thæ viãûn âoï. Caïc thæ viãûn chuáøn cuía ngän ngæî Pascal gäöm: CRT, DOS, GRAPH, GRAPH3, OVERLAY, PRINTER, SYSTEM vaì TURBO3. Trong âoï, 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 baïo. Vê duû mäüt caïch khai baï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 trong chæång trçnh âãø lãûnh GOTO nhaíy âãún âuïng vë trê âoï. Viãûc sæí duûng lãûnh GOTO âæåüc âãö cáûp åí baìi 4. Vê duû mäüt caïch khai baïo nhaîn: ... Label TH1, N2; ... - Const: Tæì khoaï naìy duìng âãø khai baïo caïc hàòng säú sæí duûng trong chæång trçnh, khi baïo hàòng säú laì viãûc cäú âënh mäüt vaìi giaï trë naìo âoï trong chæång trçnh thäng qua tãn hàòng, vê duû caïch khai baïo hàòng: ... Const k = 5, Max = 500, Ten = ‘Nam’; ... - Type: tæì khoaï duìng âãø khai baïo caïc kiãøu hàòng dæî liãûu sæí duû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 caïc kiãøu dæî liãûu chuáøn âãø tiãûn sæí duûng trong viãûc láûp trçnh. Caïc khaïi niãûm vãö dæî liãûu chuáøn vaì phæång phaïp taûo kiãøu dæî liãûu tæû taûo seî âæåüc giåïi thiãûu åí caïc pháön sau. Vê duû mäüt caïch âãø khai baïo mäüt kiãøu dæî liãûu tæû taûo: ... Type Day = Array [1..7] of String[8]; ... - Var: Tæì khoaï duìng âãø khai baïo caïc biãún säú âæåüc sæí duûng trong chæång trçnh. Biãún säú laì caïc giaï trë coï thãø thay âäøi âæåüc trong 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 trong viãûc láûp trçnh (khaïi niãûm naìy âæåüc trçnh baìy kyî åí baìi 3). Mäüt vê duû vãö caïch khai baïo biãún: ... Trang 4
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –5— Var HoDem, Ten : String; N : Integer; ... Ö Ghi chuï: - Thæï tæû caïc khai baïo trãn laì âiãöu bàõt buäüc, ta phaíi nàõm thæï tæû naìy cho duì mäüt säú khaï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 {...} hoàûc (*...*) läöng caïc cáu chuï thêch vaìo bãn trong noï. - Trãn mäüt doìng coï thãø viãút mäüt hoàûc nhiãöu cáu lãûnh. V. Caïc vê duû âån giaín laìm quen våïi ngän ngæî Pascal: 4 Vê duû 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 caïc thaình pháön bãn trong càûp dáúu (...) lãn maìn hçnh vaì chuyãøn con troí xuäúng doìng. Bãn trong càûp dáúu (...) coï thãø coï nhiãöu thaình pháön gäöm chuäùi kyï tæû (hàòng giaï trë chuäùi), biãún säú hoàûc haìm. Giæîa caïc thaình pháön trong càûp dáúu (...) phaíi caïch nhau bàòng dáúu ‘,‘ nãúu khäng cuìng loaûi, tæïc laì chuäùi kyï tæû phaíi âæåüc caïch våïi biãún säú hoàûc haìm âæïng træåïc noï hay sau noï bàòng dáúu ‘,‘. Chuäùi kyï tæû muäún hiãøn thë nguyãn vàn phaíi âæåüc âàût trong càûp dáúu ‘ ‘. - Write: laì thuí tuûc xuáút näüi dung caïc thaình pháön bãn trong càûp dáúu (...) lãn maìn hçnh, thuí tuûc naìy coï chæïc nàng tæång tæû Writeln nhæng khäng chuyãøn con troí xuäúng doìng. - End: laì tæì khoaï cho biãút kãút thuïc chæång trçnh. - Caïc doìng lãûnh nàòm giæîa Begin vaì End laì lãûnh maì 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 5
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –6— 4 Vê duû 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 Giaíi thêch chæång trçnh trãn: - Khai baïo: Uses CRT; ð khai baïo thæ viãûn CRT, do coï sæí duûng lãûnh ClrScr. - Lãûnh ClrScr; ð lau saûch maìn hçnh (Clear Screen). - Caïc lãûnh Writeln (...) ð xuáút ra maìn hçnh näüi dung bãn trong dáúu (...) vaì xuäúng doìng. - Lãûnh Readln; ð dæìng chæång trçnh, phæång phaïp naìy duìng âãø hiãøn thë näüi dung sau khi thæûc hiãûn caïc lãûnh bãn trãn vaì chåì ngæåìi duìng áún phêm báút kyì âãø tiãúp tuûc thæûc hiãûn caïc lãûnh kãú sau noï. Trong træåìng håüp trãn, kãú tiãúp laì tæì khoaï End nãn chæång trçnh âæåüc kãút thuïc sau khi coï mäüt phêm báút kyì âæåüc áún. 4 Vê duû 3: Program TinhTong; Uses CRT; Begin ClrScr; Write ( ‘ 30 + 40 + 15 = ‘, 30 + 40 + 15 ); Readln; End. 1 Kãút quaí: Maïy thæûc hiãûn pheïp tênh vaì hiãøn thë 30 + 40 + 15 = 85 Trang 6
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –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 vàn 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. _________ o²o _________ Trang 7
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –8— BAÌI 2 : CAÏC KHAÏI NIÃÛM CÅ BAÍN CUÍA NGÄN NGÆÎ PASCAL I. Caïc tæì khoaï (Key word) trong ngän ngæî Pascal: Caïc tæì khoaï laì caïc tæì duìng âãø khai baïo, âàût tãn cho âäúi tæåüng trong Pascal, khi ta âàût tãn cho âäúi tæåüng naìo âoï, khäng âæåüc âàût truìng tãn våïi caïc tæì khoaï. Baíng tæì khoaï 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 kyï tæû thæåìng hoàûc hoa. Vê duû, caïc caïch viãút sau coï yï nghéa nhæ nhau: Begin, BEGIN, begin, beGIN, bEGIN,... II. Caïc kiãøu dæî liãûu cå baín: 1. Caï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 caïc giaï trë säú nguyãn tæì 0 âãún 255. Kiãøu Byte chiãúm 1 byte trãn bäü nhåï. b. Kiãøu Integer: Kiãøu Integer laì kiãøu dæî liãûu biãøu diãùn caïc giaï trë säú nguyãn tæì - 32768 âãún 32767. Kiãøu Integer chiãúm 2 bytes trãn bäü nhåï. c. Kiãøu Shortint: Kiãøu Shortint laì kiãøu dæî liãûu biãøu diãùn caïc giaï trë säú nguyãn tæì - 128 âãún 127. Kiãøu Shortint chiãúm 1 byte trãn bäü nhåï. d. Kiãøu Word: Kiãøu Word laì kiãøu dæî liãûu biãøu diãùn caïc giaï trë nguyãn tæì 0 âãún 65535. Kiãøu Word laì kiãøu säú khäng biãøu diãùn âæåüc giaï trë ám. Kiãøu Word chiãúm 2 bytes trãn bäü nhåï. e. Kiãøu Longint: Kiãøu Longint biãøu diãùn caïc giaï trë säú nguyãn tæì -2.147.483.648 âãún 2.147.483.647. Kiãøu Longint chiãúm 4 bytes trãn bäü nhåï. 2. Caïc kiãøu dæî liãûu daûng säú coï pháön biãøu diãùn tháûp phán: a. Kiãøu Single: Laì táûp håüp caïc säú theo kiãøu dáúu ‘.‘ âäüng trong giåïi haû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: Laì táûp håüp caïc säú theo kiãøu dáúu ‘.‘ âäüng trong giåïi haû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åï. Trang 8
- – Giaïo trçnh Láûp trçnh Pascal càn baín — –9— c. Kiãøu Double: Laì táûp håüp caïc säú theo kiãøu dáúu ‘,‘ âäüng trong giåïi haû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 (kyï tæû): Kiãøu Char duìng âãø biãøu diãùn caïc giaï trë laì caïc kyï tæû thuäüc baíng chæî caïi: ‘A’, ‘b’, ‘x’,... caïc con säú: 0..9 hoàûc caïc kyï tæû âàûc biãût : ‘!’, ‘@’, ‘#’, ‘$’, ‘%’, ‘&’, ‘*’,... Âãø biãøu diãùn thäng tin, ta cáön phaíi sàõp xãúp caïc kyï tæû theo mäüt chuáøn naìo âoï vaì mäùi caïch sàõp xãúp âoï goüi laì baíng maî, thäng duûng nháút laì baíng maî ASCII (American Standard Code for Information Interchange). Baíng maî ASCII coï 256 kyï tæû âæåüc gaïn maî säú tæì 0..255, mäùi kyï tæû coï mäüt maî säú nháút âënh, vê duû : kyï tæû ‘A’ coï maî säú laì 65, ‘a’ coï maî säú laì 97 trong baíng maî ASCII,.v.v. Âãø hiãøn thë baíng maî ASCII, baûn chaû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 laì kiãøu biãøu diãùn hai traûng thaïi laì âuïng (True) hoàûc sai (False). Tæì khoaï âãø khai baïo cho kiãøu logic laì BOOLEAN. 4 Vê duû: Var Co : Boolean; Co := True; 5. Kiãøu String (chuäùi kyï tæû): String laì kiãøu dæî liãûu chæïa caïc giaï trë laì nhoïm caïc kyï tæû hoàûc chè mäüt kyï tæû, kãø caí chuäùi räùng. Âäü daìi täúi âa cuía mäüt biãún kiãøu String laì 255, tæïc laì noï coï thãø chæïa täúi âa mäüt daîy gäöm 255 kyï tæû. Cuï phaïp khai baïo: (1) Var Biãún_1, Biãún_2, Biãún_n: String; Trang 9
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 10 — Hoàûc (2) Var Biãún_1, Biãún_2, Biãún_n: String [30]; Caïch khai baïo (1) seî cho pheïp biãún HoTen nháûn täúi âa 255 kyï tæû. Caïch (2) cho pheïp biãún HoTen nháûn täúi âa 30 kyï tæû. Ö Ghi chuï: Caïch sæí duûng kiãøu dæî liãûu String seî âæåüc trçnh baìy chi tiãút åí baìi 8. III. Caïc haìm xæí lyï dæî liãûu cå baín cuía 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 cuía x. - SIN(x) tênh giaï trë Sin(x) våïi x laì Radian. - COS(x) tênh giaï trë Cos(x) våïi x laì Radian. - ARCTAN(x) tênh giaï trë Arctan(x). - LN(x) haìm logaric cå säú e = 2.718. - EXP(x) haìm ex. - TRUNC(x) càõt boí pháön tháûp phán cuía x nãúu coï. Vê duû: Trunc(4.86) = 4, Trunc(-3.2) = 4. - ROUND(x) cho säú nguyãn gáön x nháút. Vê duû: Round(1.6) = 2, Round(- 23.68) = -24, Round(1.5) = 2. - PRED(x) cho giaï trë âæïng træåïc x, âäúi säú x coï thãø laì kiãøu logic, kiãøu nguyãn hoàûc kiãøu kyï tæû. Vê duû: Pred(‘B’); ð cho giaï trë ‘A’, Pred(2) cho giaï trë 1, Pred(True) cho giaï trë False. Tuy nhiãn, Pred(False) laûi khäng cho âæåüc giaï trë naìo do giaï trë False âæïng træåïc giaï trë True âäúi våïi kiãøu Boolean. - SUCC(x) cho giaï trë âæïng sau x, âäúi säú x coï thãø laì kiãøu logic, kiãøu nguyãn hoàûc kiãøu kyï tæû. Vê duû: Succ(‘B’); ð cho giaï trë ‘C’, Succ(2) cho giaï trë 3, Succ(False) cho giaï trë True. - ORD(x) cho säú thæï tæû cuía kyï tæû x trong baíng maî ASCII. Vê duû: Ord(‘A’) = 65, Ord(‘a’) = 97,... - CHR(x) traí vãö kyï tæû thæï x trong baíng maî ASCII. Vê duû: Chr(65) = ‘A’, Chr(50) = 2,... Trang 10
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 11 — - ODD(x) Traí vãö giaï trë True nãúu x laì säú leí vaì traí vãö giaï trë False nãúu x laì säú chàôn. IV. Sæí duûng haìm Random(n) âãø láúy mäüt giaï trë nguyãn ngáùu nhiãn: Haìm Random(n) seî traí vãö mäüt giaï trë nguyãn maì maïy láúy ngáùu nhiãn coï giaï trë tæì 0 âãún n. Trong âoï, n laì mäüt säú kiãøu Word tæïc laì trong khoaín tæì 0.. 65535. Træåïc khi sæí duûng haìm Random ta phaíi goüi thuí tuûc Randomize âãø khåíi taûo bäü taûo säú ngáùu nhiãn _________ o²o _________ BAÌI 3: HÀÒNG SÄÚ, BIÃÚN SÄÚ, BIÃØU THÆÏC VAÌ CÁU LÃÛNH ÂÅN GIAÍN TRONG NGÄN NGÆÎ PASCAL I. Hàòng säú: 1. Khaïi niãûm: - Hàòng säú laì caïc giaï trë khäng thay âäøi trong quaï trçnh chaûy chæång trçnh. - Coï hai phæång phaïp sæí duûng hàòng : + Gaïn træûc tiãúp giaï trë hàòng.Vê duû: DT := R * R * 3.14; ChuVi := D * 3.14; + Âàût cho hàòng mäüt tãn goüi vaì trong quaï trçnh soaûn chæång trçnh ta duìng tãn goüi thay cho viãûc duìng træûc tiãúp giaï trë âoï. Vê duû: ChuVi := D * Pi; trong âoï, Pi laì mäüt hàòng säú chuáøn cuía Pascal (tæïc laì ta coï thãø duìng maì khäng cáön khai baïo vaì gaïn giaï trë). - Hàòng säú luän luän âæåüc khai baïo træåïc pháön khai baïo biãún nãúu sæí duûng theo phæång phaïp âàût tãn cho hàòng. 2. Cuï phaïp khai baïo: Const a1 = Trë_säú_1, a2 = Trë_säú_2, an = Trë_säú_n; Trong âoï: a1... an laì tãn caïc hàòng säú, caïc trë_säú_1,2,...,n laì caïc giaï trë gaïn cho caïc tãn hàòng a1...an. F Vê duû mäüt caïch khai baïo hàòng säú: Const Pi = 3.1416, Max = 500; 4 Vê duû: chæång trçnh tênh chu vi âæåìng troìn coï sæí duûng hàòng säú Pi do ta âënh nghéa: Program TinhCV_DT_HT; Const Pi = 3.1416; Var R :Real; Begin Trang 11
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 12 — Write ( ‘ Nhap ban kinh hinh tron : ‘ ); Readln (R); Writeln ( ‘ Dien tich hinh tron = ‘ , Pi * R * R ); Writeln ( ‘ Chu vi hinh tron = ‘ , 2 * R * Pi); Readln; End. Ö Ghi chuï: - Ta traïnh viãút: z := Exp(1.23) + Sin(2.34) * Sin(2.34); - Ta seî tháúy tai haûi ngay vç khi muäún tênh laûi z våïi giaï trë måïi cuía x, vê duû x = 1.55, khäng leî laûi âi thay hãút 3 vë trê våïi 2.34 (laì giaï trë cuû thãø cuía x maì ta âaî khäng sæí duûng hàòng säú) thaình 1.55 !! - Trong chæång trçnh trãn, baûn coï thãø täúi æu hoaï thãm âãø chæång trçnh chaûy nhanh hån bàòng caïch thay hai láön tênh Sin(x) bàòng mäüt láön. Cuû thãø, ta thæûc hiãûn nhæ sau: t := Sin(x); z := Exp(a + t * t - x); Taïc phong täúi æu hoaï naìy seî ráút coï êch cho baûn khi baûn coï mäüt chæång trçnh våïi khäúi læåüng tênh toaïn âäö säü, coï thãø chaûy vaìi ngaìy âãm liãn tuûc nhæng nãúu biãút täúi æu ngay tæì âáöu thç seî giaím båït xuäúng coìn mäüt ngaìy chàóng haûn. Luïc naìy baûn måïi ‘tháúu hiãøu’ täúi æu hoaï âãø laìm gç ? II. Biãún säú: 1. Khaïi niãûm: - Laì âaûi læåüng maì giaï trë cuía noï coï thãø thay âäøi trong quaï trçnh thæûc hiãûn chæång trçnh. Biãún âæåüc khai baïo bàòng tæì khoaï VAR. - Biãún laì tãn cuía mäüt vuìng bäü nhåï læu træî dæî liãûu. - Biãún âæåüc truy xuáút trong chæång trçnh thäng qua tãn biãún. - Biãún laì mäüt cáúu truïc ghi nhåï dæî liãûu vç váûy phaíi âæåüc quy âënh theo mäüt kiãøu dæî liãûu naìo âoï, vê duû kiãøu Integer, Byte, Char,... 2. Cuï phaïp khai baïo cho caïc biãún: VAR Tãn_biãún_1, Tãn_biãún_2, Tãn_biãún_n : Kiãøu_dæî_liãûu_cuía_biãún; Trong âoï: Tãn_biãún_1, Tãn_biãún_2, Tãn_biãún_n laì tãn caïc biãún cáön khai baïo âãø sæí duûng trong chæång trçnh, Kiãøu_dæî_liãûu_cuía_biãún laì mäüt trong caïc kiãøu dæî liãûu Trang 12
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 13 — chuáøn (âaî âæåüc nãu trong pháön II cuía baìi 2) cuía Pascal hoàûc do ngæåìi duìng âënh nghéa. F Vê duû mäüt caïch khai baïo biãún: Var a,b : Integer; c : Real; Ten : String [10]; 4 Vê duû: chæång trçnh tênh täøng hai säú nguyãn âæåüc nháûp tæì baìn phêm. Trong baìi naìy, ta cáön khai baïo hai biãún a vaì b âãø tênh toaïn. Uses CRT; Var a, b : Integer; Begin ClrScr; Write( ‘ Nhap so thu nhat : ‘ ); Readln(a); Write( ‘ Nhap so thu hai : ‘ ); Readln(b); Write( ‘ Ket qua : ‘, a ,’ + ‘, b ,’ = ‘, a + b); Readln; End. III. Biãøu thæïc: Mäüt biãøu thæïc âæåüc taûo båíi caïc toaïn tæí (pheïp toaïn) vaì caïc toaïn haûng duìng âãø thãø hiãûn mäüt cäng thæïc toaïn hoüc. Toaïn haûng coï thãø laì hàòng, haìm hoàûc biãún. 4 Vê duû: Sau khi khai coï baïo: Const Max = 120; Var x: Integer; ta coï thãø viãút biãøu thæïc sau: 5 + Max * Exp(x); Trong âoï: + vaì * laì hai toaïn tæí, caïc hàòng säú 5, Max vaì haìm Exp(x) laì caïc toaïn haûng. Ö Chuï yï: - Mäüt hàòng, mäüt biãún, mäüt haìm cuîng âæåüc xem laì biãøu thæïc, âoï laì biãøu thæïc âån giaín. - Caïc pheïp toaïn trong mäüt biãøu thæïc âæåüc sàõp xãúp theo thæï tæû æu tiãn nhæ sau: Trang 13
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 14 — + Caïc pheïp toaïn mäüt ngäi âæåüc æu tiãn thæï nháút laì: dáúu dæång (+), dáúu ám (- ), pheïp phuí âënh (not). + Caïc pheïp toaïn nhán chia: nhán (*), chia (/), láúy pháön nguyãn (div), láúy pháön dæ (mod), pheïp vaì (and). + Caïc pheïp cäüng træì: cäüng (+), træì (-), pheïp hoàûc (or). + Caïc pheïp so saïnh: = , = , < >. - Biãøu thæïc trong càûp dáúu ngoàûc ( ) âæåüc thæûc hiãûn træåïc tiãn nãúu coï. - Caïc toaïn tæí cuìng thæï tæû æu tiãn thç âæåüc thæûc hiãûn tæì traïi qua phaíi. 4 Vê duû viãûc sæí duûng caïc toaïn tæí vaì toaïn haûng: 3 + 5 * 3 = 18 (3 + 5) * 3 = 24 5 / 2 * 3 = 7.5 (5 + 2 > 4) and not (true or (5 - 3 = 8)) = false −b+ d ( -b + sqrt(d) ) / 2 * a ( coï nghéa: a ) 2 IV. Cáu lãûnh âån giaín: Sau pháön khai baïo dæî liãûu laì pháön lãûnh cuía chæång trçnh. Pháön naìy xaïc âënh caïc cäng viãûc maì chæång trçnh phaíi thæûc hiãûn xæí lyï caïc dæî liãûu âaî âæåüc khai baïo. Cáu lãûnh âæåüc chia thaình hai loaûi: - Cáu lãûnh âån giaín: + Lãûnh gaïn (:=) + Lãûnh Nháûp - Xuáút (READ, READLN, WRITE, WRITELN). + Goüi thuí tuûc. + Lãûnh nhaíy (GOTO). - Cáu lãûnh coï cáúu truïc: + Lãûnh gheïp (BEGIN... END) + Lãûnh læûa choün (IF... ELSE, CASE... OF) + Lãûnh làûp (FOR, REPEAT... UNTIL, WHILE... DO) + Lãûnh WITH. Ö Ghi chuï: Näüi dung baìi naìy chè âãö cáûp âãún caïc lãûnh âån giaín. Caïc lãûnh coï cáúu truïc âæåüc trçnh baìy åí baìi 4. 1. Lãûnh gaïn: Trang 1 4
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 15 — Lãûnh gaïn duìng âãø gaïn giaï trë cuía mäüt biãøu thæïc (coï thãø laì haìm, biãún hoàûc giaï trë) cho mäüt biãún. Cuï phaïp: Biãún := biãøu_thæïc; F Âáöu tiãn, maïy tênh giaï trë cuía biãøu thæïc åí vãú phaíi, sau âoï, giaï trë tênh âæåüc tæì vãú phaíi âæåüc gaïn cho vãú traïi (biãún). Ö Chuï yï: - Vãú traïi cuía lãûnh gaïn chè coï thãø laì biãún. Vê duû: viãút x + y = 7; laì sai vç vãú traïi cuía cáu lãûnh naìy laì mäüt biãøu thæïc chæï khäng phaíi laì mäüt biãún. - Kiãøu giaï trë cuía biãøu thæïc (haìm, biãún hoàûc giaï trë) åí vãú phaíi phaíi truìng våïi kiãøu cuía biãún âaî âæåüc khai baïo, træì mäüt säú træåìng håüp nhæ biãún kiãøu thæûc (Single, Real, Double) coï thãø nháûn giaï trë kiãøu nguyãn (Shorint, Byte, Integer, Word, Longint),... do táûp håüp säú nguyãn laì táûp con cuía säú thæûc. 4 Vê duû: Sau khi âaî coï khai baïo: Var c1, c2 : Char; i, j : Integer; x, y : Real; thç ta coï thãø thæûc hiãûn caïc pheïp gaïn sau: c1 := ‘A’; c2 := Chr(97); i := (23 + 6) * 2 mod 3; j := Round(20 / 3); x := i; y := j; 2. Lãûnh Xuáút: Lãûnh xuáút duìng âãø in lãn maìn hçnh caïc dæî liãûu, kãút quaí hay caïc thäng baïo. Cuï phaïp (1). WRITE(Biãøu_thæïc_1, Biãøu_thæïc_2,..., Biãøu_thæïc_n); (2). WRITELN(Biãøu_thæïc_1, Biãøu_thæïc_2,..., Biãøu_thæïc_n); (3). WRITELN; Trang 1 5
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 16 — Daûng (1): In lãn maìn hçnh giaï trë caïc biãøu thæïc taûi vë trê hiãûn haình cuía con troí theo thæï tæû viãút trong lãûnh. Sau khi thæûc hiãûn xong lãûnh WRITE(... ); con troí âënh vë taûi sau giaï trë biãøu_thæïc_n cuía cáu lãûnh. Daûng (2): In lãn maìn hçnh giaï trë caïc biãøu thæïc taûi vë trê hiãûn haình cuía con troí theo thæï tæû viãút trong lãûnh. Sau khi thæûc hiãûn xong lãûnh WRITELN(... ); con troí âënh vë taûi âáöu doìng kãú tiãúp. Daûng (3): Duìng âãø chuyãøn con troí xuäúng doìng. 4 Vê duû: Var a, b : Byte; Begin A := 2; B := 4; Write ( ‘ Day la ket qua phep nhan A voi B: ‘, a * b); Writeln; Writeln( ‘ **** ‘ ); Write ( ‘ ------------------------------------------------- ‘ ); End. 1 Kãút quaí sau khi chaûy chæång trçnh trãn: Day la ket qua phep nhan A voi B: 8 **** -------------------------------------------- Ö Chuï yï: Coï hai daûng viãút trong thuí tuûc Write vaì Writeln laì viãút khäng quy caïch vaì viãút coï quy caïch. Âiãöu naìy ta xeït qua tæìng kiãøu dæî liãûu. (1). Vê duû vãö caïc daûng viãút khäng coï quy caïch: Uses CRT; Var I : Integer; R : Real; Ch : Char; B : Boolean; Begin I := 123; R := 123.456; Ch := ‘A’; B := 2
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 17 — Writeln( R); {2} Writeln( 3.14 ); {3} Writeln( 20 * 2.5); {4} Writeln; Writeln( Ch ); {5} Writeln( B ); {6} Writeln( #7 ); {7} End. F Caïch viãút khäng quy caïch seî canh näüi dung theo lãö bãn traïi. - Säú nguyãn âæåüc viãút ra våïi säú chäù âuïng bàòng säú chæî säú gaïn vaìo, kãø tæì vë trê bãn traïi. Lãûnh {1} in ra: 123 - Säú thæûc âæåüc viãút ra våïi trçnh tæû sau: mäüt dáúu caïch, tiãúp âãún laì mäüt säú pháön nguyãn, dáúu cháúm, 10 vë trê säú tháûp phán, tiãúp âãún laì chæî E, dáúu cuía pháön muî (+,-), hai säú biãøu diãùn giaï trë pháön muî: + Lãûnh {2}in ra: 1.2345600000E+02 + Lãûnh {3}in ra: 3.1400000000E+00 + Lãûnh {4}in ra: 5.0000000000E+01 - Kiãøu kyï tæû in bçnh thæåìng, mäüt kyï tæû chiãúm mäüt chäù. Lãûnh {5}in ra: A - Kiãøu Boolean in ra mäüt trong hai tæì True hoàûc False. Lãûnh {6}in ra: True - Lãûnh {7}: phaït ra mäüt tiãúng Beep åí loa. (2). Vê duû vãö caïc daûng viãút coï quy caïch: Var I : Integer; R , Z : Real; Ch : Char; B : Boolean; Begin I := 123; R := 123.456; Ch := ‘A’; B := 2
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 18 — Writeln( 35.123456789:12:6 ); {4} Writeln( R:12 ); {5} Writeln( Ch:5); {6} Writeln(‘ABC’:5); {7} Writeln( B:7 ); {8} Writeln( Z:1:2 ); {9} End. F Caïch viãút coï quy caïch seî canh näüi dung theo lãö bãn phaíi, nãúu thæìa chäù thç pháön lãö bãn traïi âæåüc âãø tràõng. - Lãûnh {1} vaì {2} daình 8 kyï tæû trãn maìn hçnh âãø in caïc säú nguyãn. - Lãûnh {3} vaì {4} daình 12 kyï tæû trãn maìn hçnh âãø in caïc säú thæûc våïi 6 säú leí pháön tháûp phán, kãút quaí in ra: 123.456000 vaì 35.123457 (do pháön tháûp phán >6 chäù nãn âæåüc laìm troìn säú). - Lãûnh {5}in giaï trë cuía R våïi 12 chäù daûng muî säú: 1.23456E+02 - Lãûnh {6},{7} daình 5 chäù âãø in chæî A vaì xáu kyï tæû ABC. - Lãûnh {8} daình 7 kyï tæû âãø in giaï trë True. - Lãûnh {9} in säú thæûc Z nhæ sau: Writeln( Z : m : n ). Nãúu m < n thç säú thæûc Z âæåüc in våïi n säú leí, coìn säú chäù trãn maìn hçnh thç tuyì vaìo âäü daìi cuía säú Z. Trong træåìng håüp m > n vaì âäü daìi cuía säú låïn hån m thç säú âæåüc tæû âäüng canh phaíi. Træåìng håüp m > n vaì âäü daìi cuía säú nhoí hån m thç säú âæåüc canh phaíi dæ bao nhiãu kyï tæû maïy âãø träúng bãn traïi. Ö Træåìng håüp trong cáu cáön hiãøn thë dáúu ‘ thç ta phaíi viãút hai dáúu ‘ liãön nhau (“). 4 Vê duû: Write( ‘ Don‘’t forget me ! ’ ); 1 Kãút quaí: Trãn maìn hçnh hiãøn thë: Don‘t forget me ! Ö Ghi chuï: Muäún in dæî liãûu ra maïy in ta duìng lãûnh Write hoàûc Writeln våïi tham säú LST vaìo træåïc. Biãún LST âæåüc khai baïo trong Unit Printer, vç váûy, âãø sæí duûng lãûnh in ta cáön phaíi khai baïo thæ viãûn Printer trong chæång trçnh. 4 Vê duû: Uses Printer; Trang 1 8
- – Giaïo trçnh Láûp trçnh Pascal càn baín — – 19 — Begin Writeln(Lst,’ Welcome to Turbo Pascal Language ! ‘ ); End. 1 Kãút quaí: Khi chaûy maïy in ra giáúy cáu Welcome to Turbo Pascal Language ! 3. Lãûnh Nháûp: Lãûnh nháûp duìng âãø âæa dæî liãûu tæì baìn phêm vaìo caïc biãún. Cuï phaïp: (1) Readln(Biãún_1, biãún_2, biãún_n); (2) Read(Biãún_1, biãún_2, biãún_n); Khi thæûc hiãûn lãûnh naìy, maïy dæìng laûi chåì ngæåìi duìng nháûp vaìo âuí n láön nháûp dæî liãûu tæång æïng våïi n biãún. Ngoaìi ra, ta coï thãø sæí duûng thuí tuûc Readln âãø dæìng chæång trçnh vaì chåì ngæåìi duìng áún mäüt phêm báút kyì âãø tiãúp tuûc, kyï tæû âæåüc áún khäng hiãøn thë lãn maìn hçnh. Ö Chuï yï: - Caïc biãún trong thuí tuûc Readln phaíi thuäüc kiãøu nguyãn, thæûc, kyï tæû hoàûc xáu kyï tæû. Do âoï, ta khäng thãø naûp tæì baìn phêm giaï trë True hoàûc False caïc biãún kiãøu Boolean. - Dæî liãûu nháûp vaìo phaíi tæång æïng våïi kiãøu âaî khai baïo. Phaíi áún phêm Enter âãø thæûc hiãûn lãûnh nháûp sau khi goî xong giaï trë cáön nháûp. 4 Vê duû 1: Våïi a, b laì hai biãún nguyãn, x laì biãún thæûc. Xeït âoaûn chæång trçnh sau: Readln(a, b); Readln(x); Nãúu ta goî caïc phêm: 2 24 6.5 14 < Enter > 1 Kãút quaí: a nháûn giaï trë 2, b nháûn giaï trë 24. Caïc kyï tæû coìn laûi bë boí qua vaì khäng âæåüc xeït trong thuí tuûc Readln(x) tiãúp theo. Nhæ váûy, maïy dæìng laûi åí cáu lãûnh Readln(x) âãø chåì nháûp säú liãûu cho biãún x. 4 Vê duû 2: Giaí sæí ta âaî khai baïo: Var s1, s2, s3 : String[5]; Xeït cáu lãûnh: Readln(s1, s2, s3); Nãúu ta khäng nháûp kyï tæû maì chè áún < Enter > thç caí 3 biãún s1, s2, s3 âãöu laì xáu räùng. Trang 19
CÓ THỂ BẠN MUỐN DOWNLOAD
-
Giáo trình: Lập trình cơ bản
65 p |
372 |
239
-
Giáo trình Lập trình ASP.NET bằng C#
238 p |
531 |
213
-
Giáo trình Lập trình Java - Đại học Bách Khoa Hà Nội
239 p |
537 |
194
-
Giới thiệu về chương trình lập trình trên window
69 p |
343 |
162
-
Giáo trình: Ngôn ngữ lập trình máy tính C++
114 p |
326 |
161
-
Giáo trình:Lập trình Pascal cơ bản
90 p |
257 |
141
-
Giáo trình: Lập trình Pascal căn bản 11
91 p |
400 |
132
-
Ngôn ngữ lập trình Fortran 90
223 p |
346 |
130
-
Giáo trình Lập trình nâng cao - Trần Uyên Trang
154 p |
373 |
126
-
Ngôn ngữ lập trình - Lập trình song song
36 p |
314 |
117
-
Giáo trình lập trình Pascal
90 p |
177 |
104
-
Giáo trình lập trình căn bản
65 p |
265 |
95
-
Sams Teach Yourself Visual C# 2008
529 p |
127 |
43
-
Giáo trình Lập Trình căn bản hệ Trung cấp - 1
11 p |
87 |
22
-
Giáo trình: Lập trình Joomla Chương 3: Tạo component
28 p |
78 |
22
-
Ngôn ngữ lập trình tự nhiên
3 p |
26 |
2

Set-Cookie: TLDEVNamespace=er7eo4fehqacaf3sqfkmjgonr5; path=/; domain=.tailieu.vn; HttpOnly

Server: Apache/2.2.31 (CentOS)


text:
Emco winnc ge
-
Phần mềm điều khiển máy tiện Emco WinNC GE SERIES FANUC 21 TB là một phần mềm huấn luyện cơ bản của EMCO trên cơ sở máy tính PC. Phần mềm này rèn luyện kĩ năng vận hành và lập trình một số bộ điều khiển máy CNC trên PC. Các gia công phay của dòng máy EMCO và Concept turn có thể điều khiển trực tiếp trên PC bởi phần mềm EMCO WinNC cho máy tiện EMCO.
96p philong9016 14-12-2012 420 170 Download
-
EMCO WinNC GE Series Fanuc 21 TB Software description/ Software version from 13.76 GE Fanuc Series 21 RESET O ( N Z W S K ) G C H T R E P Y V L F Q 7 4 1 8 5 2 0 EOB 9 6 3 . CAN ALTER XA HELP B D ? INSERT U , M # J @ DELETE = * + / SHIFT I [ ] & SP INPUT PAGE PAGE POS PROG OFFSET SETTING CUSTOM SYSTEM MESSAGE GRAPH MMC CNC GE Fanuc Series 21 USB SKIP DRY RUN RS232 60 7 0 80 90 100 110 120 +X +C -Z -C -X +Z 100% 1 10 100 1x OPT. STOP 40 1000 10000 SBL EDIT 20 10 6 2 0 AUX AUX 0 1 Software description EMCO WinNC Fanuc 21 TB Ref.No.
96p hoangtrongvan 22-12-2010 411 89 Download
-
EMCO WinNC GE Series Fanuc 21 MB Software description/ Software version from 13.76 Software description EMCO WinNC Fanuc 21 MB Ref.No. EN 1901 Edition C2003-7
78p chienbig92 01-04-2013 191 48 Download
-
tài liệu “Hệ thống điều khiển số trong công nghiệp” cung cấp cho bạn đọc những vấn đề cơ bản nhất của hệ thống điều khiển máy công cụ điều khiển số và các thiết bị dùng để điều khiển này. Tài liệu trợ giúp 1 phần cho bạn đọc có ý tưởng thiết kế hệ điều khiển CNC dùng động cơ bước..
98p nguyenvanngo3899 13-12-2012 74 16 Download
-
EMCO WinNC GE Series Fanuc 21 TB Mô tả phần mềm / phiên bản phần mềm từ 13.76
30p tieulac 29-11-2010 270 132 Download
-
The EMCO WinNC GE SERIES FANUC 21TB Turning Software is part of the EMCO training concept on PC-basis. This concept aims at learning the operation and programming of a certain machine control on the PC. The milling machines of the EMCO PC TURN und CONCEPT TURN series can be directly controlled via PC by means of the EMCO WinNC for the EMCO TURN.
96p kimthong 23-03-2011 112 37 Download
-
The EMCO WinNC GE SERIES FANUC 21TB Turning Software is part of the EMCO training concept on PC-basis. This concept aims at learning the operation and programming...
96p ruanyuwei1205 23-03-2011 78 23 Download

markdown:
# Emco winnc ge
**Emco winnc ge**
-
Phần mềm điều khiển máy tiện Emco WinNC GE SERIES FANUC 21 TB là một phần mềm huấn luyện cơ bản của EMCO trên cơ sở máy tính PC. Phần mềm này rèn luyện kĩ năng vận hành và lập trình một số bộ điều khiển máy CNC trên PC. Các gia công phay của dòng máy EMCO và Concept turn có thể điều khiển trực tiếp trên PC bởi phần mềm EMCO WinNC cho máy tiện EMCO.
96p
philong9016
14-12-2012
420
170
Download
-
EMCO WinNC GE Series Fanuc 21 TB Software description/ Software version from 13.76 GE Fanuc Series 21 RESET O ( N Z W S K ) G C H T R E P Y V L F Q 7 4 1 8 5 2 0 EOB 9 6 3 . CAN ALTER XA HELP B D ? INSERT U , M # J @ DELETE = * + / SHIFT I [ ] & SP INPUT PAGE PAGE POS PROG OFFSET SETTING CUSTOM SYSTEM MESSAGE GRAPH MMC CNC GE Fanuc Series 21 USB SKIP DRY RUN RS232 60 7 0 80 90 100 110 120 +X +C -Z -C -X +Z 100% 1 10 100 1x OPT. STOP 40 1000 10000 SBL EDIT 20 10 6 2 0 AUX AUX 0 1 Software description EMCO WinNC Fanuc 21 TB Ref.No.
96p
hoangtrongvan
22-12-2010
411
89
Download
-
EMCO WinNC GE Series Fanuc 21 MB Software description/ Software version from 13.76 Software description EMCO WinNC Fanuc 21 MB Ref.No. EN 1901 Edition C2003-7
78p
chienbig92
01-04-2013
191
48
Download
-
tài liệu “Hệ thống điều khiển số trong công nghiệp” cung cấp cho bạn đọc những vấn đề cơ bản nhất của hệ thống điều khiển máy công cụ điều khiển số và các thiết bị dùng để điều khiển này. Tài liệu trợ giúp 1 phần cho bạn đọc có ý tưởng thiết kế hệ điều khiển CNC dùng động cơ bước..
98p
nguyenvanngo3899
13-12-2012
74
16
Download
-
EMCO WinNC GE Series Fanuc 21 TB Mô tả phần mềm / phiên bản phần mềm từ 13.76
30p
tieulac
29-11-2010
270
132
Download
-
The EMCO WinNC GE SERIES FANUC 21TB Turning Software is part of the EMCO training concept on PC-basis. This concept aims at learning the operation and programming of a certain machine control on the PC. The milling machines of the EMCO PC TURN und CONCEPT TURN series can be directly controlled via PC by means of the EMCO WinNC for the EMCO TURN.
96p
kimthong
23-03-2011
112
37
Download
-
The EMCO WinNC GE SERIES FANUC 21TB Turning Software is part of the EMCO training concept on PC-basis. This concept aims at learning the operation and programming...
96p
ruanyuwei1205
23-03-2011
78
23
Download

WARC-Type: response

Content-Type: application/http; msgtype=response

Set-Cookie: TLDEVNamespace=rkkhctau47mi777gplfj0g7jj5; path=/; domain=.tailieu.vn; HttpOnly

Connection: close

Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0

Pragma: no-cache

Vary: Accept-Encoding

Content-Type: text/html; charset=UTF-8


text:
Với thông điệp “Điểm tựa tương lai cho ngày dài hạnh phúc”, Hưng Gia Toàn Mỹ (GoldenCare) là gói sản phẩm tài chính có tính bảo vệ và tích lũy dành cho cá nhân trong độ tuổi từ 18 đến 64, thời gian đóng phí từ 1 đến 47 năm. Hưng Gia Toàn Mỹ mang đến sự linh hoạt trong việc lập kế hoạch tài chính và đảm bảo mức lãi suất cam kết tối thiểu trên giá trị tài khoản. Đây là giải pháp tài chính toàn diện cho một tương lai hạnh phúc, an nhàn, mạnh khỏe.
Ông Byron Dustin Ball, Tổng Giám đốc điều hành của BIDV MetLife chia sẻ: “Khách hàng luôn được đặt ở vị trí trọng tâm trong mọi hoạt động kinh doanh của chúng tôi. Hưng Gia Toàn Mỹ thể hiện cam kết mạnh mẽ của BIDV MetLife trong nỗ lực hỗ trợ khách hàng có được các giải pháp tài chính phù hợp nhất cho bản thân và gia đình. Chúng tôi hiểu rõ văn hóa của người Việt Nam, về mối quan tâm và nhu cầu tích lũy và bảo vệ cho cuộc sống, đặc biệt khi về già, BIDV MetLife giúp khách hàng chuẩn bị cho một tương lai thảnh thơi, hạnh phúc, mạnh khỏe và an toàn tài chính”.
Hưng Gia Toàn Mỹ (GoldenCare) giúp khách hàng lên kế hoạch tài chính cho tương lai lâu dài từ những năm tháng còn rất trẻ, đáp ứng đa dạng các yêu cầu của khách hàng về mức phí, thời gian đóng phí, quyền lợi bảo hiểm, tính linh hoạt và sinh lợi của gói bảo hiểm. Hưng Gia Toàn Mỹ (Golden Care) đảm bảo tài chính để khách hàng có những tháng ngày thảnh thơi, hạnh phúc, tận hưởng phong cách sống hiện đại cho tương lai lâu dài khi đã kết thúc tuổi lao động hay đảm bảo an toàn tài chính khi không may gặp phải rủi ro trong cuộc sống.
Ngoài cơ hội thụ hưởng ngay lập tức các quyền lợi ngắn hạn, Hưng Gia Toàn Mỹ (GoldenCare) mang đến sự linh hoạt trong việc lựa chọn các hình thức đóng phí phong phú và quyền lợi bảo đảm, để khách hàng có thể dễ dàng lựa chọn phương án đầu tư phù hợp với nhu cầu của gia đình.
Bên cạnh các quyền lợi cơ bản, BIDV MetLife hợp tác với các đối tác hàng đầu về chăm sóc sức khỏe và sắc đẹp, phong cách sống để thành lập GoldenCare Club – Gói dịch vụ cộng thêm dành riêng cho khách hàng Hưng Gia Toàn Mỹ (GoldenCare), bao gồm những quyền lợi và ưu đãi đặc biệt dành cho thành viên của GoldenCare Club.
Ông Ball chia sẻ thêm “Để có được sức khỏe và hạnh phúc trong tương lai, chúng tôi tin rằng khách hàng cần có sự chuẩn bị từ ngày hôm nay. GoldenCare club mang đến cơ hội để khách hàng tiếp cận với các dịch vụ làm đẹp, rèn luyện và chăm sóc sức khỏe tại các tổ chức có uy tín và chất lượng dịch vụ quốc tế. Khi mua sản phẩm Hưng Gia Toàn Mỹ (GoldenCare), khách hàng lập tức trở thành thành viên của GoldenCare Club và được thụ hưởng các dịch vụ tốt nhất về chăm sóc sắc đẹp, rèn luyện và bảo vệ sức khỏe chuẩn bị cho tương lai mạnh khỏe hạnh phúc lâu dài”.
Bình luậnÝ kiến của bạn sẽ được biên tập trước khi đăng. Xin vui lòng gõ tiếng Việt có dấu

markdown:
![ BIDV MetLife ra mắt giải pháp tài chính cho gia đình](http://static.tapchitaichinh.vn/660x450/Uploaded/tranthuthuy/2016_06_21/bidv1taya_MBLZ.jpg)
Với thông điệp “Điểm tựa tương lai cho ngày dài hạnh phúc”, Hưng Gia Toàn Mỹ (GoldenCare) là gói sản phẩm tài chính có tính bảo vệ và tích lũy dành cho cá nhân trong độ tuổi từ 18 đến 64, thời gian đóng phí từ 1 đến 47 năm. Hưng Gia Toàn Mỹ mang đến sự linh hoạt trong việc lập kế hoạch tài chính và đảm bảo mức lãi suất cam kết tối thiểu trên giá trị tài khoản. Đây là giải pháp tài chính toàn diện cho một tương lai hạnh phúc, an nhàn, mạnh khỏe.
Ông Byron Dustin Ball, Tổng Giám đốc điều hành của BIDV MetLife chia sẻ: “Khách hàng luôn được đặt ở vị trí trọng tâm trong mọi hoạt động kinh doanh của chúng tôi. Hưng Gia Toàn Mỹ thể hiện cam kết mạnh mẽ của BIDV MetLife trong nỗ lực hỗ trợ khách hàng có được các giải pháp tài chính phù hợp nhất cho bản thân và gia đình. Chúng tôi hiểu rõ văn hóa của người Việt Nam, về mối quan tâm và nhu cầu tích lũy và bảo vệ cho cuộc sống, đặc biệt khi về già, BIDV MetLife giúp khách hàng chuẩn bị cho một tương lai thảnh thơi, hạnh phúc, mạnh khỏe và an toàn tài chính”.
Hưng Gia Toàn Mỹ (GoldenCare) giúp khách hàng lên kế hoạch tài chính cho tương lai lâu dài từ những năm tháng còn rất trẻ, đáp ứng đa dạng các yêu cầu của khách hàng về mức phí, thời gian đóng phí, quyền lợi bảo hiểm, tính linh hoạt và sinh lợi của gói bảo hiểm. Hưng Gia Toàn Mỹ (Golden Care) đảm bảo tài chính để khách hàng có những tháng ngày thảnh thơi, hạnh phúc, tận hưởng phong cách sống hiện đại cho tương lai lâu dài khi đã kết thúc tuổi lao động hay đảm bảo an toàn tài chính khi không may gặp phải rủi ro trong cuộc sống.
Ngoài cơ hội thụ hưởng ngay lập tức các quyền lợi ngắn hạn, Hưng Gia Toàn Mỹ (GoldenCare) mang đến sự linh hoạt trong việc lựa chọn các hình thức đóng phí phong phú và quyền lợi bảo đảm, để khách hàng có thể dễ dàng lựa chọn phương án đầu tư phù hợp với nhu cầu của gia đình.
Bên cạnh các quyền lợi cơ bản, BIDV MetLife hợp tác với các đối tác hàng đầu về chăm sóc sức khỏe và sắc đẹp, phong cách sống để thành lập GoldenCare Club – Gói dịch vụ cộng thêm dành riêng cho khách hàng Hưng Gia Toàn Mỹ (GoldenCare), bao gồm những quyền lợi và ưu đãi đặc biệt dành cho thành viên của GoldenCare Club.
Ông Ball chia sẻ thêm “Để có được sức khỏe và hạnh phúc trong tương lai, chúng tôi tin rằng khách hàng cần có sự chuẩn bị từ ngày hôm nay. GoldenCare club mang đến cơ hội để khách hàng tiếp cận với các dịch vụ làm đẹp, rèn luyện và chăm sóc sức khỏe tại các tổ chức có uy tín và chất lượng dịch vụ quốc tế. Khi mua sản phẩm Hưng Gia Toàn Mỹ (GoldenCare), khách hàng lập tức trở thành thành viên của GoldenCare Club và được thụ hưởng các dịch vụ tốt nhất về chăm sóc sắc đẹp, rèn luyện và bảo vệ sức khỏe chuẩn bị cho tương lai mạnh khỏe hạnh phúc lâu dài”.
## Bình luậnÝ kiến của bạn sẽ được biên tập trước khi đăng. Xin vui lòng gõ tiếng Việt có dấu

Cache-Control: public, max-age=300

Content-Type: text/html; charset=utf-8

Set-Cookie: .ASPXANONYMOUS=Oq9q-szb0gEkAAAANWYxMWYwZWEtNzU4Yy00MzNhLWJkYjgtYjRiMmY2NDU3NTBj0; domain=tapchitaichinh.vn; expires=Fri, 02-Jun-2017 18:20:56 GMT; path=/; HttpOnly


text:
Hãy áp dụng những mẹo dưới đây sẽ giúp bạn thoát khỏi nỗi ám ảnh này nhé:
1. Đóng tất cả các cửa
Nền nhà bị ẩm ướt là do hơi nước từ bên ngoài xâm nhập vào. Nhiều người hong khô nền nhà bằng cách mở hết cả cửa sổ, cửa chính. Tuy nhiên, đó là suy nghĩ sai lầm, bởi cách làm này càng khiến nhà ẩm ướt hơn.
Để khắc phục tình hình, hãy đóng tất cả các cửa, các lỗ hổng thông giữa nhà với bên ngoài.
2. Dùng điều hòa, máy sưởi
Một cách tối ưu để chống ẩm cho nhà là bật điều hòa ở chế độ khô (điều hòa hai chiều). Điều hòa ở chế độ khô không chỉ hút ẩm mà còn giúp lưu thông không khí, đảm bảo sức khỏe cho trẻ.
3. Chỉ lau nhà bằng giẻ khô
Khăn, giẻ khô có khả năng hút nước rất tốt.
Bạn có thể, dùng khăn và giẻ khô để lau nhà, đặc biệt ở những không gian có điều hòa, quạt gió nhé.
4. Lau khô tay, chân trước khi lên giường
Nếu mới bước ra từ nhà tắm, hoặc mới từ ngoài về bạn nên lau sạch chân tay trước khi vào nhà. Trước khi lên giường cũng cần đảm bảo chân tay khô ráo để tránh làm ẩm chăn, đệm.
5. Đóng cửa nhà tắm
Sau khi dùng nhà tắm xong bạn nên đóng cửa chính nhà tắm, để hơi nước không thoát ra ngoài làm ẩm nhà.
6. Sử dụng nước nóng
Nước nóng bốc hơi nhanh hơn, và cũng giúp ích rất nhiều, đặc biệt là trong việc rửa bát.
Sau khi rửa sạch, bạn nên tráng lại bát đũa bằng nước nóng và úp vào rổ trước khi chuyển lên tủ bát. Cách này sẽ giúp tủ bát không bị đọng nước rớt nước ra sàn nhà bạn nhé.
Khải Nguyên

markdown:
Hãy áp dụng những mẹo dưới đây sẽ giúp bạn thoát khỏi nỗi ám ảnh này nhé:
**1. Đóng tất cả các cửa**
Nền nhà bị ẩm ướt là do hơi nước từ bên ngoài xâm nhập vào. Nhiều người hong khô nền nhà bằng cách mở hết cả cửa sổ, cửa chính. Tuy nhiên, đó là suy nghĩ sai lầm, bởi cách làm này càng khiến nhà ẩm ướt hơn.
*Để khắc phục tình hình, hãy đóng tất cả các cửa, các lỗ hổng thông giữa nhà với bên ngoài.* **2. Dùng điều hòa, máy sưởi**
Một cách tối ưu để chống ẩm cho nhà là bật điều hòa ở chế độ khô (điều hòa hai chiều). Điều hòa ở chế độ khô không chỉ hút ẩm mà còn giúp lưu thông không khí, đảm bảo sức khỏe cho trẻ.
**3. Chỉ lau nhà bằng giẻ khô** *Khăn, giẻ khô có khả năng hút nước rất tốt.*
Bạn có thể, dùng khăn và giẻ khô để lau nhà, đặc biệt ở những không gian có điều hòa, quạt gió nhé.
**4. Lau khô tay, chân trước khi lên giường**
Nếu mới bước ra từ nhà tắm, hoặc mới từ ngoài về bạn nên lau sạch chân tay trước khi vào nhà. Trước khi lên giường cũng cần đảm bảo chân tay khô ráo để tránh làm ẩm chăn, đệm.
**5. Đóng cửa nhà tắm**
Sau khi dùng nhà tắm xong bạn nên đóng cửa chính nhà tắm, để hơi nước không thoát ra ngoài làm ẩm nhà.
**6. Sử dụng nước nóng** *Nước nóng bốc hơi nhanh hơn, và cũng giúp ích rất nhiều, đặc biệt là trong việc rửa bát.*
Sau khi rửa sạch, bạn nên tráng lại bát đũa bằng nước nóng và úp vào rổ trước khi chuyển lên tủ bát. Cách này sẽ giúp tủ bát không bị đọng nước rớt nước ra sàn nhà bạn nhé.
**Khải Nguyên**

WARC-Truncated: length

Server: Apache/2.2.15 (CentOS)

Set-Cookie: password=deleted; expires=Thu, 01-Jan-1970 00:00:01 GMT; path=/


text:
Sáng 18/3, Thủ tướng Nguyễn Xuân Phúc và lãnh đạo một số bộ, ngành đã đến thị sát công nghệ điện rác của Công ty TNHH Thủy lực máy HMC tại Khu công nghiệp Đồng Văn 2, tỉnh Hà Nam. Báo cáo vớ... Read more
Startup Việt: Từ ý tưởng đến dự án
Một câu hỏi luôn được các doanh nghiệp startup ở Việt Nam đặt ra là làm thế nào để ý tưởng của họ trở thành hiện thực khi sự hỗ trợ cần thiết không dễ dàng có được. Giải pháp nào để tinh thầ... Read more
Cần Thơ: Festival quốc tế về nông nghiệp thu hút sự chú ý
Triểm lãm “Festival quốc tế nông nghiệp vùng ĐBSCL” vừa được khai mạc tại TP. Cần Thơ hôm 9/3, với sự tham gia của hàng trăm gian hàng của nhiều doanh nghiệp trong và ngoài nước. Triển lãm d... Read more
Startup cần một tầm nhìn chiến lược
Các start-up công nghệ ở Việt Nam muốn thành danh và được các quỹ đầu tư nước ngoài rót vốn thì cần sáng tạo ra những sản phẩm dựa trên mối quan hệ quốc tế. Augen Software của Mitchell Phạm... Read more
Rõ ràng trong suy nghĩ và giao tiếp, dành nhiều thời gian để đánh giá về con người và sự toàn tâm toàn ý cũng như sự gắn bó lâu dài. Ali Rowghani đã từng dành nhiều năm làm việc và quan sá... Read more
Tại buổi làm việc với Ban quản lý Khu công nghệ cao Hòa Lạc ngày 16/2, Thủ tướng Nguyễn Xuân Phúc nêu rõ, Khu CNC Hòa Lạc không chỉ đơn thuần là một khu công nghệ mà là một hình mẫu của nền... Read more
Nỗi lo thất truyền bộ môn Tư duy sáng tạo
Phó GS , TSKH Phan Dũng, nguyên Giám đốc Trung tâm Sáng tạo Khoa học – kỹ thuật (viết tắt là TSK, thuộc ĐH Khoa học Tự nhiên TP.HCM) là người Việt Nam đầu tiên học môn “TRIZ – Tư duy s... Read more
Ngọc Trinh – Hoàng Kiều: Tình yêu hay vở kịch bán hàng online?
Công nghệ bán hàng online, quảng cáo qua mạng xã hội đã trở lên tuyệt luân, hoàn mỹ bởi những cú áp phe tình cảm giữa những nhân vật nổi tiếng, những chiêu trò pr thương hiệu. Cuộc tình Hoàn... Read more
Mạng xã hội đặc biệt là facebook với những Status – lối viết ngắn, nhanh, đơn giản đã vô hình chung biến thành thảm họa của văn hóa đọc đối với người Việt Nam. Mạng xã hội, nơi mỗi con người... Read more
“Trước cuộc cách mạng công nghiệp lần thứ 4, đòi hỏi Việt Nam phải đổi mới, kiến tạo lại nền hành chính để phát huy vai trò của KHCN, nhất là con người và thể chế. Tinh thần chung là k... Read more
Facebook ra mắt tính năng Live Audio
Facebook vừa giới thiệu một tính năng mới mang tên Live Audio, cho phép mọi người có thể nghe những âm thanh phát trực tiếp nhưng không kèm hình ảnh như Live Video. Theo TechCrunch, Facebook... Read more
Bạn đọc bình luận
Nguyễn Văn Nam in: ‘Em gái’ Ngọc Trinh tuyên bố ‘Khinh’ Hoàng Kiều vì chia tay không văn minh
NT bỏ HK là đúng rồi, yêu anh đi em, anh hứa sẽ tặng em quà hơn HK rất ...
Hưng Vũ Văn in: Rồng pikachu Hải Phòng thành 'linh vật' hot nhất Tết 2017
Linh vật được đem ra chế, đúng thật là chả ra sao cả. Hình ảnh linh v ...
Hoàng Thái Phong in: Rực rỡ sắc màu hoa Hướng Dương trong mùa lễ hội
Đẹp quá mình rất muốn đến đây để chụp hoa hướng dương ...

markdown:
Sáng 18/3, Thủ tướng Nguyễn Xuân Phúc và lãnh đạo một số bộ, ngành đã đến thị sát công nghệ điện rác của Công ty TNHH Thủy lực máy HMC tại Khu công nghiệp Đồng Văn 2, tỉnh Hà Nam. Báo cáo vớ...
[Read more ](http://thuonggiathitruong.vn/thu-tuong-tham-quan-nha-may-cong-nghe-dien-rac-dau-tien-tai-viet-nam/)
[Startup Việt: Từ ý tưởng đến dự án](http://thuonggiathitruong.vn/startup-viet-tu-y-tuong-den-du/)
Một câu hỏi luôn được các doanh nghiệp startup ở Việt Nam đặt ra là làm thế nào để ý tưởng của họ trở thành hiện thực khi sự hỗ trợ cần thiết không dễ dàng có được. Giải pháp nào để tinh thầ...
[Read more ](http://thuonggiathitruong.vn/startup-viet-tu-y-tuong-den-du/)
[Cần Thơ: Festival quốc tế về nông nghiệp thu hút sự chú ý](http://thuonggiathitruong.vn/can-tho-festival-quoc-te-ve-nong-nghiep-thu-hut-su-chu-y/)
Triểm lãm “Festival quốc tế nông nghiệp vùng ĐBSCL” vừa được khai mạc tại TP. Cần Thơ hôm 9/3, với sự tham gia của hàng trăm gian hàng của nhiều doanh nghiệp trong và ngoài nước. Triển lãm d...
[Read more ](http://thuonggiathitruong.vn/can-tho-festival-quoc-te-ve-nong-nghiep-thu-hut-su-chu-y/)
[Startup cần một tầm nhìn chiến lược](http://thuonggiathitruong.vn/startup-can-mot-tam-nhin-chien-luoc/)
Các start-up công nghệ ở Việt Nam muốn thành danh và được các quỹ đầu tư nước ngoài rót vốn thì cần sáng tạo ra những sản phẩm dựa trên mối quan hệ quốc tế. Augen Software của Mitchell Phạm...
[Read more ](http://thuonggiathitruong.vn/startup-can-mot-tam-nhin-chien-luoc/)
Rõ ràng trong suy nghĩ và giao tiếp, dành nhiều thời gian để đánh giá về con người và sự toàn tâm toàn ý cũng như sự gắn bó lâu dài. Ali Rowghani đã từng dành nhiều năm làm việc và quan sá...
[Read more ](http://thuonggiathitruong.vn/cach-xay-dung-long-tin-cua-cac-startup-toi-cac-lanh-dao-cong-nghe-noi-tieng/)
Tại buổi làm việc với Ban quản lý Khu công nghệ cao Hòa Lạc ngày 16/2, Thủ tướng Nguyễn Xuân Phúc nêu rõ, Khu CNC Hòa Lạc không chỉ đơn thuần là một khu công nghệ mà là một hình mẫu của nền...
[Read more ](http://thuonggiathitruong.vn/khu-cnc-hoa-lac-la-mot-hinh-mau-cua-nen-kinh-te-viet-nam-thu-nho-trong-tuong-lai/)
[Nỗi lo thất truyền bộ môn Tư duy sáng tạo](http://thuonggiathitruong.vn/noi-lo-truyen-bo-mon-tu-duy-sang-tao/)
Phó GS , TSKH Phan Dũng, nguyên Giám đốc Trung tâm Sáng tạo Khoa học – kỹ thuật (viết tắt là TSK, thuộc ĐH Khoa học Tự nhiên TP.HCM) là người Việt Nam đầu tiên học môn “TRIZ – Tư duy s...
[Read more ](http://thuonggiathitruong.vn/noi-lo-truyen-bo-mon-tu-duy-sang-tao/)
[Ngọc Trinh – Hoàng Kiều: Tình yêu hay vở kịch bán hàng online?](http://thuonggiathitruong.vn/ngoc-trinh-hoang-kieu-tinh-yeu-hay-vo-kich-ban-hang-online/)
Công nghệ bán hàng online, quảng cáo qua mạng xã hội đã trở lên tuyệt luân, hoàn mỹ bởi những cú áp phe tình cảm giữa những nhân vật nổi tiếng, những chiêu trò pr thương hiệu. Cuộc tình Hoàn...
[Read more ](http://thuonggiathitruong.vn/ngoc-trinh-hoang-kieu-tinh-yeu-hay-vo-kich-ban-hang-online/)
Mạng xã hội đặc biệt là facebook với những Status – lối viết ngắn, nhanh, đơn giản đã vô hình chung biến thành thảm họa của văn hóa đọc đối với người Việt Nam. Mạng xã hội, nơi mỗi con người...
[Read more ](http://thuonggiathitruong.vn/tham-hoa-van-hoa-doc-va-nhung-benh-tat-cua-nguoi-viet-nam-thoi-cong/)
“Trước cuộc cách mạng công nghiệp lần thứ 4, đòi hỏi Việt Nam phải đổi mới, kiến tạo lại nền hành chính để phát huy vai trò của KHCN, nhất là con người và thể chế. Tinh thần chung là k...
[Read more ](http://thuonggiathitruong.vn/khai-phong-moi-nguon-nhan-luc-sang-tao-de-dua-dat-nuoc-tien-len-vung-vang/)
[Facebook ra mắt tính năng Live Audio](http://thuonggiathitruong.vn/facebook-ra-mat-tinh-nang-live-audio/)
Facebook vừa giới thiệu một tính năng mới mang tên Live Audio, cho phép mọi người có thể nghe những âm thanh phát trực tiếp nhưng không kèm hình ảnh như Live Video. Theo TechCrunch, Facebook...
[Read more ](http://thuonggiathitruong.vn/facebook-ra-mat-tinh-nang-live-audio/)
## Bạn đọc bình luận
## Nguyễn Văn Nam in: ‘Em gái’ Ngọc Trinh tuyên bố ‘Khinh’ Hoàng Kiều vì chia tay không văn minh
NT bỏ HK là đúng rồi, yêu anh đi em, anh hứa sẽ tặng em quà hơn HK rất ...
## Hưng Vũ Văn in: Rồng pikachu Hải Phòng thành 'linh vật' hot nhất Tết 2017
Linh vật được đem ra chế, đúng thật là chả ra sao cả. Hình ảnh linh v ...
## Hoàng Thái Phong in: Rực rỡ sắc màu hoa Hướng Dương trong mùa lễ hội
Đẹp quá mình rất muốn đến đây để chụp hoa hướng dương ...

X-Cache: HIT from Backend


text:
...loại rủi ro pháp lý, nắm cơ hội làm giàu...
TRA CỨU THỦ TỤC HÀNH CHÍNH
VĂN BẢN GỐC
Điều 87 Nghị định 34/2016/NĐ-CP
X
Từ khoá: Số Hiệu, Tiêu đề hoặc Nội dung ngắn gọn của Văn Bản...
Thành Viên
CHÍNH PHỦ********
CỘNG HOÀ XÃ HỘI CHỦ NGHĨA VIỆT NAMĐộc lập - Tự do - Hạnh phúc********
Số: 87/1999/NĐ-CP
Hà Nội, ngày 31 tháng 8 năm 1999
NGHỊ ĐỊNH
CỦA CHÍNH PHỦ SỐ 87/1999/NĐ-CP NGÀY 31 THÁNG 08 NĂM 1999 VỀ VIỆC GIẢI THỂ THỊ TRẤN NÔNG TRƯỜNG SÔNG BÔI THUỘC HUYỆN LẠC THỦY, TỈNH HÒA BÌNH
CHÍNH PHỦ
Căn cứ Luật Tổ chức Chính phủ ngày 30 tháng 9 năm 1992;Xét đề nghị của Chủ tịch Uỷ ban nhân dân tỉnh Hòa Bình và Bộ trưởng, Trưởng ban Ban Tổ chức - Cán bộ Chính phủ,
NGHỊ ĐỊNH:
Điều 1. Nay giải thể thị trấn nông trường Sông Bôi thuộc huyện Lạc Thủy, tỉnh Hòa Bình. Dân cư thuộc thị trấn nông trường hiện đang sinh sống trên địa bàn các xã Đồng Tâm, Lạc Long, Cố Nghĩa, Liên Hòa, Phú Lão, Phú Thành và Hưng Thi được giao về cho các xã nói trên quản lý.
Điều 2. Nghị định này có hiệu lực kể từ ngày ký ban hành. Các quy định trước đây trái Nghị định này đều bãi bỏ.
Điều 3. Chủ tịch Uỷ ban nhân dân tỉnh Hòa Bình, Bộ trưởng, Trưởng ban Ban Tổ chức - Cán bộ Chính phủ và Thủ trưởng các cơ quan có liên quan chịu trách nhiệm thi hành Nghị định này.
Phan Văn Khải
(Đã ký)
Bạn Chưa Đăng Nhập Thành Viên!
Vì chưa Đăng Nhập nên Bạn chỉ xem được Thuộc tính của văn bản.
Bạn chưa xem được Hiệu lực của Văn bản,
Văn bản liên quan, Văn bản thay thế, Văn bản gốc, Văn
bản tiếng Anh,...
Nếu chưa là Thành Viên, mời Bạn Đăng ký Thành viên
tại đây
Tải Văn bản tiếng Việt
Tải Văn bản gốc
Bạn Đang Đăng Nhập Thành Viên Free!
Vì Đăng Nhập Thành Viên Free nên Bạn chỉ xem được
Thuộc tính và Nội dung của văn bản.
Bạn chưa xem được Nội dung toàn văn, Hiệu lực của Văn bản, Văn bản liên quan, Văn bản thay thế,
Văn bản gốc, Văn bản tiếng Anh,...
Nếu muốn làm Thành Viên Basic / Pro, mời Bạn Chuyển
Đổi loại Thành Viên
tại đây.
Bạn Đang Đăng Nhập Thành Viên Basic!
Vì Đăng Nhập Thành Viên Basic nên Bạn chỉ xem
được Thuộc tính, Nội dung của văn bản, Nội dung toàn
văn, Hiệu lực của Văn bản, Văn bản
liên quan, Văn bản thay thế,
Văn bản gốc.
Bạn chưa xem được Văn bản tiếng Anh, ...
Nếu muốn làm Thành Viên Pro, mời Bạn Chuyển Đổi
loại Thành Viên
tại đây.
Chú thích:
Rà chuột vào nội dụng văn bản để sử dụng.
<Nội dung> = Nội dung thay
thế tương ứng;
<Nội dung> =
Không có nội dung thay thế tương ứng;
<Nội dung> = Không có
nội dung bị thay thế tương ứng;
<Nội dung> = Nội dung được sửa đổi, bổ
sung.
Click trái để xem cụ thể từng nội dung cần so sánh
và cố định bảng so sánh.
Click phải để xem những nội dung sửa đổi, bổ sung.
Double click để xem tất cả nội dung không có thay
thế tương ứng.
Tắt so sánh [X] để
trở về trạng thái rà chuột ban đầu.
THƯ VIỆN PHÁP LUẬT có liên kết cung cấp dịch vụ tại các Báo điện tử sau:
Họ & Tên:
Email:
Điện thoại:
Nội dung:
Tên truy cập:
Mật khẩu cũ:
Mật khẩu mới:
E-mail:
Email người nhận:
Tiêu đề Email:
Nội dung:
Email nhận thông báo:

Cache-Control: private

Set-Cookie: Culture=vi; domain=thuvienphapluat.vn; expires=Sun, 25-Mar-2018 08:34:15 GMT; path=/

X-Frame-Options: SAMEORIGIN


text:
Đây là phòng tốt nhất cho sinh hoạt đội nhóm, đào tạo nội bộ, chuyên sâu,…
Địa chỉ: Số 4, ngõ 100/24 đường Hoàng Quốc Việt, Cầu Giấy, HN.
Bạn có một đội nhóm tuyệt vời với những con người nhiệt huyết, sáng tạo. Bạn đang điều hành CLB của mình với mục đích lớn lao, đầy ý nghĩa. Và Bạn đang tổ chức các cuộc họp nhóm, những buổi chia sẻ, đào tạo của mình ở đâu? Quán nước vỉa hè, công viên, quán café hay ngay tại nhà riêng của bạn?
Đừng để những cuộc họp, những buổi đào tạo, chia sẻ của Bạn mất đi giá trị bởi Không gian quá loãng, ồn ào, phức tạp, bí bách, thiếu thiết bị hỗ trợ mà chi phí tổ chức họp lại quá cao. Hãy để cho những ý tưởng mới, hay nhất, tốt nhất được kích thích sáng tạo, bùng nổ và thăng hoa.
HỆ THỐNG PHÒNG HỌP, PHÒNG ĐÀO TẠO, PHÒNG CHIA SẺ CHUYÊN NGHIỆP CỦA VENUS SẼ LÀ LỰA CHỌN TỐT NHẤT CHO BẠN VÀ DREAM-TEAM CỦA MÌNH. Với:
ü VỊ TRÍ ĐẮC ĐỊA.
ü KHÔNG GIAN THOÁNG ĐÃNG.
ü TRANG THIẾT BỊ TIỆN NGHI, HIỆN ĐẠI.
ü DỊCH VỤ TIỆN ÍCH ĐẦY ĐỦ.
ü GIÁ THUÊ RẺ NHẤT HÀ NỘI:
* KHUNG GIÁ ƯU ĐÃI CHO PHÒNG HỌC 40 m2 ĐẦY ĐỦ TIỆN NGHI - CHỈ 60.000 đ/h
***** GIÁ CỰC SỐC CHO GIỜ BUỔI SÁNG – CHỈ 45.000 đ/h
Liên hệ ngay để đặt phòng và hưởng ưu đãi sớm nhất. 0971.633794
Hệ thống Phòng học, phòng đào tạo chuyên nghiệp hàng đầu Việt Nam – VENUS
Liên hệ: Số 4, ngõ 100/24 đường Hoàng Quốc Việt, Cầu Giấy, HN.

markdown:
**Đây là phòng tốt nhất cho sinh hoạt đội nhóm, đào tạo nội bộ, chuyên sâu,…** *Địa chỉ: Số 4, ngõ 100/24 đường Hoàng Quốc Việt, Cầu Giấy, HN.*
Bạn có một đội nhóm tuyệt vời với những con người nhiệt huyết, sáng tạo. Bạn đang điều hành CLB của mình với mục đích lớn lao, đầy ý nghĩa. Và Bạn đang tổ chức các cuộc họp nhóm, những buổi chia sẻ, đào tạo của mình ở đâu? Quán nước vỉa hè, công viên, quán café hay ngay tại nhà riêng của bạn?
Đừng để những cuộc họp, những buổi đào tạo, chia sẻ của Bạn mất đi giá trị bởi Không gian quá loãng, ồn ào, phức tạp, bí bách, thiếu thiết bị hỗ trợ mà chi phí tổ chức họp lại quá cao. Hãy để cho những ý tưởng mới, hay nhất, tốt nhất được kích thích sáng tạo, bùng nổ và thăng hoa.
**HỆ THỐNG PHÒNG HỌP, PHÒNG ĐÀO TẠO, PHÒNG CHIA SẺ CHUYÊN NGHIỆP CỦA VENUS SẼ LÀ LỰA CHỌN TỐT NHẤT CHO BẠN VÀ DREAM-TEAM CỦA MÌNH**. Với:
ü
**VỊ TRÍ ĐẮC ĐỊA**.
ü
**KHÔNG GIAN THOÁNG ĐÃNG** **.**
ü
**TRANG THIẾT BỊ TIỆN NGHI, HIỆN ĐẠI** **.**
ü
**DỊCH VỤ TIỆN ÍCH ĐẦY ĐỦ** **.**
ü
**GIÁ THUÊ RẺ NHẤT HÀ NỘI:** *** KHUNG GIÁ ƯU ĐÃI CHO PHÒNG HỌC 40 m2 ĐẦY ĐỦ TIỆN NGHI - ** **CHỈ 60.000 đ/h ** ******* GIÁ CỰC SỐC CHO GIỜ BUỔI SÁNG – ** **CHỈ 45.000 đ/h**
Liên hệ ngay để đặt phòng và hưởng ưu đãi sớm nhất. 0971.633794
Hệ thống Phòng học, phòng đào tạo chuyên nghiệp hàng đầu Việt Nam – VENUS
Liên hệ: Số 4, ngõ 100/24 đường Hoàng Quốc Việt, Cầu Giấy, HN.

Server: nginx


text:
Giá vốn hàng bán giảm 85 tỷ đồng do chính sách khấu hao kéo dài, ước tính mỗi quý NT2 sẽ giảm được giá vốn 70-80 tỷ đồng.
Đăc biệt, trong quý 1, doanh thu hoạt động tài chính đạt 322 tỷ đồng, tăng mạnh so với 10,8 tỷ đồng cùng kỳ, chủ yếu nhờ chênh lệch tỷ giá. Theo đó, lãi sau thuế quý 1 đạt 503,4 tỷ đồng, tăng mạnh hơn 22 lần so với quý 1 năm 2014.
Tính đến ngày 21/4/2015, sản lượng của NT2 đạt 1,65 tỷ kWh, bằng 38% kế hoạch cả năm, lợi nhuận đạt khoảng 56 tỷ đồng, trung bình mỗi ngày lãi hơn 2 tỷ đồng. Dự kiến đến quý 2, NT2 sẽ tiến hành niêm yết trên sàn giao dịch Hose.
Năm 2015, NT2 đặt kế hoạch sản lượng điện thương mại 4.295 triệu kWh, khối lượng khí tiêu thụ 785 triệu Sm3. Theo đó, doanh thu mục tiêu 5.970 tỷ đồng, lãi sau thuế 627,7 tỷ đồng. Cổ tức dự kiến năm 2015 là 22%, trong đó chia bằng tiền mặt 15% và bằng cổ phiếu 7%. Đối với cổ tức bằng cổ phiếu sẽ được dùng từ nguồn vốn khác của chủ sỡ hữu là hơn 169 tỷ đồng, tính đến ngày 31/12/2014.
Trong năm 2015, NT2 cũng sẽ tiến hành lập báo cáo đề xuất đầu tư dự án nhà máy điện Nhơn trạch 2 mở rộng với quy mô công suất 750 MW.
Ông Quốc cho biết, dự án này sẽ tiết kiệm cho NT2 khoảng 100 triệu USD so với đầu tư dự án tại cùng quy mô nhưng ở địa điểm khác. Tuy nhiên, NT2 thực hiện trên tinh thần thận trọng với tiêu chí không gánh thêm nợ mới mà phải xử lý xong những khoản nợ cũ trước. Theo đó, nếu được phê duyệt, dự án Nhơn Trạch 2 mở rộng cũng phải đến năm 2020 mới vận hành.
Về nguồn vốn thực hiện dự án, NT2 được bảo lãnh Chính phủ nên có lợi thế vay nhanh và lãi suất thấp. Hiện Công ty đã đàm phán ký hợp đồng vay 500 triệu USD từ một ngân hàng nước ngoài và ngân hàng này sẵn sàng cho NT2 vay mới.
Liên quan đến việc tham gia thị trường điện cạnh tranh, ông Quốc cho biết , NT2 tham gia ngay từ khi mới bắt đầu có thị truờng điện cạnh tranh vào tháng 7 năm 2012. Hiện trong hệ thống có 60 nhà máy điện, công suất 14.200 MW. Doanh thu từ thị trường điện cạnh tranh tốt hơn so với doanh thu hợp đồng.
Cụ thể, năm 2012, doanh thu từ điện cạnh tranh tăng thêm 109 tỷ đồng, năm 2013 là 76,7 tỷ đồng, năm 2014 tăng 148 tỷ đồng. Trong quý 1 năm 2015, doanh thu điện cạnh tranh tăng 74,9 tỷ đồng. Giá thành phát điện của NT2 hiện đang rẻ hơn so với các nhà máy mới tham gia, theo đó, cổ đông có thể yên tâm về lợi thế cạnh tranh của NT2,ông Quốc chia sẻ.
Năm 2014, các chỉ tiêu kinh doanh của NT2 đều đạt và vượt kế hoạch, cụ thể sản lượng điện NT2 là 4.763 triệu kWh, vượt 19%, doanh thu đạt 7.518 tỷ đồng, vượt 42% và lợi nhuận sau thuế 1.591 tỷ đồng, gấp đôi kế hoạch đề ra. Lợi nhuận đột biến là do trong năm 2014, NT2 ghi nhận doanh thu tiền bán điện hồi tố từ ngày 1/5/2012 đến 31/12/2013 gần 658 tỷ đồng. Ngoài ra, NT2 còn khoản lãi chênh lệch tỷ giá hối đoái đánh giá lại khoản vay dài hạn có gốc ngoại tệ tăng đột biến lên 403,7 tỷ đồng.
Tính đến cuối năm 2014, NT2 chỉ nợ dài hạn 5.860 tỷ đồng, còn chỉ tiêu nợ ngắn hạn 2.376 tỷ đồng hoàn toàn đến từ nợ dài hạn đến hạn trả.
Bài viết chưa có bình luận nào. Bạn nên dùng tiếng Việt có dấu khi bình luận.
Nhập bình luận tại đây

Set-Cookie: .ASPXANONYMOUS=M8C8YuJZsQoHNtRjSM9uRceYAUA5zphKb9VfWgU3gHbBlB-CXlXtOo5GCglY7M0rsZ4PLFCzyK52TisYvlVZlP-Br_bR90s3n_tIGi7L8oAZUEpP63XqdvNPUSAcGQhCL-JGYItdE-f5XgBRjYGiYA2; domain=tinnhanhchungkhoan.vn; expires=Fri, 02-Jun-2017 18:48:25 GMT; path=/; HttpOnly

Access-Control-Allow-Headers: Content-Type

X-Cache: MISS from cache13


text: Banner: Chúa Nhật Tuần II Mùa Vọng-Năm A http://petthinh05.blogspot.com/2013/12/baner-chua-nhat-ii-mua-vong-nam-a.html

Content-Language: vi

X-Generator: Drupal 7 (http://drupal.org)

Cache-Control: public, max-age=900

X-Drupal-Cache: MISS

Vary: Cookie,Accept-Encoding