Chính vì vậy, ta có thể sử dụng quy luật này để đổi một xâu ký tự viết HOA thành xâu ký tự viết thường bằng cách dùng một vòng For chạy từ đầu xâu đến cuối xâu và đổi từng ký tự thành mã[r]
(1)5) Lật ngược vấn đề
Xuất phát, cho học sinh thực toán sau: “Viết chương trình đổi xâu ký tự thành chữ HOA”.
Var x:String;
Procedure Doi(x: String); Var d, i:Integer;
Begin d := 0;
Write('Doi sang chu hoa: '); For I := to Length(x) Do Write(Upcase(x[i])); End;
Begin
Write('Nhap xau: '); Readln(x); Doi(x);
Readln End
Ngược lại, đặt câu hỏi: Nếu ta cần đổi xâu ký tự thành xâu chữ thường làm nào?
(2)Var x: String;
Procedure Doi(x: String); Var d, i:Integer;
Begin d := 0;
Write('Doi sang chu thuong: '); For i := to Length(x) Do Begin d := ord(x[i]);
If (d >= 65) And (d <= 90) Then d := d + 32; Write(chr(d));
End; End; Begin
Write('Nhap xau: '); Readln(x); Doi(x);