Nhập vào một xâu có chữ in thường, số, kí tự đặc biệt, không chứa dấu cách thừa, chuyển xâu đó thành in hoa ký tự đầu tiên của mỗi từ. VD: 'hoc tap suot doi!' chuyển thành 'Hoc Tap Suot Doi!' Cách làm: + Viết in hoa ký tự đầu tiên của xâu. + Đi từ đầu đến cuối xâu: Nếu S[i]= dấu cách thì viết in hoa ký tự s[i+1]
2 câu trả lời
Mình gửi code ạ:
Var S:String;
i:Longint;
Begin
Read(S);
S[1]:=UPCASE(S[1]);
For i:=1 to Length(S)-1 do If (S[i] = ' ') and (S[i+1] in ['a'..'z']) then S[i+1]:=UPCASE(S[i+1]);
Write(S);
Readln;
End.
Program Chuyen_xau;
Uses crt;
Var i: integer;
S: string;
Begin
Clrscr;
Write(‘Nhap vao xau S: ‘); Readln(S);
S[1]:=upcase(S[1]);
For i:=1 to length(S) do
If S[i]=#32 then
S[i+1]:=upcase(S[i+1]);
Writeln(S);
End.
