Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (871.55 KB, 26 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1></div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>
<b>IV</b>
<b>IV</b>
<b>Kiểu dữ liệu có cấu trúc</b>
<b>V</b>
<b>V</b>
<b>Tệp và thao tác trên tệp</b>
<b>VI</b>
<b>VI</b>
<b>Chương trình con </b>
<b>và lập trình có cấu trúc</b>
11. Kiểu mảng
12. Kiểu xâu
13. Kiểu bản ghi
2. Khai báo biến xâu:
<b> VD: Cho khai báo Var xau : string[30]; Khi chạy đoạn </b>
<b>chương trình. Kết quả in lên màn hình là?</b>
<i><b> VD: </b></i><b>Cho khai báo Var a, b : string[10]; So sánh 2 xâu sau?</b>
<i><b> VD: </b></i><b>Cho khai báo Var a, b : string[10]; So sánh 2 xâu sau?</b>
<i><b><sub>Thủ tục DELETE:</sub></b></i>
4. Các hàm và thủ tục trên xâu:
<i><b>VD1: </b></i><b>Cho khai báo <sub>Var HoTen : string; </sub></b>
<b>Khi chạy đoạn chương trình. Kết quả in lên </b>
<b>màn hình là?</b>
<b>HoTen:='Nguyen Van Teo'; Delete(HoTen,7,5); </b>
<b>write(HoTen);</b>
<i><b>VD2: </b></i><b>Cho khai báo <sub>Var HoTen : string; </sub></b>
<b>Khi chạy đoạn chương trình. Kết quả in lên </b>
<b>màn hình là?</b>
<b>HoTen:='Tran Thi Ty'; Delete(HoTen,8,3); </b>
<b>write(HoTen);</b>
<b><sub> Tran Thy</sub></b>
<i><b><sub>Thủ tục INSERT:</sub></b></i>
<i><b>VD1: </b></i><b>Cho khai báo <sub>Var b : string; </sub>Khi chạy </b>
<b>đoạn chương trình. Kết quả in lên màn hình </b>
<b>là?</b>
<b>b:='Beautifully'; Insert(';)',b,1); </b>
<b>Write(b);</b>
<b><sub> ;)Beautifully</sub></b>
<i><b>VD2: </b></i><b>Cho khai báo <sub>Var a : string; </sub>Khi chạy </b>
<b>đoạn chương trình. Kết quả in lên màn hình </b>
<b>là?</b>
<b>a:='Wonderfully'; Insert(':)',a,1); </b>
<b>Write(a);</b>
<i><b><sub>Hàm COPY:</sub></b></i>
4. Các hàm và thủ tục trên xâu:
<i><b>VD1: </b></i><b>Cho khai báo <sub>Var c : string; </sub>Khi chạy </b>
<b>đoạn chương trình. Kết quả in lên màn hình </b>
<b>là?</b>
<b>c:='Beautifully'; Write(copy(c,3,4));</b>
<i><b>VD2: </b></i><b>Cho khai báo <sub>Var d : string; </sub>Khi chạy </b>
<b>đoạn chương trình. Kết quả in lên màn hình </b>
<b>là?</b>
<b> d:='AntiVirus'; Write(copy(d,4,3));</b>
<b><sub> iVi</sub></b>
<i><b>VD1: </b></i><b>Cho khai báo <sub>Var d : string; </sub>Khi chạy </b>
<b>đoạn chương trình. Kết quả in lên màn hình </b>
<b>là?</b>
<b> d:='AntiVirus'; Write(length(d));</b>
<i><b>VD2: </b></i><b>Cho khai báo <sub>Var e : string[9]; </sub>Khi </b>
<b>chạy đoạn chương trình. Kết quả in lên màn </b>
<b>hình là?</b>
<b> e:='Beautifully'; Write(length(e));</b>
<b><sub> 9</sub></b>
<i><b>VD1: </b></i><b>Cho khai báo <sub>Var x,y : string; </sub>Khi chạy </b>
<b>đoạn chương trình. Kết quả in lên màn hình </b>
<b>là?</b>
<b> x:='computer programmer'; y:='pro'; </b>
<b><sub> 0</sub></b>
<i><b>VD2: </b></i><b>Cho khai báo <sub>Var m,n : string; </sub>Khi chạy </b>
<b>đoạn chương trình. Kết quả in lên màn hình </b>
<b>là?</b>
<b>m:='computer programmer'; n:='pro'; </b>
<b>Write(pos(n,m));</b>
<i><b>VD1: </b></i><b>Khi chạy đoạn chương trình. Kết quả in </b>
<b>lên màn hình là? </b>
<b>write(upcase('h'));</b>
<b><sub> H</sub></b>
<i><b>VD2: </b></i><b>Khi chạy đoạn chương trình. Kết quả in </b>
<b>lên màn hình là? </b>
<b>write(upcase(‘K'));</b>
1. Khi chạy mỗi đoạn chương trình sau. Kết quả in lên màn hình là?
<b>a. write(‘Le Minh’ = ‘Le Anh’);</b>
<b> </b>
<b>b. writeln(‘Tran Anh’ <> ‘Tran Em’);</b>
<b>c. If (‘Mai’>’Tuan’) then write(10) </b>
<b> else write(0);</b>
<b> </b>
<b>d. If (‘Cuong’=’Trang’) then writeln(‘A’) </b>
<b> else writeln(‘B’);</b>
<i><b>VD: </b></i><b>Cho khai báo <sub>Var c:string[10];</sub></b>
<b>c:='yahoo messenger'; c:=copy(c,4,12); </b>
<b>delete(c,1,4); insert('@',c,1);write(c);</b>
<i><b>VD: </b></i><b>Cho khai báo <sub>Var c:string[10];</sub></b>
<b>c:='Internet explorer'; c:=copy(c,4,12); </b>
<b>delete(c,1,7);insert('@',c,1); write(c);</b>
<b><sub> @</sub></b>