{Nhap xau-in xau dao}
- Code:
var
st:string;
max,i,n,k,j,demkitu,demtu:integer;
ch:char;
a:string;
dem:array['A'..'Z'] of integer;
begin
writeln('xau can nhap la:');
readln(st) ;
writeln('xau dao cua xau tren la:');
for i:=length(st) downto 1 do
write(st[i]);
readln;
writeln;
{so lan xuat hien cua ki tu-ki tu xuat hien nhieu lan nhat}
for i:=1 to length(st) do
st[i]:=upcase(st[i]);
for ch:='A' to 'Z' do dem[ch]:=0;
for i:=1 to length(st) do
if (st[i]>='A') and (st[i]<='Z') then dem[st[i]]:=dem[st[i]]+1;
for ch:='A' to 'Z' do
if dem[ch]>=1 then
writeln('ki tu ',ch,' xuat hien ',dem[ch],' lan');
max:=0;
for ch:='A' to 'Z' do
if dem[ch]>=max then max:=dem[ch];
for ch:='A' to 'Z' do
if dem[ch]=max then
writeln('ki tu ',ch,' xuat hien nhieu lan nhat, voi ',max,' xuat hien');
readln;
writeln;
{chuyen ki tu thanh hoa-thuong}
writeln('xau duoc chuyen thanh ki tu hoa:');
for i:=1 to length(st) do
st[i]:=upcase(st[i]);
for i:=1 to length(st) do
write(st[i]);
readln;
writeln('xau duoc chuyen thanh ki tu thuong:');
for i:=1 to length(st) do
if (st[i]>='A') and (st[i]<='Z') then
st[i]:=chr(ord(st[i])+32);
for i:=1 to length(st) do
write(st[i]);
readln;
writeln;
{kiem tra xau Palidrom}
a:='';
for i:= length(st) downto 1 do
a:=a+st[i];
if a=st then
write('xau vua nhap la xau Palidrom') else
write('xau vua nhap khong la xau Palidrom');
readln;
writeln;
{chuan hoa xau}
while st[i]=' ' do delete(st,1,1);
while st[length(st)]=' ' do delete(st,length(st),1);
k:=pos(' ',st);
while k>0 do
begin
delete(st,k,1);
k:=pos(' ',st);
end;
writeln('xau da duoc chuan hoa:');
for i:=1 to length(st) do
write(st[i]);
readln;
writeln;
{so tu co trong xau}
demtu:=1;
for i:=1 to length(st) do
for j:=i+1 to length(st) do
if st[i]=' ' then
begin
demtu:=demtu+1;
i:=j;
end;
writeln('xau co ',demtu,' tu');
readln;
writeln;
{xau viet hoa ki tu dau tien cua moi tu}
writeln('xau viet dung chinh ta la: ');
st[1]:=upcase(st[1]);
for i:=1 to length(st) do
if st[i]=' ' then
begin
st[i+1]:=upcase(st[i+1]);
end;
for i:=1 to length(st) do
write(st[i]);
readln;
writeln;
write('nhan enter de tro lai');
readln;
end.