procedure chuanhoa(var s : string); var i : integer; begin while s[1]=’ ‘ do delete(s,1,1); while s[length(s)]=’ ‘ do delete(s,length(s),1);

Bởi

procedure chuanhoa(var s : string);
var i : integer;
begin
while s[1]=’ ‘ do delete(s,1,1);
while s[length(s)]=’ ‘ do delete(s,length(s),1);
for i := length(s) downto 2 do
if (s[i]=’ ‘) and (s[i-1]=’ ‘) then delete(s,i,1);
end
Mục đích của chương trình trên là gì?
a. Xóa các dấu cách.
b. Xóa các dấu cách đầu câu.
c. Xóa các dấu cách thừa.
d. Xóa các dấu cách cuối câu.

0 bình luận về “procedure chuanhoa(var s : string); var i : integer; begin while s[1]=’ ‘ do delete(s,1,1); while s[length(s)]=’ ‘ do delete(s,length(s),1);”

  1. procedure chuanhoa(var s : string); var i : integer; begin while s[1]=’ ‘ do delete(s,1,1); while s[length(s)]=’ ‘ do delete(s,length(s),1); for i := length(s) downto 2 do if (s[i]=’ ‘) and (s[i-1]=’ ‘) then delete(s,i,1); end

    Đáp án là C.Xóa các dấu cách thừa !!!

    Bình luận

Viết một bình luận