Chủ đề này có 5 trả lời

[kim long]

vt chương trình chuẩn hóa xâu theo quy tắc 

1, ko có kí tự trống ở đầu câu

2, ko có kí tự trống ở cuối câu

3, giữa 2 từ chỉ có 1 kí tự trống

[Fjzar]

program xau;

uses crt;

var s:string;

begin

clrscr;

write('Nhap xau :');readln(s);

while s[1]=#32 do delete(s,1,1);

while s[length(s)]=#32 do delete(s,length(s),1);

while pos(#32#32,s)=#32 do delete(s,pos(#32#32,s),1);

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

readln

end.

[nghethuat102]

program xau;

uses crt;

var s:string;

begin

clrscr;

write('Nhap xau :');readln(s);

while s[1]=#32 do delete(s,1,1);

while s[length(s)]=#32 do delete(s,length(s),1);

while pos(#32#32,s)=#32 do delete(s,pos(#32#32,s),1);

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

readln

end.

Gửi mail or fb của bạn đây, mình sẽ đưa bài tập cái gọi là hay hay cho.

[Zjkar]

Chuẩn hóa là làm tất cả các việc để đưa ra xau hoàn thiện nhất.

Vi dụ: Xau la:'     nGuyeN       tUNg     lAm       ' thì sau khi chuẩn hóa sẽ là:'Nguyen Tung Lam'.

[transontung]

Chuẩn hóa là làm tất cả các việc để đưa ra xau hoàn thiện nhất.
Vi dụ: Xau la:'     nGuyeN       tUNg     lAm       ' thì sau khi chuẩn hóa sẽ là:'Nguyen Tung Lam'.

Bài này là cái bài cơ bản rồi
uses crt;
var s:string;
    i:integer;
begin
clrscr;
write('nhap xau s:');readln(s);
while s[1]= ' ' do delete(s,1,1);
while s[length(s)]= ' ' do delete(s,length(s),1);
for i:=length(s) downto 1 do
 if (s[i]=' ')and(s[i-1]=' ') then delete(s,i,1);
for i:=1 to length(s) do
 if s[i]in['A'..'Z'] then s[i]:=chr(ord(s[i])+32);
for i:=1 to length(s) do
 s[1]:=upcase(s[1]);
for i:=1 to length(s) do
 if (s[i]=' ') then s[i+1]:=upcase(s[i+1]);
write('chuoi sau khi nhap la: ',s);
readln;
end.

[Zjkar]

Bạn làm đúng ý mình rồi đó.