tailieunhanh - Ebook Tự học lập trình Pascal (Tập 3): Phần 2 - Bùi Việt Hà (chủ biên)

Tiếp nối phần 1, phần 2 ebook Tự học lập trình Pascal (Tập 3) do Bùi Việt Hà chủ biên biên soạn trình bày phần hướng dẫn các bài tập được đưa ra ở bài học số 5 trở đi. nội dung 2 phần ebook. | 100 JìiÌỊX Z Z PalcsiL - Begin Clrscr Writeln Chương trinh tìm một xàu con chung cực đại của hai xâu Writef Nhập xàu S1 Readln S1 Writer Nhập xâu S2 Readln S2 11 length s1 s2 k 0 kmax 0 For i -1 to 11 do For j 1 to I2 do Begin If s1 i s2 j then Begin k 1 While i k H and j k l2 and s1 i k s2 j k do inc k lfkmax k then Begin kmax k imax i End End End if kmax-0 then Writeln Hai xâu S1 va S2 không CÓ xâu con nào chung Else Begin Wrife Hai xâu S1 và S2 có xâu con chung Phẩn 2. HƯỚNG DẪN 101 dài nhất lá For i -imax to imax kmax-1 do Write s1 i End Readln End. 11. Program P3411 Uses crt Const so set of charge 1 2 3 4 5 1 6 778 9 0 Var s s1 string k I byte 0 d boolean Begin Clrscr Write In Chương trinh tìm xâu con dộ dài k cỏ chứa kí tự Sũ của S Write Nhập xâu s Readln s Writef Nhập số k Readln k l length s d -false For i 1 to l-k 1 do Begin s1 -copy s i k -- fa Ise For j 1 to k do if in so then c true if c then Begin Wrileln sl d true 102 ậọ- blink- PtUcal - lập 3 End End if not d then WritelnfKhong có xâu như vậy Readln End. 12. Program P3412 Uses crt Var s1 s2 string p K 11 12 byte Begin Clrscr Writeln Chương trình tìm vị trí cuối cùng của S1 1 trong S2 Writef Nhập xâu S1 Reàdln s1 Write Nhập xâu S2 Readln s2 11 length s1 k 0 p pos s1 s2 While p 0 do Begin k k p s2 s2 copy s2 p 1 l2-p s1 s2 End if k 0 then Writelnf Vị trí cuối cùng của S1 trong E là k