Tham khảo tài liệu 'chuỗi và các bài toán trên chuỗi part 3', công nghệ thông tin, tin học văn phòng phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | if 0 thenpops false else begin pops true dt stack. data stack. index dec stack. index end end ------------------------------------------------- Procedure WriteStack stack stackc var i integer Begin For i 0 to do write i End -------------------------------------------------- procedure WriteState ch char P string stack stackc Begin inc step write step 3 write ch 5 write p 20 Hien thi tung buoc write writestack stack Hien thi tung buoc writeln if step mod 23 0 then Vâ Minh Pha - Ba m n Khoa hãc mj tĩnh 23 Begin write Press enter to continue. readln end End ------------------------------------------------- Function Priority Token char integer Begin case Token of Priority 0 - Priority 1 Priority 2 A Priority 3 End End ------------------------------------------------- Procedure Init var stack stackc Begin 0 End ------------------------------------------------- Procedure InitR var stack stackR Begin 0 End ------------------------------------------------- function TheTop var stack stackc char Begin if stack. index 0 then Vâ Minh Pha - Ba m n Khoa hãc mj tĩnh 24 TheTop 0 else TheTop stack. index End ------------------------------------------------ function Empty var stack stackc boolean Begin if stack. index 0 then Empty true else Empty false End ----------------------------------------------- function EmptyR var stack stackR boolean Begin if stack. index 0 then EmptyR true else EmptyR false End ----------------------------------------------- function Push var stack stackc dt char boolean Begin if stack. index max 1 then push false else Begin inc stack. index push true Vâ Minh Pha - Ba m n Khoa hãc mj tĩnh .
