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
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm
