Viết chương trình nhập vào 1 xâu. Viết hoa kí tự đầu và kí tự cuối của xâu. Vd: “chào bạn”->”Chào bạN”

0 bình luận về “Viết chương trình nhập vào 1 xâu. Viết hoa kí tự đầu và kí tự cuối của xâu. Vd: “chào bạn”->”Chào bạN””

1. program in_hoa;

   uses crt;

   var s:string;

   begin

          clrscr;

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

          s[1]:=upcase(s[1]);   {kí tự s[1] bằng in hoa kí tự s[1]}

          s[length(s)]:=upcase(s[length(s)]);   {kí tự cuối bằng in hoa kí tự cuối}

          write(s);

          readln;

   end.

          

   Bình luận

2. uses crt;
   var s:string;
   begin
   clrscr;
      write(‘Nhap 1 xau: ‘);readln(s);
      s[1]:=upcase(s[1]);
      s[length(s)]:=upcase(s[length(s)]);
      writeln(s);
   readln
   end.

   Bình luận