Ввод и обработка текста. Найти одинаковые предложения [Turbo Pascal, QBasic]

[Poma][a]

Тоесть задача сводится к получению предложений, удалению из них лишних пробелов, занесения в массив, а затем :

for i := 1 to n do begin
   cnt := 0;
   for j := 1 to n do
        if a[i] = a[j] then
           Inc (cnt);
   WriteLn (a[i], ' : ', cnt-1)
end;

?
А нельзя ли тут что-то придумать чтобы в конце избежать сложности O(N^2)

[Mad_Cat]

вот так попробуй)

for i := 1 to n-1 do begin
   cnt := 0;
   for j := i+1 to n do

так как при твоем коде предложения с одинаковыми i,j -по сути одно и тоже предложение будут считаться одинаковыми что не есть гуд
upd и еще
3 одинаковых предложения при помощи твоего кода будут считаться 2 раза (ответ выдаст 5 хотя по идее должно выдать 1)
поэтому нужен флажок что это предложение уже посчитано, например массив с предложениями должен быть 2-мерным и во 2 строчке проставляться считали мы его уже или нет!!!!
что то вроде этого должно получиться

var a:array[1..255,1..2] of string[255];
i,j:integer;
n:integer;
cnt:integer;
begin
N:=8;
a[1,1]:='Коля';a[1,2]:='0';
a[2,1]:='Толя';a[2,2]:='0';
a[3,1]:='Воля';a[3,2]:='0';
a[4,1]:='Коля';a[4,2]:='0';
a[5,1]:='Вася';a[5,2]:='0';
a[6,1]:='Коля';a[6,2]:='0';
a[7,1]:='Вася';a[7,2]:='0';
a[8,1]:='Коля';a[8,2]:='0';
cnt:=0;
for i:=1 to n-1 do
begin
for j:=i+1 to n do
if (a[i,1]=a[j,1]) and (a[j,2]='0') and (a[i,2]='0') then
begin
a[i,2]:='1';
a[j,2]:='1';
inc(cnt);
end
else 
if (a[i,1]=a[j,1]) then a[j,2]:='1';
end;
writeln(cnt);
end.

как видно всего 2 одинаковых это 'Коля' и 'Вася', хотя может я и не прав и ТС нужно чтобы выдало 6)

[s-andriano]

Сообщение от 'Poma

А нельзя ли тут что-то придумать чтобы в конце избежать сложности O(N^2)

Можно, конечно.
1. Отсортировать массив строк - O(N*log(N)).
2. Попарно сравнивать только соседние - O(N).

[Trampoline]

Mad_Cat, а обязательно указывать количество возможных строк в коде программы? Что если попробовать объявить ввод строк и там уже смотреть?

[Trampoline]

Serge_Bliznykov, я постараюсь его написать, но, боюсь, что у меня ничего не получится.

[Mad_Cat]

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

мой код просто пример! как хотите так и указывайте!