* đổi kí tự

program doi_kitu;

uses crt;

var c:char;

begin

       clrscr;

       write('Nhap ki tu hoa: ');  readln(c);

       c:=chr(ord(c)+32);

       write('Ki tu thuong la: ',c);

       readln;

end.

*đổi chuỗi;

program doi_chuoi;

uses crt;

var s:string;

     i:byte;

begin

       clrscr;

       write('Nhap chuoi: ');  readln(s);

       for i:=1 to length(s) do

              if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32);

       write('Chuoi sau khi doi la: ',s);

       readln;

end.

*đổi kí tự thường sang hoa

program doi_kitu;

uses crt;

var c:char;

begin

       clrscr;

       write('Nhap ki tu thuong: ');  readln(c);

       c:=upcase(c);

       write('Ki tu hoa la: ',c);

       readln;

end.

*đổi chuỗi thường thành hoa

program doi_chuoi;

uses crt;

var s:string;

     i:byte;

begin

       clrscr;

       write('Nhap chuoi: '); readln(s);

       for i:=1 to length(s) do

              if s[i] in ['a'..'z'] then s[i]:=upcase(s[i]);

       write('Chuoi thuong la: ',s);

       readln;

end.

*Chuẩn hóa họ tên

program chuanhoa;

uses crt;

var s:string;

     i:byte;

begin

       clrscr;

       write('Nhap ho va ten: ');  readln(S);

       for i:=1 to length(s) do

              if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32);

       s[1]:=upcase(s[1]);

       for i:=2 to length(s) do

              if s[i]=' ' then s[i+1]:=upcase(s[i+1]);

       write('Ho va ten la: ',s);

       readln;

end.

Program DOI_CHUOI_CHU_HOA;
Uses Crt;
Var i:integer;st:string;
Begin
     Clrscr;
     Writeln('DOI CHUOI SANG CHUOI HOA');
     Writeln('--------------------------------------');
     Write('Nhap ho ten:');readln(st);
     st[1]:=upcase(st[1]);
     For i:=1 to length(St) do
     If st[i]=' ' then st[i+1]:=upcase(st[i+1]);
          Writeln('Ho ten sau khi doi lan 1 la: ',st);
     For i:=1 to length(St) do
          st[i]:=upcase(st[i]);
     Writeln('Ho ten sau khi doi lan 2 la: ',st);
      Readln;
End.

 Viết chương trình nhập vào một chuỗi ký tự . Sau đó in chuỗi ra màn hình với các ký tự đầu đổi thành chữ thường, các ký tự cuối của từ trong chuỗi sang chữ hoa.

Program CHUOI_CHU_THUONG;
Uses Crt;
Var i,l:integer;
      st:string[50];
Begin
      Clrscr;
      Writeln('DOI CHUOI SANG CHUOI CHU THUONG');
      Writeln('------------------------------------------------------');
      Write('Nhap chuoi ky tu: '); Readln(st);
      For i:=1 to length(st) do
      If (st[i]>='A') and (st[i]<='Z') then
          st[i]:= chr(ord(st[i])+32);
      Writeln;
      Writeln('Chuoi doi thanh chu thuong la : ');
      Writeln(st);
      Writeln; l:=length(st);
        st[l]:=upcase(st[l]);
       For i:=l downto 2 do
             If st[i]=' ' then st[i-1]:=upcase(st[i-1]);
            Writeln('Chuoi cac ky tu cuoi cua tu la ky tu hoa: ');
            Writeln(st);
       Readln;
End.