Giúp mình giải bài pascal với

L

lamhaisonbd

[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.

Chuẩn hoá xâu S theo quy tắc
a) Chữ cái đầu câu viết hoa
b) Xóa các ký tự trống (' ') thừa ở đầu câu, cuối câu và giữa câu
c) Chữ cái sau dấu chấm viết hoa. sau dấu phẩy thì cách 1 khoảng trống
VD 'hôm nay,trời mưa' => 'hôm nay, trời mưa'
giúp mình với nhé.
 
M

mikelhpdatke

Mã:
Uses Crt;
Var	St:String;
Procedure  XoaTrangThua(Var St:String);
Begin
	 
	While St[1]=#32 Do Delete(St,1,1);
	 
	While St[Length(St)]=#32 Do Delete(St,Length(St),1);

	While POS(#32#32,St)<>0 Do Delete(St,POS(#32#32,St),1);
End;

Procedure Xuly(var St:String);

Var p,c:Char; i:integer;
Begin
 p:=',';
 c:='.';
 St[1]:=Upcase(St[1]);
 For i:=1 to length(St) do
  Begin
   If St[i]=p then
    Insert( #32,St,pos(p,St)+1 );
   If St[i]=c then
   Begin
    St[pos(c,St)+1]:=Upcase(St[pos(c,St)+1]) ;
    Insert( #32,St,pos(c,St)+1 );
   End;
  End;
End;
Begin

	Write('Nhap xau St: '); Readln(St);
	XoaTrangThua(St);
        Xuly(St);
	Writeln(St);
	Readln;

End.

Bạn nên post bài trong Box học lập trình:)
@cuong276: sub học lập trình, không phải là box học lập trình
thân
 
Last edited by a moderator:
Top Bottom