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.

Học tốt

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.

program ChuyenXauSangChuThuong;
var
  str: string; 
  i: integer; 

begin
  write('Nhap mot xau ky tu: ');
  readln(str); 
  for i := 1 to Length(str) do
    str[i] := LowerCase(str[i]); 
  writeln('Xau ky tu chuyen thanh chu thuong la: ', str); 
end.

#include <bits/stdc++.h>
using namespace std;
int d,i,d1;
string st;
int main()
{
    getline(cin,st);
    d=st.length();
    while (st[0]==32)
    {
       st.erase(0,1);
    }
    while (st[d-1]==32)
    {
        st.erase(d-1,1);
    }
    d1=st.length();
    for (i=0; i<d1; i++)
        if ((st[i]==32) && st[i+1]==32)
        {
            st.erase(i,1);
            i--;
        }
    cout<<st;
    return 0;
}

a) Dùng chuột bôi đen chữ in đậm muốn chọn.

Nháy nút  để chuyển in đậm thành in thường

b) Dùng chuột bôi đen chữ muốn chọn.

Nháy nút  để chuyển chữ thường thành chữ nghiêng.

c) Có thể trình bày chữ vừa đậm, vừa nghiêng được.

Uses crt;

var x:char;

begin

clrscr;

readln(x);

write(chr(ord(x)-32));

readln;

end.

uses crt;

var n:string;

i,l:longint;

begin 

clrscr;

read(n);

for i := 1 to length(n) do 

case n[i] of

'A'..'Z' : n[i]:=chr(ord(n[i])+32);

end;

write(n);

end.

uses crt;

var s:string;

i,d:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

for i:=1 to d do 

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

writeln(s);

readln;

end.

Chữ thường

B

B