BÀI TẬP PASCAL - XÂU KÍ TỰ
BÀI TẬP: XÂU KÍ TỰ
-----------------------------

Bài 1: Nhập xâu S1, tạo xâu S2 gồm tất cả các chữ số của xâu S1
Program Xau_chu_so;
Uses crt;
Var i: integer;
S1,S2: string;
Begin
Clrscr;
            Write('Nhap xau ki tu S1: '); Readln(S1);
            S2:=#32;
            For i:=1 to length(S1) to
            If S1[i] in ['0'..'9'] then
            S2:=S2+S1[i];
            Writeln('Xau S2: ',S2);
End.
Bài 2: Nhập xâu S1, tạo xâu S2 gồm tất cả các chữ cái của xâu S1
Program Xau_chu_cai;
Uses crt;
Var i: integer;
S1,S2: string;
Begin
Clrscr;
            Write('Nhap xau ki tu S1: '); Readln(S1);
            S2:=#32;
            For i:=1 to length(S1) to
            If S1[i] in ['A'..'Z']+['a'..'z'] then
            S2:=S2+S1[i];
            Writeln('Xau S2: ',S2);
End.
Bài 3: Nhập xâu S. Tìm ra có bao nhiêu chữ cái, bào nhiêu chữ số.
Program Dem_chu_cai_so;
Uses crt;
Var I,dem_chu,dem_so: integer;
S: string;
Begin
Clrscr;
            Write('Nhap xau S: '); Readln(S);
            Dem_chu:=0; dem_so:=0;
            For i:=1 to length(S) do
            If S[i] in ['A'..'Z']+['a'..'z'] then
            Dem_chu:=dem_chu+1 else
            Dem_so:=dem_so+1;
            Writeln('Trong xau S co tat ca',dem_chu,'chu cai');
            Writeln('Trong xau S co tat ca',dem_so,'chu so');
End.
Bài 4: Nhập vào xâu S1, chuyển đổi chữ hoa thành chữ thường
Program Chu_thuong;
Uses crt;
Var i:integer;
S: string;
Begin
Crlscr;
            Write('Nhap sau S: '); Readln(S);
            For i:=1 to length(S) do
            If S[i] in ['A'..'Z'] then
            S[i]:=CHR(ORD(S[i])+32);
            Writeln(S);
End.
Bài 5: Nhâp vào xâu S, chuyển đổi chữ thường thành chữ hoa
Program Chu_hoa;
Uses crt;
Var i: integer;
S: string;
Begin
Clrscr;
            Write('Nhap xau ki tu S: '); Readln(S);
            For i:=1 to length(S) do
            If S[i] in ['a'..'z'] then
            S[i]:=Upcase(S[i]);
            Writeln(S);
End.
Bài 6: Nhập vào xâu S. Chuyển kí tự đầu của mỗi từ trong xâu thành chữ hoa
Program Chuyen_ki_tu_dau;
Uses crt;
Var i: integer;
S: string;
Begin
Clrscr;
            Write('Nhap xau S: '); Readln(S);
            S[1]:=Upcase(S[1]);
            For i:=1 to length(S) do
            If S[i]=#32 then
            S[i+1]:=Upcase(S[i+1]);
            Writeln(S);
End.
Bài 7: Xóa hết khoảng trắng
Program Xoa_khoang_trang;
Uses crt;
Var i: integer;
S1,S2: string;
Begin
Clrscr;
            Write('Nhap xau S1: '); Readln(S1);
            S2:=#32;
            For i:=1 to length(S) do
            If S1[i]<>#32 then
            S2:=S2+S1[i];
            Writeln(S);
End.
Bài 8: Xóa hết kí tự thừa trong xâu
Program Xoa_ki_tu_thua;
Uses crt;
Var i: integer;
S: string;
Begin
Clrscr;
            Write('Nhap xau S: '); Readln(S);
            While S[1]=#32 do delete(S,1,1);
            While S[length(S)]=#32 do delete(S,length(S),1);
            While POS(#32#32,S)<>0 do delete(S,POS(#32#32,S),1);
            Writeln(S);
End.
Bài 9: Xóa hết chữ số trong xâu
Program Xoa_chu_so;
Uses crt;
Var i: integer;
S: string;
Begin
Clrscr;
            Write('Nhap xau S: '); Readln(S);
            For i:=length(S) downto 1 do
            If S[i] in ['0'..'9'] then
            Delete(S,i,1);
            Writeln('Xau sau khi xoa: ',S);
End.
Bài 10: Xóa hết chữ cái có trong xâu
Program Xoa_chu_cai;
Uses crt;
Var i: integer;
S: string;
Begin
Clrscr;
            Write('Nhap xau S: '); Readln(S);
            For i:=length(S) downto 1 do
            If S[i] in ['a'..'z']+['A'..'Z'] then
            Delete(S,i,1);
            Writeln('Xau sau khi xoa: ',S);
End.
Bài 12: Nhập vào xâu. In ra xâu đảo theo từ
Program Xau_dao_theo_tu;
Uses crt;
Var S: string;
x,y,z: integer;
Begin
Clrscr;
            Write('Nhap xau S: '); Readln(S);
            Y:=length(S);
            For z:=length(S) downto 1 do
            Begin
            If ((S[y]=#32) and (y=1)) then
            Begin
            For x:=y to z do write(S[x]);
            Z:=y;
            End;
            End;
End.
Bài 13: Đếm số lần xuất hiện của các kí tự trong xâu.
Program So_lan_xuat_hien;
Uses crt;
Var S: string;
dem: array['A'..'Z'] of integer;
i:integer;
ch: char;
Begin
Clrsccr;
            Write('Nhap xâu S: '); Readln(S);
            For ch:='A' to 'Z' do
            Dem[ch]:=0;
            For i:=1 to length(S) do
            If upcase(S[i]) in ['A'..'Z'] then
            Inc(dem[upcase(S[i])]);
            For ch:='A' to 'Z' do
            If dem[ch]<>0 then
            Writeln(ch,'  ',dem[ch]);
End.
Bài 14: In xâu S1 xuất hiện bao nhiêu lần trong xâu S2
Program S1_xuat_hien;
Uses crt;
Var i,dem: integer;
S1,S2: string;
Begin
Clrscr;
            Write('Nhap xau S2: '); Readln(S2);
            Write('Nhap xau S1: '); Readln(S1);
            Dem:=0;
            For i:=1 to length(S2) so
            If S1=copy(S2,i,length(S1)) then
            Dem:=dem+1;
            Writeln('Chuoi S1 xuất hien',dem,'lan trong xau S2');
End.
Bài 15: Đếm số từ trong xâu
Program So_tu;
Uses crt;
Var i,dem: integer;
S: string;
Begin
Clrscr;
            Write('Nhap xau S: '); Readln(S);
            Dem:=0;
            S:=S+' ';
            For i:=1 to length(S) do
            If S[i]=#32 then dem:=dem+1;
            Writeln('Trong xau co tat ca',dem,'tu');
End.
Bài 16: Xóa hết kí tự trùng nhau trong xâu
Program Xoa_ki_tu_trung;
Uses crt;
Var i,j,n: integer;
S: string;
Begin
Clrscr;
            Write('Nhap xau S: '); Readln(S);
            N:=length(S);
            I:=1;
            While i            Begin
            J:=i+1;
            While j<=n do
            Begin
            If S[i]=S[j] then
            Begin
            Delete(S,j,1);
            N:=n-1;
            End
            Else j:=j+1;
            End;
            I:=i+1;
            End;
            Writeln('Xau S moi: ',S);
End.
Bài 17:Nhập xâu St. Xóa một kí tự được nhập từ bàn phím.
Program Xoa_ki_tu;
Uses crt;
Var i: integer
K: char;
St: string;
Begin
Clrscr;
            Write('Nhap xau St: '); Readln(St);
            Write('Nhap ki tu k: '); Readln(k);
            For i:=1 to length(S) do
            If St[i]=k then delete(S,I,1);
            Writeln('Xau sau khi xoa: ',S);
End.
Bài 18: Nhập xâu S. Nhập kí tự k. Đếm số lần xuất hiện của k
Program Ki_tu_k;
Uses crt;
Var i: integer;
K: char;
S: string;
Begin
Clrscr;
            Write('Nhap xau S: '); Readln(S);
            Dem:=0;
            For i:=1 to length(S) do
            If S[i]=k then dem:=dem+1;
            Writeln('Ki tu k xuat hien',dem,'lan');
End.
Bài 19: Xâu đối xứng
Program Xau_doi_xung;
Uses crt;
Var S1,S2: string
I: integer;
Begin
Clrscr;
            Write('Nhap xau S1: '); Readln(S1);
            S2:=#32;
            For i:=length(S) downto 1 do
            S2:=S1[i];
            If S1=S2 then
            Writeln('Xau nay doi xuat') else
            Writeln('Xau nay khong doi xung');
End.
Bài 21: Đếm xem trong xâu có bao nhiêu nguyen âm
Program Nguyen_am;
Uses crt;
Var dem,i: integer;
S: string;
Begin
Clrscr;
            Write('Nhapxau S: '); Readln(S);
            Dem:=0;
            For i:=1 to length(S) do
            If S[i] in ['A','O','E','U','I','a','o','e','u','i'] then
            Dem:=dem+1;
            Writeln('Trong xau co tat ca: ',dem,' nguyen am');
End.