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.
