Bài 12 kiểu xâu

Th l : Dnh cho c bn nhúm, gm 10 cõu hi Mi cõu tr li dỳng c 10 im thi gian giõy Tr li sai khụng cú im; (Bng hỡnh thc gi bng ỏp ỏn A, B, C, D ) Cõu Cõu 1: 1: Trong Trong ngụn ngụn ng ng lp lp trỡnh trỡnh Pascal, Pascal, tth tth tc tc Delete(a,b,c) Delete(a,b,c) thc thc hin hin cụng cụng vic vic gỡ gỡ trong cỏc cỏc cụng cụng viờc viờc sau? sau? A Xúa xõu a, ti v trớ b, xúa i c kớ t B Xúa xõu a, ti v trớ c, xúa i b kớ t C Xúa xõu c, ti v trớ b, xúa i a kớ t D Xúa xõu c, ti v trớ a, xúa i b kớ t 02 03 05 00 01 Cõu Cõu 2: 2: Cho Cho S:= S:= Tin Tin hoc; hoc; Tham Tham chiu chiu ti ti phn phn t t th th 44 ca ca SS ta ta c c kt kt qu? qu? A S[4] = hoc B S[4] = C D S[4] = h S[4] = 08 09 10 00 01 02 03 04 05 06 07 Cõu Cõu 3: 3: C Cỳỳ phỏp phỏp khai khai bỏo bỏo tng tng quỏt, quỏt, y y ca ca d d liu liu kiu kiu xõu xõu l: l: A 08 09 10 00 01 02 03 04 05 06 07 Var of String B Var : String[ di ln nht ca xõu]; C Var < tờn bin> String[ di ln nht ca xõu]; D Var < tờn bin> of String[ di ln nht ca xõu]; Cõu Cõu 4: 4: Tỡm Tỡm v v trớ trớ xut xut hin hin u u aa ca ca xõu xõu hoa hoa trong S S ta ta vit: vit: A B S1:= hoa; I:= Pos(S1,hoa); I:=Pos(S,hoa) C I:= Pos(hoa,S); D I:=Pos(hoa,hoa) 02 01 03 04 00 05 Cõu Cõu 5: 5: Trong Trong ngụn ngụn ng ng lp lp trỡnh trỡnh pascal, pascal, hai hai xõu xõu c c so so sỏnh sỏnh da da trờn? trờn? A B C D di ti a ca hai xõu Mó ca tng kớ t cỏc xõu ln lt t trỏi sang phi di thc s ca hai xõu; S lng kớ t khỏc xõu; 08 09 10 00 01 02 03 04 05 06 07 Th l : Dnh cho c nhúm: Nhúm 1: Vớ d 2; Nhúm 2: Vớ d 3; Nhúm 3: Vớ d 4; Nhúm 4: Vớ d ; Thi gian ti a phỳt - Xỏc nh input, output - Nờu ý ngha mt on lnh - Cho vớ d mụ phng (im ti a l 30 im) Nhúm 1: Hóy xỏc nh Input, output ca vớ d SGK trang 72 Thuyt trỡnh ý ngha on lnh: x:= length(b); If a[1]=b[x] then write (Trung nhau) else write (Khac nhau); Cho mt vớ d? Vớ d 2: Nhp hai xõu t bn phớm, kim tra kớ t u tiờn ca xõu th nht cú trựng vi kớ t cui cựng ca xõu th hai hay khụng? Xác định toán Input: Nhp vo xõu a, xõu b Output: Thụng bỏo trựng hoc khụng trựng í NGHA ON LNH Xỏc nh di xõu b bit v trớ ca kớ t cui cựng xõu b Cõu lnh r nhỏnh y kim tra nu kớ t u ca xõu a bng kớ t cui xõu b thỡ a thụng bỏo Trung ngc li Khac Nhúm 3: Hóy xỏc nh Input, output ca vớ d SGK trang 72 Thuyt trỡnh ý ngha on lnh: k:= length(a); b := ; For i:= to k If a[i] then b := b + a[i]; Cho mt vớ d? Vớ d 4: Nhp vo mt xõu t bn phớm v a mn hỡnh xõu thu c t nú bi vic loi b cỏc du cỏch nu cú Xác định toán Input: Nhp vo xõu a Output: a mn hỡnh xõu b khụng cha du cỏch í NGHA ON LNH Xỏc nh di xõu a To xõu rng b.Dựng vũng lp For duyt t u xõu ti cui xõu Kim tra tng kớ t xõu a Nu kớ t no khỏc du cỏch thỡ cng vo xõu b qua phộp toỏn ghộp xõu Minh ho (vớ d 4) Var a, b:String; x: byte; Write(Nhap xau: ); Readln(a); k := length(a); b := ; a b L o n L o n g g Nhap xau: Lo ng Ket qua: For i:= to k If a[i] then b := b + a[i]; writeln (Ket qua: ,b); Long Mn hỡnh 255 255 20 15 Nhúm 4: Hóy xỏc nh Input, output ca vớ d SGK trang 72 Thuyt trỡnh ý ngha on lnh: s2 := ; For i:= to length (s1) If (0=< s1[i]) and (s1[i]>=9) then s2 := s2+ s1[i]; Cho mt vớ d Vớ d 5: Nhp vo mt xõu kớ t s1, to xõu s2 gm tt c cỏc ch s s1 (gi nguyờn th t xut hin ca chỳng) v a kt qu mn hỡnh Xác định toán Input: Nhp vo xõu s1 Output: a mn hỡnh xõu s2 gm cỏc ch s s1 í NGHA ON LNH Khi to xõu s2 rng S dng vũng lp For giỏ tr u l to giỏ tr cui l di xõu s1 duyt tng phn t t u n cui xõu Cõu lnh If kim tra tng phn t ca xõu cú nm on kớ t ti hay khụng? Nu thuc on ti thỡ cng vo xõu s2 Minh ho (vớ d 5) Var s1, s2: String; i: byte; Write(Nhap xau s1: ); Readln(a); b := ; For i:= to length (s1) If (0=< s1[i]) and (s1[i] [...]... output ca vớ d 3 SGK trang 72 Thuyt trỡnh ý ngha on lnh: k:= length(a); For i:= k downto 1 do write (a[i]); Cho mt vớ d? Vớ d 3: Nhp vo mt xõu t bn phớm v a ra mn hỡnh xõu ú c vit theo th t ngc li Xác định bài toán Input: Nhp vo xõu a Output: a ra mn hỡnh xõu a theo th t ngc li í NGHA ON LNH Tớnh di xõu a l k S dng vũng lp For giỏ tr cui downto giỏ tr u sau ú in ra cỏc kớ t ca chui theo chiu ngc li Minh... ngha on lnh: k:= length(a); b := ; For i:= 1 to k do If a[i] then b := b + a[i]; Cho mt vớ d? Vớ d 4: Nhp vo mt xõu t bn phớm v a ra mn hỡnh xõu thu c t nú bi vic loi b cỏc du cỏch nu cú Xác định bài toán Input: Nhp vo xõu a Output: a ra mn hỡnh xõu b khụng cha du cỏch í NGHA ON LNH Xỏc nh di xõu a To xõu rng b.Dựng vũng lp For duyt t u xõu ti cui xõu Kim tra tng kớ t xõu a Nu kớ t no khỏc du... (s1) do If (0=< s1[i]) and (s1[i]>=9) then s2 := s2+ s1[i]; Cho mt vớ d Vớ d 5: Nhp vo mt xõu kớ t s1, to xõu s2 gm tt c cỏc ch s trong s1 (gi nguyờn th t xut hin ca chỳng) v a kt qu ra mn hỡnh Xác định bài toán Input: Nhp vo xõu s1 Output: a ra mn hỡnh xõu s2 gm cỏc ch s trong s1 í NGHA ON LNH Khi to xõu s2 rng S dng vũng lp For giỏ tr u l 1 to giỏ tr cui l di xõu s1 duyt tng phn t t u n cui xõu Cõu