Bài tập tin 11

[hienzu]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Giúp mih bài này nhé.(Đại ngu tin)
Nhập 1 xâu S là tên tiếng việt của người Việt Nam không dấu. Sửa lỗi chính tả trong xâu S sao cho:
- Kí tự đầu tiên của họ phải viết hoa.
-Các kí tự đầu tiên của tên, họ đệm cug phải viết hoa
-Các kí tự còn lại viết chữ thường
-Giữa các từ không đc có 2 dấu cách
-Kí tự đầu tiên và kí tự cuối cùng của xâu không đc có dấu cách
Sau đó hiển thị lại xâu đã sửa ra màn hình

 

[duynhan1]

Giúp mih bài này nhé.(Đại ngu tin)
Nhập 1 xâu S là tên tiếng việt của người Việt Nam không dấu. Sửa lỗi chính tả trong xâu S sao cho:
- Kí tự đầu tiên của họ phải viết hoa.
-Các kí tự đầu tiên của tên, họ đệm cug phải viết hoa
-Các kí tự còn lại viết chữ thường
-Giữa các từ không đc có 2 dấu cách
-Kí tự đầu tiên và kí tự cuối cùng của xâu không đc có dấu cách
Sau đó hiển thị lại xâu đã sửa ra màn hình

Var s:string;
      i:integer;
Begin
Write('Nhap ho va ten:'); Readln(s);

{Xoa cac ky tu trang o dau}
While s[1]=' ' do delete(s,1,1); {giua 2 dau ' 'co 1 khoang trang, co the dung #32 de chi ky tu trang}

{Xoa cac ky tu trang o cuoi}
While s[length(s)] =' ' do delete(s,length(s),1);

{Viet hoa chu dau tien}
s[1]:=Upcase(s[1]);

{Xoa cac ky tu trang lien tiep}

i:=1;
While i<length(s) do
      Begin
           While (s[i]=' ') and (s[i+1]=' ') do delete(s,i,1);
           inc(i);
      End;

{Viet ho chu  dau}
For i:=2 to length(s) do
      If s[i-1]=' ' then s[i]:=Upcase(s[i]); {Truoc a khoang trang thi viet hoa len}

Write('Ten da duoc sua: ',s);
Readln;
End.