Viết chương trình nhập từ bàn phím một xâu s. Đưa kết quả ra màn hình với xâu s viết hoa đầu mỗi từ.(biết xâu đã được chuẩn hóa)

0 bình luận về “Viết chương trình nhập từ bàn phím một xâu s. Đưa kết quả ra màn hình với xâu s viết hoa đầu mỗi từ.(biết xâu đã được chuẩn hóa)”

1. chuyên tin nha

   uses crt;
   var st: string;
   kt: string[1];
   i,d,cd:integer;
   begin
           clrscr;
           write(‘nhap 1 chuoi:’); readln(st); st[1]:=upcase(st[1]);
           for i:=1 to length(st) do
           if st[i]=’ ‘ then st[i+1]:=upcase(st[i+1]);
           write(‘nhap 1 chuoi:’,st);
           readln;
           end.

   Bình luận