Pascal cung cấp hàm upcase (c) trả về kết quả là chữ cái in hoa nếu C là chữ cái thường và giữ nguyên C trong trường hợp ngược lại.
Hãy lập trình
-Nhập từ bàn phím xâu S
-Viết chương trình dùng hàm UPCASE để thay tất cả các chữ thường nếu có trong S thành chữ hoa và đưa kết quả đã biến đổi ra màn hình
Program Biendoi;
Uses crt;
Var S: String;
i: longint;
Begin
Clrscr;
Write(‘Nhap S: ‘); Readln(S);
For i:=1 to length(S) do
S[i] := Upcase(S[i]);
Write(‘Sau khi bien doi: ‘,S);
Readln
End.
Program DOI_CHUOI_CHU_HOA;
Uses Crt;
Var i:integer;st:string;
Begin
Clrscr;
readln(st);
st[1]:=upcase(st[1]);
For i:=1 to length(St) do
st[i]:=upcase(st[i]);
Writeln(st);
Readln;
{samon247}
End.