опять строки Опции

[Анчоус]

Привет, умный народ.
У меня проблемы с задачками в школе по Паскалю. Вот задача:

"Дана строка STR длиной неболее 100 символов,
и дана строка STR1 неболее 7 символов.
Определить сколько раз в строке STR встречается строка STR1"

я попробовала через функцию copy и процедуру insert, но у меня что-то не получается, короче, я делаю что-то не так, и до меня что-то не допирает.
Вообщем, кто может, помогите тупой девочке(т.е. мне).

[klem4]

function GetCount(S, S1: String): Integer;
var
  count, p: Integer;
begin
  count := 0;
  repeat
    p := Pos(S1, S);
    if p <> 0 then begin
     Delete(s, p, 7);
     inc(count);
    end;
  until p = 0;
  GetCount := count;
end;

begin
... 
writeln(GetCount(STR, STR1));
...
end.

[Malice]

     Delete(s, p, _7_);

Ну это на вряд ли..

Сообщение отредактировано: Malice - 5.12.2006 14:54

[volvo]

Во-первых, откуда 7 ? Допустим, что там должно быть

Delete(s, p, length(s1));

тогда запусти это:

writeln(GetCount('test this is a ttestest ha-ha-ha...', 'test'));

[klem4]

ой

Delete(s, p, Length(STR1));

ну или в начале процедуры дополнительной переменной присвоить Length(STR1) чтобы все время не пересчитывать.

[Malice]

ой

Volvo, кстати, хороший пример привел, проверь с ним
ps Лучше уж Delete(s, 1, p+length(s1));

[klem4]

Да пример хороший )))

function GetCount(s: String; const s1: String): Integer;
var
  P: Integer;
begin
  P := Pos(s1, s);
  if P = 0 then
   GetCount := 0
  else
   GetCount := GetCount(Copy(s, P + Length(s1) - 1, 255), s1) + 1;
end;

[Анчоус]

Спасибо, парни!
Большое спасибо