[ALexandr555]

во входном файле

число строк которые проверять
сами строки
число строк для проверки
сами строки

а проверяем мы сколько раз нужные строки в начале и в конце бывают
пример
входной файл

4
р4
р4авпр4
параправрапа
р46547456р4
3
па
р4
яа

выходной

Код:

1 2 3

1 3 0

то есть па 1 раз является началом и концом в строках
р4 3 раза является
яа вообще не является началом и концом какой либо строки

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

program Project2ex;   {$APPTYPE CONSOLE}   uses   SysUtils;   var f,f2:TextFile; a,b,k,i,n,j: integer; m,m2: array of string[50]; mi: array of integer;   begin AssignFile(f,'input.txt');     Reset(f); Readln(f,a); SetLength(m,a+1); for i:=1 to a do readln(f,m[i]); Readln(f,b); SetLength(m2,b+1); SetLength(mi,b+1); for i:=1 to b do readln(f,m2[i]); CloseFile(f); for i:=1 to b do   for k:=1 to a do     begin      n:=length(m2[i]);      if pos(m2[i],m[k])=1 then       begin        j:=length(m[k]);        if  (m2[i]=copy(m[k],j-n+1,j)) then inc(mi[i]);         end;     end; AssignFile(f2,'output.txt'); ReWrite(f2); for i:=1 to b do Writeln(f2,mi[i]); CloseFile(f2);   { TODO -oUser -cConsole Main : Insert code here } end.

[Kingcss]

ЕЕ) седня на областной олимпиаде была такая задача)) сделал также через два цикла, дали всего 30 баллов из 100, эти г@@@@ны проверяют с числами:
"число строк которые проверять" и "число строк для проверки" до 200 а там уж выходит 200*200=40000 циклов)) а время выполнения не больше 2 сек, мы после олимпиады седня разбирали: информатик в институте сказал что в решении, которое им из москвы пришло, сначало делается сортировка по алфавиту, потом чето или добавляется или отнимается, и потом бинарным поиском, я не понял ничего если честно, завтра или послезавтра выложут в инет решение московское, могу выложить сюда.
П.С. решал сам) Первое место по области среди 10 классов, и 3 если включая 11)

[Outlaw]

а проверяем мы сколько раз нужные строки в начале и в конце бывают

5 раз перепрочитал и не въехал, я один такой?

[Kingcss]

смотри пример подстрока "abra" в строке "abracadabra", у нас такой пример был, первые 4 символа и последние 4, увидел?

[ALexandr555]

Kingcss у меня, так же сам решил, вот эксперементировал с pos для ускорения

Time limit exceeded on test 7 30

а где результаты бы глянуть?)
и можешь в аську там отписать лучше и сайт узнать московский) 7559384

[Kingcss]

я тоже с pos экспериментировал не помогло,я сам не московский, из города Иваново, сказали задания и решения правильные с москвы будут с завтрашнего дня на сайте ИГЭУ: http://www.ispu.ru/ (это я тут писал) Лично нам уже результаты сказали, я на первом месте среди 10 классников) у тебя была задача с кегельбанами и типа организовать ужин в кафе, там с блюдами, очень интересует алгоритм решения этих задач.
В аську будет время, стукну!

[ALexandr555]

ужин в кафе есть там вроде 75 балов её тоже надо ускорить, жаль мы не с одной области)
кегли я не решил, ну собственно там надо вроде как двигаться по вектору и сравнивать расстояние, шара с каждой кеглей, если меньше 1500 то сбили

[Kingcss]

Кегли нужно делать с помощью аналитической геометрии, стукну в аську объясню. Там шар нужно принимать как линию с серединой в начале движения и в каждую сторону по радусу шара, и эту полосу как бы двигать и смотреть сколько кеглей сбило, но тогда не все тесты по скорости проходятся, там можно ускорить сравнивая только крайнюю левую и правую если они сбились то и середина полюбому, тогда вроде проходит, а самый прикол в том, я написал прогу:
Begin
Assign(output,"название");
Rewrite(output);
Writeln("0");
Close(output)
End.
И она прошла несколько тестов, дали 20 баллов)))

[ALexandr555]

мне кажется они это заметят)

[Kingcss]

Ну там система только ответы смотрит, баллы уже защитали, победители есть) они то сами решения проглядывают, но вроде ничего не сказали))

[ALexandr555]

ну на заочном у нас сначало засчитали потом отсеили похожий код