Viết chương trình nhập vào xâu kí tự đưa ra xâu kí tự với chữ hoa đầu mỗi chữ( Tin 11-Pascal) (Chẳng hạn như là : Học Sinh Trường Trung Học Phổ Thông)

0 bình luận về “Viết chương trình nhập vào xâu kí tự đưa ra xâu kí tự với chữ hoa đầu mỗi chữ( Tin 11-Pascal) (Chẳng hạn như là : Học Sinh Trường Trung Học Phổ Thông)”

1. uses crt;
   var i:integer;
       s:string;
   BEGIN
           clrscr;
           write(‘Nhap xau:’); readln(s);
           s[1]:=upcase(s[1]);
           for i:=2 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. program viethoa;

   uses crt;

   var st:string;

         i:byte;

   begin

   clrscr;

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

   if not(st[1] in [‘A’..’Z’]) then st[1]:=upcase(st[1]);

   for i:=2 to length(st) do

    if not(st[i] in [‘A’..’Z]) and (st[i-1]=#32) and (st[i]<>#32) then st[i]:=upcase(st[i]);

   write(‘Xau moi la: ‘,st);

   readln

   end.

   Bình luận