Giáo án điện tử bài Record

Bài tập xâu Có thao tác xử lí xâu? Phép ghép xâu: Phép toán so sánh: , Các hàm, th tc xử: a Th tc Delete(St, vt, n): b Th tc Insert(St1, St2, vt): c Hàm Copy(St, vt, n): d Hàm Length(St): e Hàm Pos(St1, St2): f Hàm Upcase(Ch): Bài tập xâu Bi 1: : Vit chng trỡnh nhp vo mt xõu ri in mn hỡnh xõu o ca mt xõu ú Minh ho Minh ho (1) Var St:String; St a b c d i:Byte; Write(Nhap vao mot xau: ); Readln(St); For i:=length(St) downto Write(St[i]); 255 i Nhap vao mot xau: a bc d dc ba Mn hỡnh Bài tập xâu Ch ng trình: Program xau_dao; Var St:String; i:Byte; Begin Write( Nhap vao mot xau: ); Readln(St); For i:=length(St) downto Write(St[i]); Readln; End Bi (2): : Vit chng trỡnh nhp vo mt xõu In mn hỡnh xõu ú sau ó i tt c ch in thng thnh in hoa Minh ho Minh ho (2) Var St:String[10]; St 3 X a A u U 10 i i:Byte; Mn hỡnh Write(Nhap vao mot xau: ); Nhap vao mot xau: Readln(St); X a u For i:=1 to length(St) Xau sau da in hoa la: St[i]:=Upcase(St[i]); X AU Writeln(Xau sau da in hoa la:, St); Bài tập xâu Chng trình: Program in_hoa; Var St:String[10]; i:Byte; Begin Write(Nhap vao mot xau: ); Readln(St); For i:=1 to length(St) St[i]:=Upcase(St[i]); Writeln(Xau sau da in hoa la:, St); Readln; End Bi (3): : Vit chng trỡnh nhp vo mt xõu bt k ri in mn hỡnh s t ca xõu ú Hng dn: T l mt dóy ký t liờn tc khỏc ký t trng (ký t trng l ký t phõn cỏch gia cỏc t) Do ú ta cú on gii thut thụ nh sau: Sotu:=0; For i:=1 to length(st) if st[i]= then inc(sotu); Gii thut trờn ch ỳng vi trng hp nhp xõu ỳng qui cỏch (Xõu khụng cú ký t trng d tha) Minh ho (3) Var St:String; 33 X a u St 10 N,i:Byte; k y t u 10 255 10 N 1023 Write(Nhap vao mot xau: ); i 10 Mn hỡnh Readln(St); Nhap vao mot xau: n:=0; Xau ky tu St:=St+ ; For i:=1 to length(St) if St[i] = then N:=N+1; Writeln(So tu cua xau la: ,N); So tu cua xau la: Bi (3): Chng trỡnh: Program So_tu; Var St:String; N,i:Byte; Begin Write(Nhap vao mot xau: ); Readln(St); n:=0; St:=St+ ; For i:=1 to length(St) if St[i] = then N:=N+1; Writeln(So tu cua xau la: ,N); Readln; End Minh ho Bi (4): : Nhập xâu kí tự gồm từ,chẳng hạn:st=Thu Do Ha Noi.In hình xâu cho từ cách kí tự trống Minh ho Kiến thức cũ Kiến thức cũ Th tc DELETE(St, vt, n): Xoỏ n ký t t xõu St bt u t v trớ vt Vớ d: St = tinhocnhatruong Delete(St, 7,9) => St = tinhoc Minh ho: 15 t i n h o c n h a t 77 1 10 11 12 = 14 15 r u o n g 6 t i n h o c - 13 Bi (3): Chng trỡnh: Program So_tu; Var St:String; i:Byte; Begin Write(Nhap vao mot xau: ); Readln(St); While st[1]= delete(st,1,1); While st[length(st)]= delete(st,length(st),1); repeat if (st[i]= ) and (st[i+1]= ) then delete(st,i,1) else i= i+1; until i> length(st); write(Cau chuan la:,st); Readln; Minh ho End [...]...Bi tp (4): : Nhập một xâu kí tự gồm các từ,chẳng hạn:st=Thu Do Ha Noi.In ra màn hình xâu đó sao cho các từ chỉ cách nhau đúng một kí tự trống Minh ho Kiến thức bài cũ Kiến thức bài cũ Th tc DELETE(St, vt, n): Xoỏ n ký t t xõu St bt u t v trớ vt Vớ d: St = tinhocnhatruong Delete(St, 7,9) => St = tinhoc Minh ho: 9 0 15 6 3 4 2 t i n h o c n h a t 0 5 77 1 1 6 2 8 3 9 4 .. .Bài tập xâu Bi 1: : Vit chng trỡnh nhp vo mt xõu ri in mn hỡnh xõu o ca mt xõu ú Minh ho Minh ho... Readln(St); For i:=length(St) downto Write(St[i]); 255 i Nhap vao mot xau: a bc d dc ba Mn hỡnh Bài tập xâu Ch ng trình: Program xau_dao; Var St:String; i:Byte; Begin Write( Nhap vao mot xau:... length(St) Xau sau da in hoa la: St[i]:=Upcase(St[i]); X AU Writeln(Xau sau da in hoa la:, St); Bài tập xâu Chng trình: Program in_hoa; Var St:String[10]; i:Byte; Begin Write(Nhap vao mot xau: