Извините я не понял в этой программе

@mnmn · Регистрация: 23.08.2010

Author24 — интернет-сервис помощи студентам

Подсчитать, сколько раз строка b входит в строку a, если длина первой меньше.
Почему здесь используют процедуру copy. Цикл берут до разности элементов плюс 1?

Pascal

program z1;
uses crt;
var a,b:string; i,k:integer;
begin
clrscr;
readln(a);
readln(b);
if length(a)<length(b)//? then exit;
k:=0;
for i:=1 to length(a)-length(b)+1 do //?
if copy(a,i,length(b))=b then k:=k+1;
writeln(k);
readkey;
end.

@Somebody · 03.04.2011, 21:57

Почему здесь используют процедуру copy

Так проще всего. (Но вместе с тем и очень медленно по сравнению с другими возможными вариантами.)

Цикл берут до разности элементов плюс 1?

Ну, да. Если подумать:

Код

i = 1
строкаА
****
стро <> стрБ
i = 2
строкаА
 ****
 трок <> стрБ
i = 3
строкаА
  ****
  рока <> стрБ
i = 4
строкаА
   ****
   окаА <> стрБ

@Somebody 2835 / 1644 / 254 Регистрация: 03.12.2007 Сообщений: 4,222
	03.04.2011, 21:57	2
	Почему здесь используют процедуру copy Так проще всего. (Но вместе с тем и очень медленно по сравнению с другими возможными вариантами.) Цикл берут до разности элементов плюс 1? Ну, да. Если подумать: Код i = 1 строкаА ** стро <> стрБ i = 2 строкаА трок <> стрБ i = 3 строкаА рока <> стрБ i = 4 строкаА ** окаА <> стрБ 1