nhập môt xâu bất kì, biến các chữ đó thành chữ in hoa

0 bình luận về “nhập môt xâu bất kì, biến các chữ đó thành chữ in hoa”

1. Program Hotboy;

   Uses Crt;

   Var xau1, xau:String;

        i:shortint;

   Begin

   clrscr;

   Write(‘Nhap xau can bien doi ‘); Readln(xau);

   For i:=1 to length(xau) do xau1:=xau1+ Upcase(xau[i]);

   Write(‘Xau sau khi da bien doi la’,xau1);

   End.

   Hàm kí tự $Upcase(..)$ trả về kí tự in hoa 

   Bình luận