Question

Viết 1 chương trình pascal thực hiện - Nhập vài 1 xâu gồm có dấu cách và kí tự không hoa - BỎ các dấu cách thừa ở đầu, cuối, giữa - Viết lại xâu theo cách viết tên riêng - Đếm xem xâu có bao nhiêu từ... Giúp mình với, mình đang cần gấp!!!

Answer 1

uses crt;

var st:string;   

d,i,dem:integer;

begin

clrscr;

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

d:=length(st);

while st[1]=#32 do 

begin     

delete(st,1,1);     

d:=length(st); 

end;

while st[d]=#32 do 

begin     

delete(st,d,1);     

d:=length(st); 

end;

for i:=1 to d do 

begin     

while (st[i]=#32) and (st[i+1]=#32) do       

begin         

delete(st,i,1);         

d:=length(st);       

end; 

end;

st[1]:=upcase(st[1]);

for i:=1 to d do 

if st[i]=#32 then st[i+1]:=upcase(st[i+1]);

writeln('Ten cua ban sau khi viet dung la: ',st);

dem:=1;

for i:=1 to d do 

if st[i]=#32 then inc(dem);

writeln('So tu cua xau la: ',dem);

readln;

end.