viết chương trình có sử dụng chương trình con nhập một xâu bất kì đổi xâu này thành xâu viết hoa
2 câu trả lời
program in_hoa;
uses crt;
var s:string;
{---Chuong-trinh-con---}
function inhoa(s:string):string;
var i:byte;
begin
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap xau: '); readln(s);
write('Xau in hoa la: ',inhoa(s));
readln;
end.
var s: string;
Procedure inHoa(a: string);
Var i: byte;
Begin
For i:=1 to length(a) do
a[i]:=upcase(a[i]);
End;
Begin
Write('nhap xau: '); readln(s);
inHoa(s);
Write(s);
Readln
End.
