– Giạo trçnh Láûp trçnh Pascal càn bn — – 20 — Trang 20 Nãúu ta g ABCDE1234567 v áún phêm < Enter > thç: s1 = ‘ABCDE’, s2 = ‘12345’, s3 = ‘67’. 4 Vê dủ 3: Viãút chỉång trçnh tênh diãûn têch S ca hçnh thang våïi âạy di a , âạy ngàõn b , chiãưu cao h , táút c âỉåüc nháûp tỉì bn phêm. Program DienTichHinhThang; Uses CRT; Var a, b, h, s : Real; Begin ClrScr; Write( ‘ Nhap gia tri cua a, b, h :‘ ); Readln(a, b, h); S := (a + b) * h / 2; Write( ‘ Dien tich S = ‘,S:1:5); Readln; End. 1 Kãút qu khi chảy chỉång trçnh: Nhap gia tri cua a, b, h : 5 3 4 < Enter > Dien tich S = 16.00000 Ư Chụ : Våïi cạch láúy 3 giạ trë bàòng mäüt lãûnh Readln( a, b, c); thç cạc giạ trë ta cáưn nháûp cho mäùi biãún phi cạch våïi cạc giạ trë khạc êt nháút mäüt k tỉû tràõng. Ta cọ thãø nháûp a, b, c bàòng 3 lãûnh Readln(a); Readln(b); Readln(c); _________ o ² o _________ BI 4: CẠC LÃÛNH CỌ CÁÚU TRỤC TRONG NGÄN NGỈỴ PASCAL I. Lãûnh ghẹp: Lãûnh ghẹp l mäüt nhọm cạc cáu lãûnh âỉåüc âàût giỉỵa hai tỉì khoạ BEGIN v END . Lãûnh ghẹp âỉåüc thỉûc hiãûn bàòng cạch thỉûc hiãûn tưn tỉû cạc cáu lãûnh nàòm giỉỵa BEGIN v END. Cụ phạp: Begin <cáu lãûnh 1>; <cáu lãûnh 2>; – Giạo trçnh Láûp trçnh Pascal càn bn — – 21 — Trang 21 . <cáu lãûnh n>; End; Sau <cáu lãûnh n> cọ thãø cọ dáúu ‘;‘ hồûc khäng. Lãûnh ghẹp cng l mäüt dảng cáu lãûnh. 4 Vê dủ: Begin temp := x; x := y; y := temp; End; Ư Chụ : Sau tỉì khọa END cọ thãø cọ dáúu ‘;‘ hay khäng ty thüc vo cạc lãûnh cáúu trục kãú tiãúp ta âỉåüc hc. II. Lãûnh lỉûa chn: 1. Lãûnh IF: Cụ phạp: IF <biãøu thỉïc logic> THEN <lãûnh 1> ELSE <lãûnh 2>; Lãûnh IF cọ thãø khäng cọ pháưn ELSE <lãûnh 2>. F Gii thêch lãûnh: Khi gàûp lãûnh ny mạy kiãøm tra <biãøu thỉïc logic>, nãúu biãøu thỉïc ny cọ giạ trë TRUE (tỉïc l âụng nhỉ âiãưu kiãûn âàût ra) thç mạy thỉûc hiãûn <lãûnh 1> nãúu ngỉåüc lải, tỉïc <biãøu thỉïc logic> cọ giạ trë FALSE thç <lãûnh 2> âỉåüc thỉûc hiãûn. Trỉåìng håüp trong cáu lãûnh khäng cọ pháưn ELSE v <biãøu thỉïc logic> cọ giạ trë FALSE thç <lãûnh 1> khäng âỉåüc thỉûc hiãûn v mạy chuøn âãún cáu lãûnh kãú sau lãûnh IF âọ. Ư Chụ : cáu lãûnh trỉåïc tỉì khọa ELSE khäng âỉûåc cọ dáúu ‘;‘. Trỉåìng håüp cọ cáu lãûnh ghẹp âỉûåc âàût kãú trỉåïc ELSE thç tỉì khoạ END trỉåïc ELSE khäng âỉåüc âàûtï dáúu ‘;‘. Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn 22 Trang 22 4 Vờ duỷ 1: Chổồng trỗnh nhỏỷp tổỡ baỡn phờm 2 sọỳ nguyón a, b. Kióứm tra vaỡ cho bióỳt sọỳ naỡo lồùn hồn. Var a, b : Integer; Begin Write( Nhap so a: ); Readln(a); Write( Nhap so b: ); Readln(b); If a > b then Write( So lon hon la , a) { taỷi vở trờ naỡy khọng õổồỹc õỷt dỏỳu; } Else Write( So lon hon la , b); Readln; { coù thóứ khọng coù dỏỳu; taỷi cỏu lóỷnh cuọỳi naỡy } End. 4 Vờ duỷ 2: Vióỳt chổồng trỗnh kióứm tra trong ba sọỳ a, b, c õổồỹc nhỏỷp tổỡ baỡn phờm, sọỳ naỡo laỡ lồùn nhỏỳt. Var a, b, c, max : Integer; Begin Write( Nhap so a: ); Readln(a); Write( Nhap so b: ); Readln(b); Write( Nhap so c: ); Readln(c); Max := a; If max < b then Max := b; If max < c then Max := c; Write( So lon hon la , max); Readln; End. 4 Vờ duỷ 3: Vióỳt chổồng trỗnh kióứm tra ba sọỳ õổồỹc nhỏỷp tổỡ baỡn phờm coù thóứ laỡ õọỹ daỡi cuớa ba caỷnh trong mọỹt tam giaùc hay khọng? Nóỳu õuùng laỡ ba caỷnh cuớa tam giaùc thỗ Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn 23 Trang 23 tờnh chu vi vaỡ dióỷn tờch tam giaùc, xeùt tam giaùc coù phaới laỡ tam giaùc õóửu , cỏn hay khọng. Var a, b, c, p, s : Real; Begin Write( Nhap ba so a, b, c : ); Readln(a, b, c); If (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then Begin Writeln( Ba canh tren tao thanh mot tam giac. ); If (a=b) and (b=c) then write( Day la tam giac deu. ); If (a=b) or (a=c) or (b=c) then write( Day la tam giac can. ); p := (a + b + c) / 2; s := SQRT(p * ( p - a ) * ( p - b ) * ( p - c ) ); Writeln( Chu vi: ,2 * p:0:5, . Dien tich:, s:0:5); End Else Write( Ba so nay khong tao thanh duoc mot tam giac. ); Readln; End. 2. Lóỷnh CASE: Cỏu lóỷnh IF ồớ trón chố reợ vaỡo mọỹt trong hai nhaùnh tổồng ổùng vồùi giaù trở cuớa bióứu thổùc logic. Coỡn lóỷnh CASE (reợ nhaùnh theo giaù trở) cho pheùp lổỷa choỹn õóứ thổỷc hióỷn mọỹt trong nhióửu cọng vióỷc tuỡy theo giaù trở cuớa bióứu thổùc. Cuù phaùp: CASE <bióứu thổùc> OF Tỏỷp _ hũng _ 1: <lóỷnh _ 1>; Tỏỷp _ hũng _ 2: <lóỷnh _ 2>; . Tỏỷp _ hũng _ n: <lóỷnh n>; ELSE <lóỷnh n +1>; END; Lóỷnh CASE coù thóứ khọng coù phỏửn ELSE <lóỷnh n +1>; Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn 24 Trang 2 4 F Giaới thờch lóỷnh: 1. Tỏỷp _ hũng _ i (i = 1, ., n) coù thóứ bao gọửm caùc hũng vaỡ caùc õoaỷn hũng , vờ duỷ: 3 : <lóỷnh 1>; 5, 10 15 : <lóỷnh 2>; A, Chr(152) : <lóỷnh 3>; 0 9 : <lóỷnh 4>; 2. Giaù trở cuớa <bióứu thổùc> vaỡ giaù trở trong caùc Tỏỷp _ hũng _ i phaới coù cuỡng kióứu vaỡ phaới laỡ kióứu vọ hổồùng õóỳm õổồỹc (nhổ nguyón, logic, kyù tổỷ, lióỷt kó). 3. Tỏỷp hũng naỡo coù chổùa giaù trở tổồng õổồng vồùi giaù trở cuớa <bióứu thổùc> thỗ lóỷnh sau dỏỳu : cuớa tỏỷp hũng õoù õổồỹc thổỷc hióỷn, sau õoù maùy thoaùt khoới lóỷnh CASE. 4. Trong trổồỡng hồỹp tỏỳt caớ caùc tỏỷp hũng khọng coù chổùa giaù trở tổồng õổồng vồùi giaù trở cuớa <bióứu thổùc> thỗ lóỷnh sau tổỡ khoùa ELSE õổồỹc thổỷc hióỷn. Trổồỡng hồỹp naỡy nóỳu khọng coù caớ phỏửn ELSE <lóỷnh n+1>; thỗ lóỷnh CASE naỡy õổồỹc thoaùt vaỡ khọng coù lóỷnh naỡo sau dỏỳu : õổồỹc thổỷc hióỷn. 4 Vờ duỷ 1: Vióỳt chổồng trỗnh nhỏỷp vaỡo mọỹt õióứm kióứm tra tổỡ baỡn phờm vaỡ in kóỳt quaớ xóỳp loaỷi: loaỷi Yóỳu (dổồùi 5 õióứm), loaỷi Trung bỗnh (5, 6 õióứm), loaỷi Khaù (7, 8 õióứm), loaỷi Gioới (9, 10 õióứm). Var Diem : Byte; Begin Write( Nhap diem : ); Readln(Diem); Case Diem of 0 4 : Write( Xep loai yeu. ); 5 6 : Write( Xep loai Trung binh. ); 7 8 : Write( Xep loai Kha. ); 9 10: Write( Xep loai Gioi. ); Else Write( Diem nhap sai. ); End; Readln; End. 4 Vờ duỷ 2: Vióỳt chổồng trỗnh cho bióỳt sọỳ ngaỡy cuớa mọỹt thaùng. Thuỏỷt toaùn nhổ sau: Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn 25 Trang 2 5 - Nhỏỷp thaùng vaỡo bióỳn Thang . - Sau õoù, dổỷa vaỡo bióỳn Thang õóứ bióỳt sọỳ ngaỡy, sọỳ ngaỡy naỡy õổồỹc õổa vaỡo bióỳn SoNgay. Trổồỡng hồỹp: + Thaùng 1, 3, 5, 7, 8, 10, 12: SoNgay := 31; + Thaùng 2: Yóu cỏửu nhỏỷp nm vaỡo bióỳn Nam . ỉ Trổồỡng hồỹp Nam chia hóỳt cho 4: SoNgay := 29; ỉ Trổồỡng hồỹp Nam khọng chia hóỳt cho 4: SoNgay := 28; + Thaùng 4, 6, 9, 11: SoNgay := 30; - In nọỹi dung bióỳn SoNgay . Uses CRT; Var SoNgay, Thang : Byte; Nam : Integer; Begin ClrScr; Write( Ban kiem tra thang may (dang so): ); Readln(Thang); Case Thang of 4, 6, 9, 11 : SoNgay := 30; 2 : Begin Write( Thang nay thuoc nam nao (4 chu so): ); Readln(Nam); If Nam mod 4 = 0 then SoNgay := 29; Else SoNgay := 28; End Else SoNgay := 31; End; If Thang = 2 then Writeln( Thang , thang , / , nam , co , SoNgay , ngay. ) Else Writeln( Thang , thang , co , SoNgay , ngay. ); Readln End. III. Caùc cỏu lóỷnh lỷp: – Giạo trçnh Láûp trçnh Pascal càn bn — – 26 — Trang 2 6 Trỉåìng håüp âãø gii quút bi toạn no âọ m ta cáưn phi làûp âi làûp lải mäüt cäng viãûc no âọ thç ta s cáưn âãún lãûnh làûp. Säú bỉåïc làûp cọ thãø xạc âënh hồûc khäng xạc âënh. Trong ngän ngỉỵ Pascal cọ ba cáu lãûnh làûp l FOR, REPEAT, WHILE. Nãúu säú vng làûp xạc âënh thç ta sỉí dủng lãûnh FOR cn vng làûp khäng xạc âënh thç ta sỉí dủng lãûnh REPEAT hồûc WHILE . Táút c cạc loải lãûnh làûp phi cọ âiãøm dỉìng, cho d âọ l loải xạc âënh hay khäng xạc âënh. 1. Cáu lãûnh FOR: Vng làûp FOR cọ hai dảng l dảng vng làûp tiãún v vng làûp li. a. Dảng tiãún: Cụ phạp: FOR Biãún := Biãøu_thỉïc1 TO Biãøu_thỉïc2 DO < Lãûnh > Biãún trong cáúu trục FOR gi l biãún âiãưu khiãøn. Kiãøu ca biãún âiãưu khiãøn, Biãøu _ thỉïc1, Biãøu _ thỉïc2 phi l k iãøu vä hỉåïng âãúm âỉåüc (nhỉ ngun, logic, k tỉû, liãût kã). F Gii thêch sỉû hoảt âäüng lãûnh FOR dảng tiãún: (1). Âáưu tiãn, Biãún nháûn giạ trë ca biãøu _ thỉïc1. (2). Mạy kiãøm tra Biãún cọ nh hån hồûc bàòng biãøu _ thỉïc2 hay khäng tỉïc l xẹt âiãưu kiãûn (Biãún <= Biãøu _ thỉïc2) ? (3). Nãúu âiãưu kiãûn trãn l sai thç mạy thoạt khi vng làûp FOR âãø thỉûc hiãûn cạc lãûnh kãú tiãúp sau vng làûp FOR. Nãúu âiãưu kiãûn trãn l âụng thç <Lãûnh> âỉåüc thỉûc hiãûn, sau âọ, Biãún âỉåüc tàng mäüt giạ trë v quay tråí lải bỉåïc (2). <Lãûnh> s âỉåüc thỉûc hiãûn ((biãøu _ thỉïc2 - biãøu _ thỉïc1) + 1) láưn. b. Dảng li: Cụ phạp: FOR Biãún := Biãøu_thỉïc1 DOWNTO Biãøu_thỉïc2 DO <Lãûnh> F Gii thêch sỉû hoảt âäüng lãûnh FOR dảng li: (1). Âáưu tiãn, Biãún nháûn giạ trë ca biãøu _ thỉïc1. (2). Mạy kiãøm tra Biãún cọ låïn hån hồûc bàòng biãøu _ thỉïc2 hay khäng tỉïc l xẹt âiãưu kiãûn (Biãún >= Biãøu _ thỉïc2) ? (3). Nãúu âiãưu kiãûn trãn l sai thç mạy thoạt khi vng làûp FOR âãø thỉûc hiãûn cạc lãûnh kãú tiãúp sau vng làûp FOR . Nãúu âiãưu kiãûn trãn l âụng thç <Lãûnh> âỉåüc thỉûc hiãûn, sau âọ, Biãún âỉåüc gim mäüt giạ trë v quay tråí lải bỉåïc (2). – Giạo trçnh Láûp trçnh Pascal càn bn — – 27 — Trang 27 Ư Chụ : - Khäng âỉåüc thay âäøi giạ trë ca biãún âiãưu khiãøn bàòng mäüt lãûnh báút k trong vng làûp FOR . Âiãưu ny cọ thãø lm cho vng làûp khäng cọ läúi thoạt v dáùn âãún treo mạy. - Cạc Biãøu _ thỉïc1 v Biãøu _ thỉïc2 âỉåüc ỉåïc lỉåüng trỉåïc khi vo vng làûp, do âọ säú vng làûp khäng bë thay âäøi. Ta cọ thãø låüi dủng tênh tàng hồûc gim ca biãún âiãưu khiãøn âãø gạn giạ trë ca nọ cho báút k biãún no hồûc thỉûc hiãûn cäng viãûc no âọ cọ tênh cháút tàng hồûc gim. 4 Vê dủ 1: Chỉång trçnh in lãn mn hçnh 3 cáu Cho cạc bản ! cọ säú thỉï tỉû âỉïng trỉåïc mäùi cáu. Uses CRT; Var I : integer; Begin ClrScr; For I := 1 to 5 do Writeln( I , ‘ => ’, ‘ Chao cac ban ‘ ); Readln; End; 4 Vê dủ 2: In lãn mn hçnh 4 dng chỉỵ cại in thỉåìng v IN HOA theo chiãưu xi v chiãưu ngỉåüc. Uses CRT; Var kt : Char; Begin ClrScr; For kt := ‘a’ to ‘z’ do Write(kt : 3); Writeln; For kt := ‘z’ Downto ‘a’ do Write(kt : 3); Writeln; For kt := ‘A’ to ‘Z’ do Write(kt : 3); Writeln; For kt := ‘Z’ Downto ‘A’ do Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn 28 Trang 2 8 Write(kt : 3); Readln; End. 4 Vờ duỷ 3: Chổồng trỗnh in lón maỡn hỗnh 256 kyù tổỷ cuớa baớng maợ ASCII. Var i : Byte; Begin For i := 0 to 255 do Begin Writeln( Ma thu , i , la : , CHR(i) ); If (i+1) mod 22 = 0 then Begin Write( An phim bat ky de xem tiep ! ); Readln; End; End; Readln; End. 2. Cỏu lóỷnh Repeat: Cuù phaùp: REPEAT <Lóỷnh 1>; <Lóỷnh 2>; . <Lóỷnh n>; UNTIL < Bióứu thổùc logic >; F Giaới thờch sổỷ hoaỷt õọỹng lóỷnh REPEAT: ỏửu tión, thổỷc hióỷn lỏửn lổồỹt caùc lóỷnh <Lóỷnh 1>, <Lóỷnh 2>, ., <Lóỷnh n>, sau õoù kióứm tra < Bióứu thổùc logic > . Nóỳu < Bióứu thổùc logic > nhỏỷn giaù trở FALSE thỗ laỷi quay lón õỏửu voỡng lỷp thổỷc hióỷn tióỳp <Lóỷnh 1>, <Lóỷnh 2>, ., <Lóỷnh n> . Nóỳu < Bióứu thổùc logic > nhỏỷn giaù trở TRUE thỗ maùy thoaùt khoới voỡng lỷp. Nhổ vỏỷy, caùc lóỷnh nũm giổợa REPEAT . UNTIL õổồỹc thổỷc hióỷn ờt nhỏỳt mọỹt lỏửn. ệ Chuù yù: - Caùc lóỷnh nũm giổợa REPEAT vaỡ UNTIL khọng coù tổỡ khoaù Begin vaỡ End . Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn 29 Trang 29 - Trong voỡng lỷp phaới coù lóỷnh naỡo õoù laỡm thay õọứi giaù trở mọỹt bióỳn trong <Bióứu thổùc logic> nhũm laỡm dổỡng voỡng lỷp, nóỳu khọng voỡng lỷp seợ chaỷy maợi khọng ngổỡng dỏựn õóỳn treo maùy. 4 Vờ duỷ 1: Chổồng trỗnh yóu cỏửu nhỏỷp vaỡo mọỹt mỏỷt khỏứu laỡ ttthcn thỗ mồùi thoaùt khoới chổồng trỗnh. Uses CRT; Var Password : String[6]; Begin Repeat Write( Xin hay nhap mat khau : ); Readln(Password); Until Password = ttthcn; Write( Ban da nhap dung mat khau ! ); Delay(1000); Readln; End. F Giaới thờch lóỷnh : Delay(1000): Thuớ tuỷc Delay(n) laỡ thuớ tuỷc cuớa Unit CRT tổùc laỡ dổỡng mọỹt khoaớn thồỡi gian laỡ 1000 xung nhởp cuớa maùy, vỗ vỏỷy, tuỡy theo tọỳc õọỹ cuớa maùy maỡ coù khoaớn thồỡi gian thổỷc dổỡng laỷi khaùc nhau. 4 Vờ duỷ 2: Chổồng trỗnh õóứ sổớ duỷng baỡn phờm giaớ thaỡnh phờm õaỡn Piano vồùi quy õởnh: ỏỳn phờm D phaùt ra nọỳt Do, phờm R laỡ nọỳt Re, M = Mi, F = Fa, S = Sol, L = La, S = Si. Uses CRT; Var node : Char; Begin ClrScr; Writeln( D = Do | R = Re | M = Mi | F = Fa | S = Sol | L = La | X = Si ); Writeln( Q = Do cao | W = Re cao | E = Mi cao | K = Ket thuc ); Repeat Node := ReadKey; Case Node of d : Begin NoSound; Sound(262); End; r : Begin NoSound; Sound(294); End; m : Begin NoSound; Sound(330); End; [...]... thoạt khi vng làûp Nhỉ váûy lãûnh WHILE dng âãø làûp âi làûp lải mäüt cäng viãûc trong khi âiãưu kiãûn cn âỉåüc tha mn Trang 30 – Giạo trçnh Láûp trçnh Pascal càn bn — – 31 — Ư Ghi chụ: Nãúu ngay tỉì khi måïi vo vng làûp m tháúy âiãưu kiãûn khäng âỉåüc tha mn, mạy tỉû âäüng thoạt ngay m khäng thỉûc hiãûn < Lãûnh > bãn trong vng làûp 4 Vê dủ: Chỉång trçnh tçm ỉåïc säú chung låïn nháút ca hai säú ngun... Lãûnh Goto: Cụ phạp: GOTO Lab; Trong âọ, Lab l mäüt nhn Nhn l mäüt tãn nhỉ tãn biãún hồûc l mäüt säú ngun tỉì 0 âãún 9999 Tãn nhn âỉåüc khai bạo theo hỉåïng dáùn åí bi1 (IV.2) Khi gàûp lãûnh Goto Lab, mạy nhy khäng âiãưu kiãûn âãún thỉûc hiãûn cáu lãûnh sau nhn Lab Lãûnh Goto chè cho phẹp nhy tỉì vë trê ny âãún vë trê khạc trong cng mäüt thán hm, th tủc, cho phẹp nhy tỉì trong mäüt vng làûp ra ngoi;... tỉì trong mäüt vng làûp ra ngoi; khäng cho phẹp nhy tỉì ngoi vo trong mäüt vng làûp, th tủc, hm hồûc khäúi lãûnh 4 Vê dủ: Chỉång trçnh tçm cạc säú ngun täú nàòm giỉỵa hai säú ngun dỉång n1 v n2, hai säú ny âỉåüc nháûp tỉì bn phêm (khại niãûm säú ngun täú: l säú ngun chè chia chàơn hãút cho 1 v chênh nọ) Trang 31 – Giạo trçnh Láûp trçnh Pascal càn bn — – 32 — Program NguyenToByGoto; Label L1, L2; Var... Writeln; Write( ‘ Ban muon tiep tuc khong ? (C/K) ‘ ); Readln(TL); If (Upcase(TL) = ‘C’) then Goto L1; End 2 Lãûnh Break: Trong thán cạc lãûnh làûp FOR, WHILE, REPEAT khi gàûp lãûnh Break thç mạy s thoạt khi chu trçnh Nãúu cọ nhiãưu lãûnh làûp läưng nhau thç mạy thoạt khi chu trçnh trong nháút chỉïa lãûnh Break 4 Vê dủ: In ra mn hçnh 4 dy säú tỉì 1 âãún 49 Uses CRT; Var i, j : Integer; Begin ClrScr;... trçnh Pascal càn bn — – 33 — Break; { Thoạt khi vng làûp For * } Write( i, ‘ ‘ ); End; Readln; End; Readln; End 3 Lãûnh Exit: Nãúu lãûnh Exit thüc chỉång trçnh con thç viãûc thỉûc hiãûn Exit lm cháúm dỉït chỉång trçnh con, tråí vãư chäù gi nọ Nãúu lãûnh Exit thüc chỉång trçnh chênh thç viãûc thỉûc hiãûn nọ s lm cháúm dỉït chỉång trçnh 4 Vê dủ: Chỉång trçnh cỉï nhàõc lải cáu Welcome to Turbo Pascal. ..– Giạo trçnh Láûp trçnh Pascal càn bn — ‘f’ : Begin NoSound; ‘s’ : Begin NoSound; ‘l’ : Begin NoSound; ‘x’ : Begin NoSound; ‘q’ : Begin NoSound; ‘w’ : Begin NoSound; ‘e’ : Begin NoSound; End; Until (Upcase(Node) = ‘K‘); NoSound;... trçnh cỉï nhàõc lải cáu Welcome to Turbo Pascal Language sau mäùi láưn áún mäüt phêm Chỉång trçnh s thoạt khi áún phêm E hồûc e Uses CRT; Label L1; Var TL : Char; Begin L1: Writeln( ‘ Welcome to Turbo Pascal Language ! ‘ ); TL := Readkey; { Chåì mäüt phêm âỉåüc áún, giạ trë âỉåüc âàût vo biãún TL, âáy l hm ca Unit CRT } If (Upcase(TL) = ‘E’) then Exit Else Goto L1; End 4 Lãûnh Halt: Lãûnh Halt dng âãø . Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn 29 Trang 29 - Trong voỡng lỷp phaới coù lóỷnh naỡo õoù laỡm thay õọứi giaù trở mọỹt bióỳn trong <Bióứu thổùc. trê ny âãún vë trê khạc trong cng mäüt thán hm, th tủc, cho phẹp nhy tỉì trong mäüt vng làûp ra ngoi; khäng cho phẹp nhy tỉì ngoi vo trong mäüt vng làûp,