Tham khảo tài liệu 'chuỗi và các bài toán trên chuỗi part 4', 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ả | writeln end --------------------------------------------- Procedure thoat var ch char begin textbackground 4 textcolor 14 gotoxy 21 6 write ÚĂĂẴÂẴAÂĂẴÂẴAÂẴÂĂẴÂẴÀÂẴAÂĂĂẴÃẴÂĂẴÂẴAÂẴÂĂ gotoxy 21 7 write 3 Ban co muon thoat khong C K 3 gotoxy 21 8 write ÀẴÂẴẴẴÂẴÂÂẴÂẴẴÂẴẴẴẴÂẴẴÂÂÂẴẴẴÂẴÂÂẴÂẴẴÂẴẴẴÙ repeat ch readkey case upcase ch of C begin textbackground 0 textcolor 7 clrscr halt end K exit end until upcase ch C or upcase ch K end --------------------------------------------- Procedure dohoa tao do hoa va thuc don var i2 t1 integer ch char begin Vâ Minh Phffi - Ba m n Khoa hãc m y tĩnh 34 textbackground 9 textcolor 15 gotoxy 25 3 write ÉÍÍÍÍÍÍÍÍÍÍÍÍThuc donÍÍÍÍÍÍÍÍÍÍÍÍ for i 1 to 9 do begin mahoa menu i 32 gotoxy 25 3 i write o menu i ror end go toxy 25 4 i write ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ t1 1 textbackground 4 textcolor 14 gotoxy 26 4 write menu 1 repeat ch readkey case ch of 80 begin textbackground 9 textcolor 15 go toxy 26 3 t1 write menu t1 if t1 9 then t1 1 else t1 t1 1 textbackground 4 textcolor 14 go toxy 26 3 t1 write menu t1 Vâ Minh Phffi - Ba m n Khoa hãc m y tĩnh 35 end 72 begin textbackground 9 textcolor 15 go toxy 26 3 t1 write menu t1 if t1 1 then t1 9 else t1 t1-1 textbackground 4 textcolor 14 go toxy 26 3 t1 write menu t1 end 13 begin case t1 of 1 Begin clrscr writeln Thu tuc dao nguoc chuoi writeln write Nhap so phan tu cua xau readln n writeln for i 1 to n do Begin write Nhap ky tu thu i readln h themcuoi first h End Vâ Minh Pha - Ba m n Khoa hãc mj tĩnh .
