Viết chương trình nhập vào một xâu ký tự in xâu đó sang chữ thường

ÔN TẬP XÂU KÝ TỰ (STRING)

TYPE TênKiểu = STRING[Max];

VAR     Tên biến : TênKiểu;

hoặc khai báo biến trực tiếp:

VAR    Tên biến : STRING[Max];

Trong đó Max là số ký tự tối đa có thể chứa trong chuỗi (Max Î [0,255]). Nếu không có khai báo [Max] thì số ký tự mặ mặc định trong chuỗi là 255.

Ví dụ:

Type                Hoten  = String[30];
St80 = String[80];
Var                  Name : Hoten;
Line : St80;
St : String; {St có tối đa là 255 ký tự}

Bài 1: Viết chương trình nhập vào một xâu ký tự in xâu đó sang chữ thường

Bài giải đổi sang chữ thường

Program Chuoi_Chu_Thuong;
Uses Crt;
Var i,l:integer;
st:string[50];

Begin

    Clrscr;
    Writeln('DOI CHUOI SANG CHUOI CHU THUONG');
    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;

    Readln;

End.

Screenshot cho dễ hiểu

Bài 2 : 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.

Bài 2 giải khá giống bài trên

Program Chuoi_Chu_Thuong;
Uses Crt;
Var i,l:integer;
st:string[50];

Begin
    Clrscr;
    Writeln('DOI CHUOI SANG CHUOI CHU THUONG');
    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.

Screenshot giúp tưởng tượng