DaiDa
Admin
Tổng số bài gửi : 32
Điểm : 98
Ngày tham gia : 28/07/2009
Age : 31
Đến từ : Cõi Âm ~ BạN DiÊm VưƠnG
|
Tiêu đề: Thuật toàn chuẩn hóa xâu 04/08/09, 12:14 pm |
|
|
Program Chuan_Hoa_Xau; Uses Crt; Var X:string; t,d,i:Byte; Begin Clrscr; Write('Nhap xau cua ban:'); Readln(x); {Ðêm ký tu trang phan dau cua xau} d:=0; i:=1; While X[i]=' ' do If X[i]=' ' Then Begin d:=d+1; i:=i+1; end; {Xoa phan dau cua xau} Delete(X,1,d); {Dem ky tu trang phan cuoi cua xau} d:=0; i:=length(x); While X[i]=' ' do If X[i]=' ' Then Begin d:=d+1; i:=i-1; end; {Xoa phan cuoi cua xau} Delete(X,i+1,d); {Tim ky tu trang phan giua va xoa bot phan ky tu thua} for i:=length(x) downto 1 do If (X[i]=' ') And (X[i+1]=' ') Then Delete(x,i,1); {Viet in hoa cac ky tu dau cua xau} X[1]:=Upcase(X[1]); For i:=1 to Length(x) do If X[i]=' ' then X[i+1]:=Upcase(X[i+1]); Write('Xau chuan cua ban la:',x); Readln; end.
|
|