YOMEDIA
NONE

Nhập vào một xâu s khác rỗng và thực hiện chuẩn hoá xâu, tức là:

a) Xoá các dấu cách thừa.

b) Chuyển những kí tự đầu từ thành chữ hoa, những kí tự khác thành chữ thường.

 

Theo dõi Vi phạm
ADSENSE

Trả lời (1)

  • Chương trình như sau:

    var s : string;

    procedure chuanhoa(var s : string); {s là tham biến để có thể thay đổi trong chương trình con}

    var i : integer;

    begin

         while s[1]=' ' do delete(s,1,1); {xoá các kí tự cách thừa ở đầu xâu}

         while s[length(s)]=' ' do delete(s,length(s),1); {xoá các kí tự cách thừa ở cuối xâu}

    {xoá các kí tự cách thừa ở giữa các từ: nếu s[i-1] là cách thì s[i] là dấu cách là thừa. Phải dùng vòng lặp for downto vì nếu trong quá trình xoá ta làm giảm chiều dài của xâu, nếu for to sẽ không dừng được.}

         for i := length(s) downto 2 do

             if (s[i]=' ') and (s[i-1]=' ') then delete(s,i,1);

    {Chuyển kí tự đầu xâu thành chữ hoa}

         s[1] := Upcase(s[1]);

         for i := 2 to length(s) do

             if s[i-1]=' ' then s[i] := Upcase(s[i]) {Chuyển s[i] là kí tự đầu từ thành chữ hoa.}

             else

                 if s[i] in ['A'..'Z'] then   {s[i] là kí tự chữ hoa không ở đầu một từ}

                    s[i] := chr(ord(s[i]) + 32); {thì phải chuyển thành chữ thường}

    end;

    BEGIN

       write('Nhap vao 1 xau s:');

       readln(s);

       chuanhoa(s);

       writeln('Xau s sau khi chuan hoa:',s);

       readln;

    END.

      bởi Dương Quá 30/11/2021
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

ZUNIA9
 

 

YOMEDIA
AANETWORK
OFF