Viết thủ tục nhập vào một xâu viết hàm chuyển xâu chữ thường thành chữ in hoa sử dụng thủ tục và hàm chuyển xâu chữ thường thành chữ in hoa.

0 bình luận về “Viết thủ tục nhập vào một xâu viết hàm chuyển xâu chữ thường thành chữ in hoa sử dụng thủ tục và hàm chuyển xâu chữ thường thành chữ in hoa.”

1. thủ tục nhập vào một xâu:

   procedure nhap;

   var s: string;

   begin

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

   end;

   hàm chuyển xâu chữ thường thành chữ in hoa

   function cd(s: string): string;

   i: byte;

   begin

   for i:=1 to length(s) do cd:=cd+upcase(s[i]);

   end;

   thủ tục và hàm chuyển xâu chữ thường thành chữ in hoa

   procedure CD;

   var s1,s2: string;

   i: byte;

   begin

   for i:=1 to length(s1) do

   s2:=s2+upcase(s1[i]);

   end;

   Bình luận

2. var s: string;

   Procedure nhap;

     Begin

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

     End;

   Function hoa(x: string): string;

     Var i: byte;

     Begin

        hoa:=”;

        For i:=1 to length(x) do

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

     End;

   Begin

       Nhap;

       Write(hoa(s));

       Readln

   End.

   Bình luận