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

NT

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

 

NT
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ự
NT
Xem chi tiết
TZ
Xem chi tiết
VT
Xem chi tiết
DH
Xem chi tiết
HN
Xem chi tiết
H24
Xem chi tiết
H1
Xem chi tiết
NT
Xem chi tiết
TK
Xem chi tiết