Giúp mình với ạ Viết chương trình IDE Pascal nhập vào một chuỗi xâu (string), in hoa các kí tự bên tay phải khoảng trắng Ví dụ là: to yeu cau => to Y

0 bình luận về “Giúp mình với ạ Viết chương trình IDE Pascal nhập vào một chuỗi xâu (string), in hoa các kí tự bên tay phải khoảng trắng Ví dụ là: to yeu cau => to Y”

1. program in_hoa;

   uses crt;

   var s:string;

         i:byte;

   begin

          clrscr;

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

          for i:=1 to length(s)-1 do

                 if s[i]=’ ‘ then s[i+1]:=upcase(s[i+1]);

          write(s);

          readln;

   end.

   Bình luận

2. uses crt;
   var i:longint; s:string;
   begin
   clrscr;
      write(‘Nhap 1 xau : ‘);readln(s);
      for i:=1 to length(s) do 
         if s[i-1] =’ ‘ then s[i]:=upcase(s[i]);
      writeln(‘Ket qua: ‘,s);
   readln
   end.

   Bình luận