Bài 12: Kiểu xâu

nguyen thi khanh nguyen

Cho xâu họ tên HT .Viết chương trình đếm số từ trong xâu HT ,biết rằng xâu HT đã chuẩn hóa. Yêu cầu : - xâu HT lấy từ tệp Hoten.Inp - số từ được lưu trong tệp tu.out Giups em vớiiii ạ

Minh Lệ
15 tháng 5 2020 lúc 20:11

Program HOC24;

const fi='Hoten.inp';

fo='tu.out';

var ht: string;

f: text;

d,i: integer;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,ht);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

d:=0;

while ht[1]=#32 do delete(ht,1,1);

while ht[length(ht)]=#32 do delete(ht,length(ht),1);

while pos(#32#32,ht)<>0 do delete(ht,pos(#32#32,ht),1);

for i:=1 to length(ht) do if ht[i]=' ' then d:=d+1;

write(f,d+1);

close(f);

end;

begin

ip;

out;

end.

Bình luận (0)

Các câu hỏi tương tự
nguyen dao
Xem chi tiết
Ngô Chí Thành
Xem chi tiết
Ngô Chí Thành
Xem chi tiết
THAO PHAM THI THU
Xem chi tiết
Trà my
Xem chi tiết
Nguyễn Thị Diễm Hạnh
Xem chi tiết
LINH VU HA NGOC
Xem chi tiết
Bảo Lê
Xem chi tiết
Thọ Phạm
Xem chi tiết