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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận