Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii CHNG I THUT TON I. Khỏi nim thut toỏn 1. Khỏi nim: Thut toỏn l mt dóy hu hn cỏc thao tỏc, c sp xp theo mt trỡnh t xỏc nh, sao cho t Input ca bi toỏn ta xỏc nh c Output cn tỡm. 2. Vớ d: Mt hp kớn cha hu hn cỏc viờn bi cú kớch thc khỏc nhau. Hóy tỡm thut toỏn tỡm ra viờn bi ln nht, bit rng mi ln ch c bc mt viờn. Thut toỏn c trỡnh by nh sau: Bc 1: Bc mt viờn bt k. Bc 2: Kim tra xem hp ó rng cha? Nu ỳng chuyn qua bc 4. Nu sai chuyn qua bc 3. Bc 3: Bc tip mt viờn bi khỏc, so sỏnh hai viờn v gi li viờn ln ri chuyn qua bc 2. Bc 4: Viờn bi hin ti l viờn bi ln nht, kt thỳc. II. Cỏc tớnh cht ca thut toỏn. 1. Tớnh ph dng: Thut toỏn khụng ch gii quyt mt bi toỏn riờng l m c dựng gii quyt mt lp cỏc bi toỏn (cú th la vụ hn), cỏc bi toỏn cựng loi. 2. Tớnh hu hn: Thut toỏn phi c kt thỳc sau mt s hu hn bc thc hin cỏc thao tỏc.Mt thut toỏn khụng cú tớnh hu hn l khụng kh thi. 3. Tớnh xỏc nh: Thut toỏn ũi hi mi bc thao tỏc phi rừ rng v xỏc nh mt cỏch n tr bc tip theo. 4. Tớnh hiu qu: Th hin cỏc yờu cu sau: - Tớnh ỳng n. - Tớnh ti u: Tit kim thi gian thc hin, tit kim b nh. III. Cỏc i lng ca thut toỏn. 1. i lng vo: L nhng i lng cho trc lm c s cho vic hỡnh thnh nờn bi toỏn. 2. i lng ra: Thng l kt qu sau khi ó thc hin xong thut toỏn v ú cng chớnh l yờu cu ca bi toỏn. 3. i lng trung gian: L cỏc i lng tham gia vo quỏ trỡnh gii bi toỏn nhng khụng phi l i lng vo m cng chng phi l i lng ra. Vớ d: Bi toỏn gii phng trỡnh bc hai: ax 2 + bx + c = 0 (a 0). i lng vo l cỏc h s a,b,c. i lng ra l: hoc l nghim kộp, hoc l hai nghim phõn bit nhng cng cú khi l mt cõu thụng bỏo vụ nghim. i lng trung gian: delta = b 2 4ac. Mọi chi tiết liên hệ: Đỗ Anh Hải 1 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại. Hãy nhẫn nại để thành công. Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii 4. Hng, bin, kiu: biu din cỏc i lng nờu trờn ca thut toỏn ta s dng cỏc hng, bin v phi cú kiu d liu nht nh. - Hng: L i lng khụng thay i trong quỏ trỡnh thc hin thut toỏn. - Bin: L i lng cú th thay i giỏ tr trong quỏ trỡnh thc hin thut toỏn. - Kiu: L tp hp cỏc giỏ tr (min tr) m cỏc i lng cúth nhn, ng thi vi vic quy nh cỏc phộp toỏn tỏc ng trờn ú. IV. Biu din ca thut toỏn 1. Cỏc dng biu din ca thut toỏn: Cú th biu din thut toỏn bng 3 dng sau: - Lit kờ cỏc bc (nh vớ d 1). - Cu trỳc theo ngụn ng quy c ca thut toỏn. - S khi. 2. Biu din thut toỏn bng s khi: õy l dng biu din cú cu trỳc trc quan, rừ rng. a. Cỏc kớ hiu dựng biu din thut toỏn: Dựng ch s bt u v kt thỳc ca thut toỏn Dựng ch vic nhp d liu v ghi d liu ra mn hỡnh Dựng biu din cỏc thao tỏc ca thut toỏn Dựng kim tra iu kin. Dựng hng i ca thut toỏn. Ngoi ra ta cũn s dng ký hiu := biu din cho vic gỏn giỏ tr cho cỏc bin. b. Cỏc vớ d: Vớ d 1: V s thut toỏn gii phng trỡnh: ax + b = 0; - D liu vo l a, b. - D liu ra l nghờm hoc mt cõu thụng bỏo. Mọi chi tiết liên hệ: Đỗ Anh Hải 2 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại. Hãy nhẫn nại để thành công. Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii Vớ d 2: S thut toỏn gii bi toỏn tớnh tng: S = 1 + 2 + 3 + + n (Vi N nguyờn dng bt k v khụng dựng cụng thc S = n(n+1)/2). Mọi chi tiết liên hệ: Đỗ Anh Hải 3 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại. Hãy nhẫn nại để thành công. Begin Nhp a,b a=0 x=-b/a b=0 moi x Vụ nghim End. F F T T Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii BI TP CHNG I Bng phng phỏp dựng s khi, trỡnh by thut toỏn gii cỏc bi toỏn sau õy: 1. Tớnh S = 1 + 2 + 3 + + n. 2. Tớnh S = 1 2 + 3 - + (-1) n-1 n. 3. Gii phng trỡnh bc 2: ax 2 + bx + c = 0 (a 0). 4. Tỡm c chung ln nht ca hai s nguyờn dng. 5. Tỡm bi chung nh nht ca hai s nguyờn dng. 6. Kim tra mt s nguyờn dng cú phi l mt s nguyờn t hay khụng Mọi chi tiết liên hệ: Đỗ Anh Hải 4 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại. Hãy nhẫn nại để thành công. Begi n Nhõp n S:=0; i:=1 i> n S:=S+i; i=i+1 S End. T F Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii CHNG II CC KIN THC CHUNG V NGễN NG LP TRèNH PASCAL Pascal l mt ngụn ng lp trỡnh bc cao do Niklaus Wirth, giỏo s in toỏn trng i hc k thut Zurich (Thy S) xut nm 1970. ễng ly tờn Pascal k nim nh toỏn hc v nh trit hc ngi Phỏp ni ting Blaise Pascal. I. Cỏc tp tin cn thit khi lp trỡnh vi Turbo Pascal lp trỡnh c vi Turbo Pascal, ti thiu cn 2 file sau: TURBO.EXE: Dựng son tho v dch chng trỡnh. TURBO.TPL: Th vin cha cỏc n v chun chy vi TURBO.EXE. Ngoi ra, mun lp trỡnh ho thỡ phi cn thờm cỏc tp tin: GRAPH.TPU: Th vin ho. *.BGI: Cỏc file iu khin cỏc loi mn hỡnh tng ng khi dựng ho. *.CHR: Cỏc file cha cỏc font ch ha. II. Cỏc bc c bn khi lp mt chng trỡnh Pascal 1. Cỏc bc lp trỡnh tng quỏt: Bc 1: Phõn tớch bi toỏn; Xỏc nh d liu vo, d liu ra lm c s cho vic hỡnh thnh gii thut. Bc 2: Xõy dng thut toỏn: Trờn c s xỏc nh d liu vo, ra; cỏc gi thit ca bi toỏn, cỏc mi liờn h gia chỳng v nhng kin thc liờn quan ta cn a ra thut toỏn tng ng. Bc 3: T chc d liu v lp chng trỡnh theo thut toỏn ó ố ra. 2. Cỏc bc lp trỡnh v thc hin (vi Turbo Pascal): Bc 1: Khi ng Turbo Pascal (Turbo. exe) Bc 2: Son tho chng trỡnh. Bc 3: Biờn dch (Nhn t hp phớm ALT F9). + Nu thnh cụng thỡ chuyn qua bc 4. + Nu khụng thnh cụng chuyn qua bc 2. Bc 4: Chy th chng trỡnh. + Nu tt chuyn qua bc 5. + Nu cha tt thỡ quay v bc 2. Bc 5: Ghi vo a, dch thnh file *.exe. Bc 6: Kt thỳc. III. Mt s phớm chc nng thng dựng F2: Lu chng trỡnh ang son tho vo a. Mọi chi tiết liên hệ: Đỗ Anh Hải 5 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại. Hãy nhẫn nại để thành công. Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii F3: M file mi hoc file ó tn ti trờn a son tho. Alt-F3: úng file ang son tho. Alt-F5: Xem kt qu chy chng trỡnh. F8: Chy tng cõu lnh mt trong chng trỡnh. Alt-X: Thoỏt khi Turbo Pascal. Alt-<S th t ca file ang m>: Dch chuyn qua li gia cỏc file ang m. F10: Vo h thng Menu ca Pascal. IV.Cỏc thao tỏc c bn khi son tho chng trỡnh IV.1. Cỏc phớm thụng dng Insert: Chuyn qua li gia ch ố v ch chốn. Home: a con tr v u dũng. End: a con tr v cui dũng. Page Up: a con tr lờn mt trang mn hỡnh. Page Down: a con tr xung mt trang mn hỡnh. Del: Xoỏ ký t ngay ti v trớ con tr. Back Space (): Xúa ký t bờn trỏi con tr. Ctrl-PgUp: a con tr v u vn bn. Ctrl-PgDn: a con tr v cui vn bn. Ctrl-Y: Xúa dũng ti v trớ con tr. IV.2. Cỏc thao tỏc trờn khi vn bn Chn khi vn bn: Shift + <Cỏc phớm > Ctrl-KY: Xoỏ khi vn bn ang chn Ctrl-Insert: a khi vn bn ang chn vo Clipboard Shift-Insert: Dỏn khi vn t Clipboard xung v trớ con tr. V. Cỏc khỏi nim v cỏc thnh phn c bn 1. B ký t (Dựng son tho chng trỡnh) Bao gm cỏc loi ký t sau õy: Cỏc ch cỏi: a z; A Z (Khi son tho chng trỡnh, Turbo Pascal khụng phõn bit ch hoa hay ch thng). Cỏc ký t s: 0 9. - Cỏc du toỏn: + - * / ^ = > < . - Cỏc ký t c bit: ? ; . : ! [ ] { } # $ @. Du gch ni: - Cỏc ký t iu khin. 2. T v t khoỏ a. T: L mt dóy liờn tip cỏc ký t khụng cha ký t trng v ký t iu khin. Mọi chi tiết liên hệ: Đỗ Anh Hải 6 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại. Hãy nhẫn nại để thành công. Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii b. T khoỏ: L t dnh riờng ca Pascal vi chc nng v cỳ phỏp c quy nh sn. Vỡ vy khi s dng phi theo ỳng quy nh v khụng c s dng cỏc t khoỏ vo cỏc cụng vic khỏc. Vớ d: Begin, end, if, then, const, var, function, 3. Tờn v tờn chun. a. Tờn: L mt t bao gm ti a 255 ký t, ch c ly trong cỏc ch cỏi, ch s v du gch ni, nhng khụng c bt u bng s. Tờn dựng t cho cỏc i tng trong chng trỡnh nh hng, bin, hm, th tc, kiu d liu, b.Tờn chun: L tờn m Turbo Pascal ó nh sn ch cỏc hm, hng, bin, th tc th vin ca nú. VI. Cu trỳc chung ca mt chng trỡnh Pascal { Phn tiờu } PROGRAM Tờn_chng_trỡnh; { Phn khai bỏo v nh ngha} USES ; CONST ; TYPE ; VAR ; PROCEDURE ; FUNCTION ; { Phn thõn chng trỡnh } BEGIN END. 1. Phn tiờu : T khoỏ khai bỏo l Program tip n l tờn ca chng trỡnh do ngi dựng t t. Phn ny khụng bt buc phi cú. 2. Phn khai bỏo v nh ngha: Uses: Dựng khai bỏo cỏc Unit (n v chng trỡnh) ca Turbo Pascal. Nu cú nhiu Unit thỡ s dng du phy , ngn cỏch. Const: Dựng khai bỏo cỏc hng. Cỳ phỏp: Tờn_hng = Giỏ tr. Type: Dựng nh ngha cỏc kiu d liu ca ngi dựng. Cỳ phỏp: Tờn_kiu = nh ngha c th cho tng kiu. Var: Khai bỏo bin. Cỳ phỏp: Tờn_bin: Kiu_d liu; (Hoc khai bỏo trc tip khụng thụng qua kiu.). Nu cú nhiu bin cựng kiu thỡ s dng du phy , ngn cỏch. Procedure: nh ngha chng trỡnh con dng th tc. Function: nh ngha chng trỡnh con dng hm. Mọi chi tiết liên hệ: Đỗ Anh Hải 7 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại. Hãy nhẫn nại để thành công. Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii 3. Phn thõn chng trỡnh: c bt u bng t khoỏ Begin v kt thỳc bi t khoỏ End. Gia cp t khoỏ ny cú cỏc cõu lnh ca chng trỡnh. Chỳ ý: - Turbo Pascal cng s dng du ; kt thỳc phn ny chuyn qua phn khỏc cng nh gia khai bỏo ny qua khai bỏo khỏc ca chng trỡnh. - Khi son tho chng trỡnh cho phộp a vo cỏc cõu chỳ thớch nhng phi c t trong cp du múc {} hoc (**). Vớ d 1: Chng trỡnh Pascal n gin nht BEGIN Write(Hello World!); END. Vớ d 2: Program Vidu2; Const PI=3.14; Var R,S:Real; Begin R:=10; {Bỏn kớnh ng trũn} S:=R*R*PI; {Din tớch hỡnh trũn} Writeln(Dien tich hinh tron = , S:0:2); { In ra mn hỡnh } Readln; End. Mọi chi tiết liên hệ: Đỗ Anh Hải 8 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại. Hãy nhẫn nại để thành công. Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii CHNG III CC KIU D LIU N GIN I. Tng quan v cỏc kiu d liu trong Turbo Pascal Cỏc kiu d liu trong Turbo Pascal c chia lm hai loi: - Cỏc kiu d liu n gian. - Cỏc kiu d liu co cu trỳc. 1. Cỏc kiu d liu n gin gm: Kiu chun: - Logic. - S nguyờn. - S thc. - Ký t. - Xõu. Kiu do ngi dung nh ngha: - Kiu on con. - Kiu lit kờ. 2. Cỏc kiu d liu cú cu trỳc: - Mng. - Tp hp. - Bn ghi. - File II. Cỏc kiu d liu n gin chun 1. Kiu logic: T khoỏ: Boolean. Min tr: Ch cú hai giỏ tr l True v False. Cỏc phộp toỏn: AND, OR, NOT, XOR.(Xem bng di õy) Cỏc phộp toỏn: phộp so sỏnh (=, <, >) Trong Pascal, khi so sỏnh cỏc giỏ tr boolean ta tuõn theo qui tc: FALSE < TRUE. Gi s A v B l hai giỏ tr kiu Boolean. Kt qu ca cỏc phộp toỏn c th hin qua bng di õy: A B A AND B A OR B A XOR B NOT A TRUE TRUE TRUE TRUE FALSE FALSE TRUE FALSE FALSE TRUE TRUE FALSE FALSE TRUE FALSE TRUE TRUE TRUE FALSE FALSE FALSE FALSE FALSE TRUE Mọi chi tiết liên hệ: Đỗ Anh Hải 9 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại. Hãy nhẫn nại để thành công. Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii 2. Kiu s nguyờn 2.1. Cỏc kiu s nguyờn Cú 5 kiu s nguyờn: Min tr ca cỏc kiu ú nh sau: Tờn kiu Phm vi Dung lng Shortint -128 127 1 byte Byte 0 255 1 byte Integer -32768 32767 2 byte Word 0 65535 2 byte LongInt -2147483648 2147483647 4 byte 2.2. Cỏc phộp toỏn trờn kiu s nguyờn 2.2.1. Cỏc phộp toỏn s hc: +, -, *, / (phộp chia cho ra kt qu l s thc). Phộp chia ly phn nguyờn: DIV (Vớ d : 34 DIV 5 = 6). Phộp chia ly s d: MOD (Vớ d: 34 MOD 5 = 4). 2.2.2. Cỏc phộp toỏn x lý bit: Trờn cỏc kiu ShortInt, Integer, Byte, Word cú cỏc phộp toỏn: NOT, AND, OR, XOR. A B A AND B A OR B A XOR B NOT A 1 1 1 1 0 0 1 0 0 1 1 0 0 1 0 1 1 1 0 0 0 0 0 1 SHL (phộp dch trỏi): a SHL n a ì 2 n SHR (phộp dch phi): a SHR n a DIV 2 n 3. Kiu s thc Cú 5 kiu s thc: Min tr ca cỏc kiu ú nh sau: 3.1. Cỏc kiu s thc: Tờn kiu Phm vi Dung lng Single 1.5ì10 -45 3.4ì10 +38 4 byte Real 2.9ì10 -39 1.7ì10 +38 6 byte Double 5.0ì10 -324 1.7ì10 +308 8 byte Extended 3.4ì10 -4932 1.1ì10 +4932 10 byte Comp -9.2*10 18 9.2*10 18 4 byte Mọi chi tiết liên hệ: Đỗ Anh Hải 10 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại. Hãy nhẫn nại để thành công. [...]... nại để thành công Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii Bi tp 4: Vit chng trỡnh nhp vo s nguyờn dng n, in lờn mn hỡnh tng sau: S = 12+22+32++n2 (Bit cụng thc s = n*(n+1)*(2*n+1) div 6) Mọi chi tiết liên hệ: Đỗ Anh Hải 21 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại Hãy nhẫn nại để thành công Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii CHNG V CU LNH Cể CU TRC I CU LNH R NHNH... thành công Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii CHNG VI D LIU KIU TP HP KIU MNG - KIU XU I Kiu tp hp 1 Khỏi nim: Tp hp l kiu d liu cú cu trỳc bao gm cỏc phn t cú cựng kiu vụ hng m c no ú 2 nh ngha kiu v khai bỏo bin: nh ngha kiu: Type Ten_kieu = Set of Tap_hp; Gii thớch: Type l t khoỏ nh ngha kiu; Ten_kieu do ngi s dng t t ly ỳng theo quy nh ca Turbo Pascal; Set of l t khoỏ khai bỏo kiu... = Array [CTCS] of KPT; Gii thớch: Type l t khoỏ nh ngha kiu; Ten_kieu do ngi s dng t t ly ỳng theo quy nh ca Turbo Pascal; Mọi chi tiết liên hệ: Đỗ Anh Hải 31 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại Hãy nhẫn nại để thành công Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii CTCS ký hiu cho cỏc tp ch s KPT ký hiu cho kiu phn t, v phi l kiu c bn chun, cng cú th l kiu mng Array, of... Gim n i 1 n v (n:=n-1) I:=i-1 hoac i:= dec(i) Mọi chi tiết liên hệ: Đỗ Anh Hải 13 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại Hãy nhẫn nại để thành công Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii 2.Cỏc hm trờn kiu ký t: - UPCASE(ch): Tr v ký t in hoa tng ng vi ký t ch Vớ d: UPCASE('a') = 'A' - ORD(ch): Tr v s th t trong bng mó ASCII ca ký t ch Vớ d ORD('A')=65 - CHR(n): Tr v ký... Integer; Kiu Char, Kiu Boolean BI TP CHNG III Mọi chi tiết liên hệ: Đỗ Anh Hải 14 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại Hãy nhẫn nại để thành công Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii 1 Tỡm cụng thc i mt ký t l ch hoa thnh ch thng A: 65 ord(A) = 65 B: 66 b: 98 C: 67 c: 99 (ORD(ch) + 32) VD: CHR(ORD(A)+32) a: 97 chr(97) = a 2 Dựng cỏc hm v cỏc phộp toỏn biu din cỏc... ch a b Ch A v ch s 1 c Ký t trng v ch a CHNG IV Mọi chi tiết liên hệ: Đỗ Anh Hải 15 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại Hãy nhẫn nại để thành công Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii BIU THC V CU LNH N GIN I Biu thc 1 Hng: Hng l mt i lng cú giỏ tr khụng thay i trong sut chng trỡnh Cú cỏc loi hng: hng s, hng ký t, hng xõu, hng logic T khoỏ khai bỏo hng l CONST - Cỳ... or, not 5 Toỏn hng: L mt trong cỏc i lng sau: Mọi chi tiết liên hệ: Đỗ Anh Hải 16 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại Hãy nhẫn nại để thành công Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii Hng Bin Hm Biu thc 6 Biu thc: L mt tp hp gm cỏc toỏn t v cỏc toỏn hng trong ú toỏn t tỏc ng phự hp lờn toỏn hng Chỳ ý: (1) Trong mt biu thc cỏc toỏn t trong du ngoc () c u tiờn thc hin... thỡ cỏc tham s phi c phõn cỏch nhau bi du phy Mọi chi tiết liên hệ: Đỗ Anh Hải 17 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại Hãy nhẫn nại để thành công Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii Khi s dng lnh WRITE/WRITELN, ta cú hai cỏch vit: khụng qui cỏch v cú qui cỏch: - Vit khụng qui cỏch: d liu xut ra s c canh l phớa bờn trỏi Nu d liu l s thc thỡ s c in ra di dng biu din... dũng ti v trớ con tr v dn cỏc dũng phớa di lờn Mọi chi tiết liên hệ: Đỗ Anh Hải 18 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại Hãy nhẫn nại để thành công Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii Th tc TEXTCOLOR(color:Byte): Thit lp mu cho cỏc ký t Trong ú color [0,15] Th tc TEXTBACKGROUND(color:Byte): Thit lp mu nn cho mn hỡnh 4 Cỏc vớ d: Vớ d 1: Vit chng trỡnh nhp vo di hai... S:=EXP(1/n*LN(x)); Writeln('S = ',S:0:2); Readln; End Mọi chi tiết liên hệ: Đỗ Anh Hải 19 Email: doanhhai@gmail.com Mỗi bớc đi làm con đờng ngắn lại Hãy nhẫn nại để thành công Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii Vớ d 3: Vit chng trỡnh nhp vo 2 s a, b Sau ú hoỏn i giỏ tr ca 2 s ú: a/ Cho phộp dựng bin trung gian Program Swap; Var a,b,tam: Integer; Begin Write('Nhap vao a= '); Readln(a); Write('Nhap . i:=1 i> n S:=S+i; i=i+1 S End. T F Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii CHNG II CC KIN THC CHUNG V NGễN NG LP TRèNH PASCAL Pascal l mt ngụn ng lp trỡnh bc cao do Niklaus Wirth, giỏo. xut nm 1970. ễng ly tờn Pascal k nim nh toỏn hc v nh trit hc ngi Phỏp ni ting Blaise Pascal. I. Cỏc tp tin cn thit khi lp trỡnh vi Turbo Pascal lp trỡnh c vi Turbo Pascal, ti thiu cn 2 file. thành công. Bi ging ngụn ng lp trỡnh Pascal ễn hc sinh gii CHNG III CC KIU D LIU N GIN I. Tng quan v cỏc kiu d liu trong Turbo Pascal Cỏc kiu d liu trong Turbo Pascal c chia lm hai loi: - Cỏc kiu