Bµi 15 Gi¸o ¸n ®iÖn tö tin häc líp 11 Nhập vào họ tên của hai học sinh, in ra màn hình họ tên dài hơn? HnaNAHP m yNeyuGN A B Bài toán đặt vấn đề: X©u lµ d·y c¸c kÝ tù trong bé m· ASCII. T I n H o c A 1 2 3 4 5 6 7 ! "#$%#&#'(#)#*+, -%.!*/+0 ,‘ ’ 1(!2 34%#&56$7#89#:(2 -%.! ;76( <=>%#&#(?! @2 H 1. Kh¸i niÖm 2. Khai b¸o kiÓu d÷ liÖu x©u (trong Pascal) Var <tªn biÕn> : String[®é dµi lín nhÊt]; VÝ dô: Var hoten: String[26]; "( #AB89*76CD#+ 76CD#(=EF#9$6G//, VÝ dô: Var chuthich :String; 3. C¸c thao t¸c xö lÝ x©u : !" # $ % ‘ ’ ‘ ’ #%‘ ’ &'()()" * $ +(), “ ” &'()//"=,<> <,<=,>,>= ‘ #% ’ 0 #%‘ - ’ ‘ 1’2 1‘ ’ &3456" 7189:;* 7180" $<=>? :@8-A8BCDD 6E@ $1=F8 71G‘ ’ ‘ H’ 9 H ‘ ’ ! CF!I-JK BL9 L BM9 #M‘ ’ ‘ ’ D/NO/L/MPQ ’#LM’ CRBLI BMS=TIUI 2. Insert(S1,S2,vt) B9 B#‘ ’ VNNNOBLWQ ‘#’ 1FB S=TIUI 1. Delete(S,vt,n) VÝ dôý nghÜaThñ tôc C9 ‘ ’ X'C/NOQ9 8‘ ’ C4 ? 4. UPCase(ch) BL9 L BM9 #‘ ’ ‘ LM’ '/OBLBMQ9P CIUY*= >FBL BM 3. Pos(S1,S2) B9 1‘ ’ NOBQ9Z CU. FB 2. Length(S) VÝ dôý nghÜaHµm B9 H‘ ’ C)4OBW[Q9 ‘ ’ H\-> )S=TIUI FB 1. Copy(S,vt,n) 4. Mét sè vÝ dô NhËp vµo hä tªn cña hai häc sinh, in ra mµn h×nh hä tªn dµi h¬n? 1 C¸c bíc: ThÓ hiÖn b»ng pascal 1. "( Var a,b: string; 2. HF8( BEGIN Write(‘ Nhap xau ho ten thu nhat :’); Readln(a); Write(‘Nhap xau ho ten thu hai :’); Readln(b); 3. I:%( IF Length(a)>Length(b) Then write(a) else write(b); Readln; END. Nhập vào hai xâu từ bàn phím, kiểm tra xem kí tự đầu tiên của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai không? 2 Các bớc: 1. "(! 2. HF8( 3. I:%(# ! "%#&9#1(! A[1] "%#&>J(! B[x] # I676( K&)6L C1 6#L M#N NhËp vµo mét x©u tõ bµn phÝm, ®Ra ra mµn h×nh x©u thu ®Rîc b»ng c¸ch lo¹i bá c¸c dÊu c¸ch tõ x©u ®· cho? 3 1#F# #O6 ##1 -%.! 71="‘ ]H’ 7<^_-`"‘ ]H’ ThuËt to¸n P,"Q#R(42 G,S9LT##B#D#O89#:()UF8 89#:LT#D#NV=)6(4, )#L M#N& #W#F## 1, [...]...Hãy nhớ! Xin chao cac ban! Xâu là dãy các kí tự trong bộ mã ASCII Var S : string[30] Khai báo: tên xâu, độ dài lớn nhất của xâu S[1] = X Tham chiếu phần tử của xâu: Tên xâu[ chỉ số] Các thao tác xử lí thường dùng: + Phép ghép xâu, so sánh xâu; + Các thủ tục và hàm chuẩn . write(a) else write(b); Readln; END. Nhập vào hai xâu từ bàn phím, kiểm tra xem kí tự đầu tiên của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai không? 2 Các bớc: 1. "(! 2. HF8( 3 ! "#$%#&#'(#)#*+, -% .!*/+0 ,‘ ’ 1(!2 34%#&56$7#89#:(2 -% .! ;76( <=>%#&#(?! @2 H 1 ’ &3456" 7189:;* 7180" $<=>? :@8-A8BCDD 6E@ $1=F8 71G‘ ’ ‘ H’ 9 H ‘ ’ ! CF!I - JK BL9