Viết chương trình cho nhập vào một chuỗi ký tự, sau đó xử lý chuỗi đó để tất cả những chữ cái đầu của một từ trở thành viết hoa. vi du: toi ten la minh => Toi Ten La Minh
Viết chương trình cho nhập vào một chuỗi ký tự, sau đó xử lý chuỗi đó để tất cả những chữ cái đầu của một từ trở thành viết hoa. vi du: toi ten la min
By Natalia
program viethoa;
uses crt;
var st:string;
i:byte;
begin
clrscr;
write(‘Nhap xau: ‘); readln(n);
st[1]:=upcase(st[1]);
for i:=1 to length(st) do
if (st[i-1]=’ ‘) and (st[i] in [‘a’..’z’]) then st[i]:=upcase(st[i]);
write(st);
readln
end.
uses crt;
var i:byte;
st:string;
BEGIN
clrscr;
write(‘Nhap chuoi:’); readln(st);
st[1]:=upcase(st[1]);
i:=2;
while i<length(St) do
if (st[i]=’ ‘) and (st[i+1] in [‘a’..’z’]) then
begin
st[i+1]:=upcase(st[i+1]);
inc(i,2);
end
else inc(i);
write(‘Xau sau khi xu li: ‘,st);
readln
END.
Chương trình của mình đã đc tối ưu và chạy rất nhanh.
Cho mình câu trl hay nhất nha.