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

[Serge_Bliznykov]

Пятерка?))

не-а.. Четвёрка. За ошибку! Вот за это: "триграммы: ... "су" .... "
но общий смысл, того, как Вы понимаете разбиение текста на двусимвольные и трёхсимвольные сочетания я понял.
Исключительно в честь хорошего настроения, вот готовая программа:

procedure TForm1.Button1Click(Sender: TObject);
var s, sLetters : string;
   i, j, k, CharCount : integer;
   TS : TstringList;
begin
  try
    CharCount := StrToInt(edCharCount.text);
  except
    Application.MessageBox('Неверно задано число символов для анализа!',
          'Ошибка', MB_ICONERROR or MB_OK);
    Exit;
  end;
  if (CharCount<1) then begin
    Application.MessageBox('Число символов должно быть больше нуля!',
          'Ошибка', MB_ICONERROR or MB_OK);
    Exit;
  end;

  s := '';
  for i:=0 to mSource.Lines.Count-1 do
     s := s+ mSource.Lines[i];
  i := 1;

  TS := TstringList.Create;

  { "добьём" в конец текста пробелов,
      чтобы длина текста была кратной CharCount}
  while (Length(s) mod CharCount)<>0 do
     s := s + ' ';

  while i<Length(s) do begin
    {  в цикле, берём в sLetters очередной набор символов заданной длины}
   sLetters := Copy(s, i, CharCount);
   i := i + CharCount;

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

  mResult.Lines.Clear;
  for i:=0 to TS.Count-1 do begin
    mResult.Lines.Append(TS.Strings[i]+' втретилось '+IntToStr(Integer(TS.Objects[i])));
  end;
  FreeAndNil(TS);

end;

p.s. Только не надо задавать дополнительных вопросов - всё равно не отвечу) я и так слишком много сказал (Особенно, если учесть то, что эта тема для фриланса - т.е., раз Вы сами ничего не хотите делать/изучать, значит должны обращаться к тем, кто это готов сделать это за Вас за небольшое вознаграждение)!

p.s. Могу отсортировать результаты по убыванию частоты появления. Надо?

[denis_dneprovski]

большое спасибо. Было бы просто здорово, только если вас не затруднит. (P.S. вся проблема в том, что у меня в процессе обучения никогда не было программирования, а теперь руководителем моей научной работы сделали преподавателя - программиста, поэтому мне нужно с нулевым опытом сразу начать что-то создавать.)
ЕЩЕ РАЗ ОГРОМНОЕ СПАСИБО!!

[Serge_Bliznykov]

Было бы просто здорово, только если вас не затруднит.

да нет, это несложно. Мы же можем продолжать использовать уже заложенный в TSTringList функционал.

добавьте перед процедурой Button1Click вот такую функцию:

function CustomSortByUsedCount_Descending(List: TStringList; Index1, Index2: Integer): Integer;
begin
  if Int64(List.Objects[Index1])<Int64(List.Objects[Index2])
    then CustomSortByUsedCount_Descending := 1
  else begin
     if Int64(List.Objects[Index1])=Int64(List.Objects[Index2]) then
       CustomSortByUsedCount_Descending := 0
     else
       CustomSortByUsedCount_Descending := -1
     end;
end;

procedure TForm1.Button1Click(Sender: TObject);
....

вызывать так (перед выводом результатов):

 {отсортировать по частоте}
  TS.CustomSort( CustomSortByUsedCount_Descending );


  mResult.Lines.Clear;
  for i:=0 to TS.Count-1 do begin
    mResult.Lines.Append(TS.Strings[i]+' втретилось '+IntToStr(Integer(TS.Objects[i])));
  end;

примечание. Серым цветом отмечен код, который уже есть, его добавлять не надо, это просто для ориентации в пространстве привожу здесь..

[Stilet]

Оффтоп:
А можно для особо заиндивевших двоичников пояснить что такое биграммы, и что такое триграммы, ато Вики в Китай посылает

[denis_dneprovski]

спасибо, теперь будет удобней вести статистику)

[denis_dneprovski]

биграмма - сочетание 2символов, триграмма - сочетание трех символов

[Stilet]

тоесть "я заааикаюсь" - здесь "ааа" - триграмма?

[denis_dneprovski]

в "я заааикаюсь". триграммы: "я з", "ааа", "ика", "юсь".
Это сочетание любых, а не только идентичных символов.