Bài 17: Chương trình con và phân loại

Ngô Chí Thành

Viết hàm để tính sô lần của xâu S1 xuất hiện trong xâu S2 .

 

Nguyễn Lê Phước Thịnh
17 tháng 4 2021 lúc 19:46

function demsolan(s1,s2:string):integer;

var dem,vt,d2:integer;

begin

dem:=0;

d2:=length(s2);

vt:=pos(s1,s2);

while vt>0 do 

  begin

inc(dem);

delete(s2,vt,d2);

end;

demsolan:=dem;

end;

Bình luận (0)

Các câu hỏi tương tự
Ngô Chí Thành
Xem chi tiết
Trong nhóm zalo
Xem chi tiết
Vương Thế Tài
Xem chi tiết
Đinh Thị Hạnh
Xem chi tiết
Hải Ngọc
Xem chi tiết
Munz
Xem chi tiết
hà nội 123
Xem chi tiết
Ngô Chí Thành
Xem chi tiết
Thị Khuyến
Xem chi tiết