tailieunhanh - Tự học lập trình Pascal tập 4 part 5

Tham khảo tài liệu 'tự học lập trình pascal tập 4 part 5', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | list 6 WritefNhan Enter để thoát. Readln End. 16. Tương tự bài 15 ta sẽ chia các xâu nhị phân độ dài n và không chứạ 3 số 0 liên tiếp làm 3 loại - Loại 1 có kí tự cuối cùng là ì . - Loại 2 có kí tự cuối cùng là 0 kí tự kề cuối cùng là T. - Loại 3 có kí tự cuối cùng là 0 kí tự kề cuối cùng là 0 . Nhận xét tương tự bài 14 ta sẽ được - Số các xâú loại 1 là Bn-V - SỐ các xâu loại 2 là Blr2. - SỐ các xâu loại 3 là Như vậy ta có công thức Bn Bl 3 với mọi n 4. Bi 2 B2 4 B3 7. Để tách An ta nhận xét rằng 2 -8 3 An-2 A. 3 2M 2 2n 3 - B B B J 12 - Bn. Nhưng vì Bn 2S- - An nên A . - 2 - A. -2- rAn A A_ 2 với mọi n 4. Phần 2. HƯỚNG DẨN 101 Ai 0 A -0 Aj 1. 17. Program P4317 Const Maxp 1000 Var Stack array 1 .maxp of integer p v integer con trỏ trỏ vào phần từ đưa vào cuẩi cùng Procedure Push v integer đưa phẩn tử V vào stack Begin incfp stack p v End Procedure Pull Var v integer lấy một phần tử khỏi stack và lưu vào v Begin If p 0 then Begin v. stack pl dec p End Else WritefStack đã hết phần tử End r ss STO sssss ss. Begin Clrscr p 0 Write Đưa số 5 vào stack Push 5 Write Lấy ra 1 phần tở khỏi stack Pull v 102 Write v Readln End. 18. Program P4318 Uses Crt Const maxp 100 Var Queue array 1 .maxp of integer V p integer Procedure push v integer đưa phẩn tử I váo hàng đợi Queue Var i integer Begin inc p if p 1 then stack p v Else Begin For i p downto 2 do stack i stack i-1 stack 1 v End End Procedure Pull Var v integer lấy một phần tử khỏi Queue Begin If p max then Begin v Queue p