CHUỖI VÀ CÁC BÀI TOÁN TRÊN CHUỖI part 4

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ả
Nội dung trích xuất từ tài liệu:
CHUỖI VÀ CÁC BÀI TOÁN TRÊN CHUỖI part 4writeln(±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±);end;{----------------------------------------------------------------}Procedure thoat;var ch:char;begintextbackground(4);textcolor(14);gotoxy(21,6);write(ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿);gotoxy(21,7); write(³ Ban co muon thoat khong (C/K) ? ³);gotoxy(21,8);write(ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ);repeatch:=readkey;case upcase(ch) ofC : 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 34 Vâ Minh Phæ – Bæ m«n Khoa häc m¸y tÝnhtextbackground(9);textcolor(15);gotoxy(25,3);write(ÉÍÍÍÍÍÍÍÍÍÍÍÍThuc donÍÍÍÍÍÍÍÍÍÍÍÍ»);for i:=1 to 9 dobeginmahoa(menu[i],32);gotoxy(25,3+i);write(º,menu[i],º);end;gotoxy(25,4+i);write(ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ);t1:=1;textbackground(4);textcolor(14);gotoxy(26,4);write(menu[1]);repeatch:=readkey;case ch of#80 : begin textbackground(9); textcolor(15); gotoxy(26,3+t1); write(menu[t1]); if t1=9 then t1:=1 else t1:=t1+1; textbackground(4); textcolor(14); gotoxy(26,3+t1); write(menu[t1]); 35 Vâ Minh Phæ – Bæ m«n Khoa häc m¸y tÝnh end;#72 : begin textbackground(9); textcolor(15); gotoxy(26,3+t1); write(menu[t1]); if t1=1 then t1:=9 else t1:=t1-1; textbackground(4); textcolor(14); gotoxy(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; 36 Vâ Minh Phæ – Bæ m«n Khoa häc m¸y tÝnh writeln; write(Chuoi sau khi nhap vao:); inxau(first); dao(first); writeln; writeln; write(Chuoi sau khi duoc dao nguoc:); inxau(first); readln; while firstnil do xoacuoi(first); dohoa; End;2 :Begin clrscr; writeln( Thu tuc dem so phan tu trong xau); writeln; write(Nhap vao mot xau bat ky :); repeat ch:=readkey; Begin write(,ch); themcuoi(first,h); End; until ch=#13; writeln; writeln; f:=chieudai(first); 37 Vâ Minh Phæ – Bæ m«n Khoa häc m¸y tÝnh writeln; write(chieu dai xau tren la :,f-1); writeln; readln; while firstnil do xoacuoi(first); dohoa; End;3 :Begin clrscr; writeln( Thu tuc lay chi so cua xau); writeln; write(Nhap so phan tu cua xau:); readln(n); writeln; write(nhap vi tri can lay:); readln(e); writeln; for i:=1 to n do Begin write(Nhap ky tu thu ,i,:); readln(h); themcuoi(first,h); End; writeln; write(Chuoi sau khi nhap vao:); inxau(first); writeln; 38 Vâ Minh Phæ – Bæ m«n Khoa häc m¸y tÝnh c1:=chiso(first,e); writeln; write(ki tu duoc lay la:,c1); readln; while firstnil do xoacuoi(first); dohoa; End;4 :Begin clrscr; writeln( Thu tuc lay xau ky tu con); writeln; write(Nhap so phan tu cua xau:); readln(n); writeln; write(nhap vi tri bat dau lay:); readln(b1); writeln; write(nhap so ki tu can lay:); readln(b2); writeln; for i:=1 to n do Begin write(Nhap ky tu thu ,i,:); readln(h); themcuoi(first,h); End; writeln; write(Chuoi sau khi nhap vao:); inxau(first); 39 Vâ Minh Phæ – Bæ m«n Khoa häc m¸y tÝnh writeln; g:=xaukitucon(first,b1,b2); writeln; write(xau duoc lay la:); inxau(g); writeln; readln; while firstnil do xoacuoi(first); dohoa; End;5 :Begin clrscr; writeln( Thu tuc in xau khong de quy); 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; writeln; write(Chuoi sau khi nhap vao duoc goi bang ham khong de quy :); inxau(first); writeln; readln; 40 Vâ Minh Phæ – Bæ m«n Khoa häc m¸y tÝnh while firstnil do xoacuoi(first); dohoa; End;6 :Begin clrscr; w ...