tailieunhanh - Lý thuyết và bài tập Pascal nâng cao part 6

Tham khảo tài liệu 'lý thuyết và bài tập pascal nâng cao part 6', tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Chương 5 Một số thuật toán sắp xếp và tìm kiếm dữ liệu 221 write cspace khong tim thay else write cspace tim thay tai vi tri vítri readln end else begin write cspace chua tinh Next readln end end end until chon2 0 end 4 if length pat length text then timnext end until chon-O writein writeicspace Nhan phim bat ky de ket thuc read In end. Bài . Program Bai5_4 uses crt type filehh text var f out filehh string 255 222 Lý thuyết và Bài tập Pascal ham tim kiem theo thuat toan brute-force function bforce pat text string integer var Íj pos len1 len2 integer begin len length pat Ien2 length text i l pos 1 while i len 1 and j len2 do begin if pat i texttj then begin i i 1 j j l end else begin i 1 pos pos 1 j pos end end if i len1 then bforce pos else bforce 0 end Chương 5 Một số thuật toán sắp xếp và tìm kiếm dữ liệu 223 í Thu tuc doc file .pas va tim chu thich l procedure readcomm var i vitri integer ghi boolean next char hh string 255 begin ghi false while not eof f do begin readln f hh if length hh 0 then begin for i 1 to length hh do begin if not ghi and hh i then begin if i 1 OR i l and hh i-1 39 then begin ghi -true next T end end vitri bforce hh if not ghi and vitri -i then if vrtri f OR f vitri 1 and hh vitri-1 .