Viết chương trình cho nhập vào một chuỗi ký tự, sau đó xử lý chuỗi đó để tất cả những chữ cái đầu của một từ trở thành viết hoa. vi du: toi ten la min

0 bình luận về “Viết chương trình cho nhập vào một chuỗi ký tự, sau đó xử lý chuỗi đó để tất cả những chữ cái đầu của một từ trở thành viết hoa. vi du: toi ten la min”

1. program viethoa;

   uses crt;

   var st:string;

         i:byte;

   begin

   clrscr;

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

   st[1]:=upcase(st[1]);

   for i:=1 to length(st) do

    if (st[i-1]=’ ‘) and (st[i] in [‘a’..’z’]) then st[i]:=upcase(st[i]);

   write(st);

   readln

   end.

   Bình luận

2. uses crt;
   var i:byte;
       st:string;
   BEGIN
           clrscr;
           write(‘Nhap chuoi:’); readln(st);
           st[1]:=upcase(st[1]);
           i:=2;
           while i<length(St) do
                   if (st[i]=’ ‘) and (st[i+1] in [‘a’..’z’]) then
                   begin
                           st[i+1]:=upcase(st[i+1]);
                           inc(i,2);
                   end
                   else inc(i);
           write(‘Xau sau khi xu li: ‘,st);
           readln
   END.

   Chương trình của mình đã đc tối ưu và chạy rất nhanh.

   Cho mình câu trl hay nhất nha.

   Bình luận