Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thị Ngọc Minh
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!!!
Nguyễn Lê Phước Thịnh
29 tháng 1 2021 lúc 22:18

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.


Các câu hỏi tương tự
luc lun
Xem chi tiết
Ngô Chí Thành
Xem chi tiết
Ngô Chí Thành
Xem chi tiết
Yuki
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Thangg PH
Xem chi tiết
Triệu Ngọc Phượng
Xem chi tiết
Cao minh
Xem chi tiết
Trà my
Xem chi tiết