Viết chương trình có sử dụng chương trình con, nhập 1 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 1 xâu bất kì, đổi xâu này thành xâu viết hoa”

1. var s: string;

   Procedure xuLy;

       Var i: byte;

       Begin

           For i:=1 to length(s) do

                 s[i]:=upcase(s[i]);

       End;

   Begin

        Write(‘nhap xau: ‘); readln(s);

        XuLy;

        Write(s);

        Readln

   End.

   Bình luận

2. Hàm function:

   program xau_hoa;

   uses crt;

   var s:string;

   {—Chuong-trinh-con—}

   function hoa(st:string):string;

   var i:byte;

   begin

          hoa:=”;

          for i:=1 to length(st) do

                 hoa:=hoa+upcase(st[i]);

   end;

   {—Chuong-trinh-chinh—}

   begin

          clrscr;

          write(‘Nhap xau: ‘);  readln(s);

          write(‘Xau hoa la: ‘,hoa(s));

          readln;

   end.

   Thủ tục procedure:

   program xau_hoa;

   uses crt;

   var s:string;

   {—Chuong-trinh-con—}

   procedure hoa(st:string);

   var i:byte;

   begin

          for i:=1 to length(st) do

                 write(upcase(st[i]));

   end;

   {—Chuong-trinh-chinh—}

   begin

          clrscr;

          write(‘Nhap xau: ‘);  readln(s);

          write(‘Xau hoa la: ‘);

          hoa(s);

          readln;

   end.

   Bình luận