Tìm hiểu thêm nhé (quan trọng)

Các em đọc và nghiên cứu bài sau:

chú ý phần code chữ xanh có sử dụng bảng mã ACSII

cần tìm hiểu 2 hàm CHR và ORD là hàm dùng để làm gì, rất quan trọng đó

Bài tập 1: Viết chương trình nhập vào một xâu ký tự từ bàn phím. Đổi xâu ký tự đó sang chữ in hoa rồi in kết quả ra màn hình.

     Ví dụ :Xâu abcdAbcD sẽ cho ra xâu ABCDABCD.

 Cách 1:

Uses Crt;

Var  St:String;

        i:Byte;

Begin

    Write(‘Nhap xau St: ‘); Readln(St);

    For i:=1 to length(St) do St[i]:=Upcase(St[i]);

    Write(‘Xau ket qua: ‘, St);

    Readln;

End.

Cách 2:

Uses crt;
var st: string;
i: integer;
begin
write ('Nhap xau: '); readln (st);
for i:= 1 to length(st) do
if st[i] in ['a'..'z'] then st[i]:=chr(ord(st[i])-32);
write ('Xau sau khi chuyen hoa: ',st);
readln
end.

Bài tập 2: Viết chương trình nhập vào một xâu ký tự từ bàn phím. Đổi xâu ký tự đó sang chữ thường rồi in kết quả ra màn hình.

     Ví dụ :Xâu abCdAbcD sẽ cho ra xâu abcdabcd.

 Uses Crt;

Var  St:String;

        i:Byte;

Begin

    Write(‘Nhap xau St: ‘); Readln(St);

    For i:=1 to length(St) do

        If St[i] IN [‘A’..’Z’] Then St[i]:=CHR(ORD(St[i])+32);

    Write(‘Xau ket qua: ‘, St);

    Readln;

End.