Question

Viết chương trình nhập 1 xâu dưới họ tên bất kì. Đưa ra màn hình xâu họ tên đã được chuyển hóa ( xóa dấu cách thừa, chuyển chữ cái đầu bằng chữ in hoa)

Answer 1

Program HOC24;

var s: string;

n,i: integer;

a: array[1..32000] of string;

function chuyen(x: string): string;

begin

x[1]:=upcase(x[1]);

chuyen:=x;

end;

begin

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)<>0 do delete(s,pos(#32#32,s),1);

writeln('Xau sau khi xoa dau cach : ',s);

s:=s+' ';

while length(s)<>0 do

begin

st:=copy(s,1,pos(' ',s)-1);

n:=n+1;

a[n]:=st;

delete(s,1,pos(' ',s));

end;

for i:=1 to n do write(chuyen(a[i]),' ');

readln

end.