Đang tải... (xem toàn văn)
Xác định bài toán: Input: Nhập vào hai xâu từ bàn phím Output: Kiểm tra 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.. Hướng giải quyết bài toán[r]
(1)(2) Câu hỏi 1: Em hãy cho biết nào là xâu? Cách khai báo xâu? Từ đó hãy viết chương trình khai báo xâu a và b? KIỂM TRA BÀI CŨ Xâu là dãy các kí tự mã ASCII, kí tự gọi là phần tử xâu Khai báo xâu: Var <tên biến>: string[độ dài lớn xâu]; Trong đó: + String: tên dành riêng + Độ dài lớn xâu (<=255) ghi cặp ngoặc [ ] Var a, b: string; (3) Câu 2: Em hãy nêu quy tắc để So sánh xâu? So sánh hai xâu sau:ST1:= ‘CBA’; ST2:= ‘CBB’; KIỂM TRA BÀI CŨ Xâu A lớn xâu B nếu: • Kí tự đầu tiên khác chúng xâu A có mã ASCII lớn xâu B • Xâu B là đoạn đầu xâu A ST1 C B Mã 66 Mã 65 A ST1[1] ST1[2] ST1[3] ST2 = < < C B B ST2[1] ST2[2] ST2[3] (4) KIỂM TRA BÀI CŨ NỘI DUNG BÀI MỚI 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu n A N B N g u y e n g u y e 7 n Cần có thao tác gì để chỉnh sửa xâu A thành xâu B? 8 A 10 A n n (5) KIỂM TRA BÀI CŨ c Thủ tục DELETE(St, vt, n) NỘI NỘIDUNG DUNGBÀI BÀIMỚI MỚI • Xoá n kí tự xâu St vị trí vt 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); Ví dụ 1: St:= ‘Song Hong’; Delete(St,1,5); S o n g H o n g ST[1] Kết quả: St = ‘Hong’ Ví dụ 2: St =’tin hoc’ Delete(St,4,3); St =’tin hoc’ (6) KIỂM TRA BÀI CŨ NỘI DUNG BÀI MỚI d Thủ tục INSERT(St1, St2, vt) Chèn xâu St1 vào xâu St2 vị trí vt Ví dụ 1: 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); d) Insert(s1,s2,vt); St1:= ‘vi-’; St2:= ‘May-tinh’; Insert(St1,St2,5); v i M a Ví dụ: 2 M a y - t y - i n h t i n h 10 11 Kết quả: St2 = ‘May-vi-tinh’ S = ’Abc’ Abc def St = ’def’ Insert(S,St,1); St =‘ ’ (7) KIỂM TRA BÀI CŨ NỘI DUNG BÀI MỚI 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); d) Insert(s1,s2,vt); e) Copy(st,vt,n); Hàm COPY(S, vt, n) • Tạo xâu gồm n ký tự liên tiếp vị trí vt xâu S Ví dụ 1: St1:= ‘Xau-ky-tu’; St2:= Copy(St1,5,5); X a u - k y - t u Copy Kết St2 = ‘ky-tu’ Ví dụ 2: S1 = copy(s,5,4); hong S = ’ hoa hong’ S1 = ’ ’ (8) KIỂM TRA BÀI CŨ NỘI DUNG BÀI MỚI 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); d) Insert(s1,s2,vt); e) Copy(st,vt,n); f) Length(s); f Hàm LENGTH(S) Cho giá trị là độ dài xâu S Ví dụ1 : S:= ‘Tin hoc’; D:= Length(S); T i n h o c Kết quả: D = Ví dụ 2: S = ’ab 2’ 23 D:=Length(S); Kết D= (9) KIỂM TRA BÀI CŨ NỘI DUNG BÀI MỚI 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); d) Insert(s1,s2,vt); e) Copy(st,vt,n); f) Length(s); g) Pos(s1,s2); g Hàm POS(St1, St2) - Cho vị trí xuất đầu tiên xâu St1 xâu St2 Ví dụ 1: St2:= ‘LOP 11A1’; St1:= ’11A1’; D:= Pos(St1,St2); L O P 1 A Kết quả: D = Ví dụ 2: D:= pos(‘Cd’,S2); S2:= ‘abcde’ Cd CC dCd dCd D=0 (10) KIỂM TRA BÀI CŨ h Hàm UPCASE(Ch) NỘI DUNG BÀI MỚI 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); d) Insert(s1,s2,vt); e) Copy(st,vt,n); f) Length(s); g) Pos(s1,s2); h) Upcase(ch); • Cho chữ cái in hoa ứng với chữ cái ch Ch1:= ‘a’; Ch2:= Upcase(Ch1); Kết quả: Ch2 = ‘A’ St U p C a s e Upcase(st[1]) Upcase(st[2]) Upcase(st[3]) Upcase(st[4]) Upcase(st[6]) Upcase(st[5]) P A S E (11) KIỂM TRA BÀI CŨ NỘI DUNG BÀI MỚI 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); d) Insert(s1,s2,vt); e) Copy(st,vt,n); f) Length(s); g) Pos(s1,s2); h) Upcase(ch); Một số ví dụ Ví dụ Ví dụ 1: Chương trình đây nhập họ tên hai người vào hai biến xâu và đưa màn hình xâu dài hơn, thì đưa xâu nhập sau Xác định bài toán: Input: Nhập họ tên hai người vào hai biến xâu Output: Đưa màn hình xâu dài hơn, thì đưa xâu nhập sau Hướng giải bài toán? Dùng hàm Length để biết độ dài hai xâu,sau đó dùng câu lệnh If dạng đủ để thực hiện: length(a)>length(b) thì đưa xâu a; không thì đưa xâu b (12) KIỂM TRA BÀI CŨ NỘI DUNG BÀI MỚI 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); d) Insert(s1,s2,vt); e) Copy(st,vt,n); f) Length(s); g) Pos(s1,s2); h) Upcase(ch); Một số ví dụ Ví dụ Thể pascal Var a, b: String; Begin write (‘Nhap ho ten nguoi thu 1: ’); readln (A); write (‘Nhap ho ten nguoi thu 2: ’); readln (B); if length(A) > length(B) then write (A) else write(B); readln End pascal (13) KIỂM TRA BÀI CŨ NỘI DUNG BÀI MỚI 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); d) Insert(s1,s2,vt); e) Copy(st,vt,n); f) Length(s); g) Pos(s1,s2); h) Upcase(ch); Một số ví dụ Ví dụ Ví dụ Ví dụ 2: Viết chương trình nhập hai xâu từ phím và kiểm tra kí tự đầu tiên xâu thứ có trùng với kí tự cuối cùng xâu thứ hai không Xác định bài toán: Input: Nhập vào hai xâu từ bàn phím Output: Kiểm tra kí tự đầu tiên xâu thứ có trùng với kí tự cuối cùng xâu thứ hai không Hướng giải bài toán: Thể Pascal Var x : byte ; a, b : string ; Begin Write(‘nhap xau thu nhat:’); Readln(a); Write(‘nhap xau thu nhat:’); Readln(b); x:= length(b); If a[1]= b[x] then Write(‘Trung nhau’) else write(‘Khac nhau’); Readln Pascal End (14) KIỂM TRA BÀI CŨ NỘI DUNG BÀI MỚI 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); d) Insert(s1,s2,vt); e) Copy(st,vt,n); f) Length(s); g) Pos(s1,s2); h) Upcase(ch); Một số ví dụ Ví dụ Ví dụ Ví dụ Ví dụ 3: Viết chương trình nhập vào xâu từ phím và đưa màn hình xâu viết theo thứ tự ngược lại Xác định bài toán: Input: Nhập vào hai xâu từ bàn phím Output: Kiểm tra kí tự đầu tiên xâu thứ có trùng với kí tự cuối cùng xâu thứ hai không Hướng giải bài toán: Thể Pascal Var a : string[50] ; i, d : byte ; Begin Write(‘nhap vao xau:’); Readln(a); d:= length(a); For i:= d downto Write(a[i]); Readln; End Pascal (15) KIỂM TRA BÀI CŨ NỘI DUNG BÀI MỚI 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); d) Insert(s1,s2,vt); e) Copy(st,vt,n); f) Length(s); g) Pos(s1,s2); h) Upcase(ch); Một số ví dụ Ví dụ Ví dụ Ví dụ Ví dụ Ví dụ 4: Viết chương trình nhập vào xâu từ phím và đưa màn hình xâu thu từ nó việc loại bỏ các dấu cách có Xác định bài toán: Input: Nhập vào xâu từ bàn phím Output: tạo xâu loại bỏ các dấu cách từ xâu vừa nhập Hướng giải bài toán: Thể Pascal Var i, k : byte ; a, b : string ; Begin Write(‘nhap xau :’); Readln(a); k:= length(a); b:= ‘’; for i:=1 to k If a[i]<>‘ ’ then b:=b+a[i]; write(‘ket qua: ’,b); Readln End Pascal (16) KIỂM TRA BÀI CŨ Ví dụ 5: Viết chương trình nhập vào xâu s1 từ bàn phím, tạo xâu s2 gồm tất các chữ số có s1 NỘI DUNG BÀI MỚI 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); d) Insert(s1,s2,vt); e) Copy(st,vt,n); f) Length(s); g) Pos(s1,s2); h) Upcase(ch); Một số ví dụ Ví dụ Ví dụ Ví dụ Ví dụ Ví dụ Xác định bài toán: Input: Nhập vào xâu từ bàn phím Output: Taọ xâu gồm các chữ số xâu vừa nhập Hướng giải bài toán: Thể Pascal Program Xulixau; Var s1, s2 : string ; i : byte ; Begin Write(‘nhap vao xau s1:’); Readln(s1); s2:= ‘’; For i:= to length(s1) if (‘0’=< s1[i]) and (s1[i]<=‘9’) then s2:= s2+s1[i]; Write(‘Ket qua: ’, s2); Readln Pascal End (17) KIỂM TRA BÀI CŨ NỘI DUNG BÀI MỚI 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); d) Insert(s1,s2,vt); e) Copy(st,vt,n); f) Length(s); g) Pos(s1,s2); h) Upcase(ch); Một số ví dụ Ví dụ Ví dụ Ví dụ Ví dụ Ví dụ CỦNG CỐ Em hãy kết thực các thao tác sau: Giá trị st Thao tác Kết a) ‘Dat Nuoc’ Delete(st, 5, 4) ‘Dat ’ b) ‘Hoc ki 2’ Copy(st, 4, 5) c) ‘Hoc tot’ Length(st) d) ‘Nang dong’ Pos(‘Nang’, st) ‘ki 2’ (18) KIỂM TRA BÀI CŨ NỘI DUNG BÀI MỚI 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); d) Insert(s1,s2,vt); e) Copy(st,vt,n); f) Length(s); g) Pos(s1,s2); h) Upcase(ch); Một số ví dụ Ví dụ Ví dụ Ví dụ Ví dụ Ví dụ CỦNG CỐ Các hàm và thủ tục xử lý xâu: Delete(St, vt, n) Insert(S1, S2, vt) Copy(S, vt, n) Length(S) Pos(S1, S2) Upcase(ch) (19) KIỂM TRA BÀI CŨ NỘI DUNG BÀI MỚI 2.Một số thao tác xử lí xâu a) Ghép xâu b) So sánh xâu c) Delete(st,vt,n); d) Insert(s1,s2,vt); e) Copy(st,vt,n); f) Length(s); g) Pos(s1,s2); h) Upcase(ch); Một số ví dụ Ví dụ Ví dụ Ví dụ Ví dụ Ví dụ CỦNG CỐ DẶN DÒ - Ôn lại bài học hôm - Làm bài tập 10 trang 80 SGK - Chuẩn bị trước Bài tập và thực hành số (20) Chân thành cám ơn các thầy, cô giáo đã cã mÆt tham dù tiÕt häc ngµy h«m (21)