[ALexandr555]

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

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

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

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

выходной

Код:

1
3
0

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

Код:

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]

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