Программа на Delphi, считающая сколько раз в тексте встречается каждый символ, биграмма, триграмма

[denis_dneprovski]

Доброго времени суток. Нужна помощь в создании программы на Delphi, которая должна считать сколько раз в тексте встречается каждый символ, биграмма, триграмма. (текст на русском языке)

[Grag]

Какая кодировка в тексте? Юникод, аски или др.?

[denis_dneprovski]

таблица аски

[Grag]

Тогда можно так... Создавай массив, размерностью 256 (тип данных выберешь сам, хоть longint), просматривая текст, увеличивай значение элемента массива по индексу ord(символ)... В результате просмотра текста значения элементов массива будут содержать количество этих символов в тексте...

[Serge_Bliznykov]

Grag биграммы и триграммы так не посчитаешь..

я бы рекомендовал (раз уж программа на Delphi) использовать TStringList
в нём КРАЙНЕ полезными окажется следующий имеющийся функционал:
- поиск - было ли такое ранее:
TS.IndexOf('ТутБиграмма или Триграмма')
- возможность добавить объект (или значение) к элементу списка через
TS.AddObject(..)
т.е. работать так

  TS := TstringList.Create;
  в цикле, берём в sLetters очередную букву, (или  биграмму, или триграмму)

   k := TS.IndexOf(sLetters);
   if k<0 then  {впервые встретили такое сочетание}
   begin
      TS.AddObject(sLetters, Tobject(0));
   end
   else {уже было такое сочетание, увеличим счётчик на единичку}
      TS.Objects[k] := TObject( Integer(TS.Objects[k]) + 1 );
конец цикла

ВСЁ. Можно выводить результаты из TS!

[denis_dneprovski]

с одним символом понятно, но биграмм придется перебирать уже 58^2, а триграмм вообще 58^3. как можно автоматизировать этот процесс?

[Serge_Bliznykov]

я выше привёл рабочий вариант. Чем не устраивает? Тем, что результатов много получается?

[denis_dneprovski]

а можно архив с готовой программой?)))

[Serge_Bliznykov]

нельзя
Что у Вас не получается?!

p.s. Кстати, а Вы пробовали, для начала, просто ручками выделить эти самые биграммы/триграммы? Вот, например, перечислите, какие в ниже приведённом тексте биграммы и триграммы:
Там, в лесу раздавался стук, это кто-то что-то рубил.

[denis_dneprovski]

Биграммы: "Та" "м," " в" " л" "ес" "у " "ра" "зд" "ав" "ал" "ся" " с" "ту" "к," " э" "то" " к" "то" "-т" "о " "чт" "о-" "то" " р" "уб" "ил" ". "
триграммы: "Там" ", в" " ле" "су" " ра" "зда" "вал" "ся " "сту" "к, " "это" " кт" "о-т" "о ч" "то-" "то " "руб" "ил."
Пятерка?))