Viet chuong trinh doi mot xau ky tu thanh chu HOA
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (102.55 KB, 2 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<b>5) Lật ngược vấn đề</b>
Xuất phát, chúng ta cho học sinh thực hiện bài toán sau: “Viết chương
<i>trình đổi một xâu ký tự thành chữ HOA”.</i>
Var x:String;
Procedure Doi(x: String);
Var d, i:Integer;
Begin
d := 0;
Write('Doi sang chu hoa: ');
For I := 1 to Length(x) Do
Write(Upcase(x[i]));
End;
Begin
Write('Nhap xau: '); Readln(x);
Doi(x);
Readln
End.
Ngược lại, chúng ta đặt câu hỏi: Nếu ta cần đổi một xâu ký tự thành
<i>xâu chữ thường thì làm thế nào? </i>
</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>
Var x: String;
Procedure Doi(x: String);
Var d, i:Integer;
Begin
d := 0;
Write('Doi sang chu thuong: ');
For i := 1 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);
</div>
<!--links-->
