Оформление курсовых и дипломных работ. Артемов М.А - 42 стр.

UptoLike

42
//ТИПЫ ДАННЫХ ДЛЯ ОБРАБОТКИ ТЕКСТА РАЗЛИЧНЫМИ СПОСОБАМИ
{элемент результирующего массива слов }
KeyInfType=record
key :boolean;
delta:real;
end;
ProcessKeyInf=array[1..MaxProc] of KeyInfType;
WordType=record
word :TTreeword;
freq :longint;
rang :longint;
ampl :longint;
id :longint;
textcount:longint;
keyres :ProcessKeyInf;
end;
{массив слов определенной длины}
LenWordMassType = array of WordType;
WordMassType = array[1..MaxLen] of
record
Words :LenWordMassType;
LenMass:integer;
end;
{элемент статистического массива в методе
внутритекстовой фильтрации}
Middletype=record
count :longint;
freqmid:real;
dispers:real;
end;
{статистический массив}
StatistType=array[1..MaxLen] of MiddleType;
{тип-запись для методов межтекстовой фильтрации}
InfWord = record
id :longint;
firsttext:longint;
counttext:longint;
midrang :real;
maxrang :integer;
minrang :integer;
end;
//ТИПЫ ДАННЫХ ДЛЯ ВИЗУАЛИЗАЦИИ КЛЮЧЕВЫХ СЛОВ
{элемент массива ключевых слов для просмотра результатов}
KeyWordType=record
id :longint;
Word :TTreeWord;
Freq :real;
FreqLen :integer;
delta :real;
kernel :shortint;
firsttext:longint;
len :byte;
end;
{массив ключевых слов}
TableWord=array of KeyWordtype;
//ТИПЫ ДАННЫХ ДЛЯ ОБРАБОТКИ ТЕКСТА РАЗЛИЧНЫМИ СПОСОБАМИ
        {элемент результирующего массива слов }
        KeyInfType=record
                      key :boolean;
                      delta:real;
                   end;
        ProcessKeyInf=array[1..MaxProc] of KeyInfType;
        WordType=record
                   word      :TTreeword;
                   freq      :longint;
                   rang      :longint;
                   ampl      :longint;
                   id        :longint;
                   textcount:longint;
                   keyres    :ProcessKeyInf;
                 end;
        {массив слов определенной длины}
        LenWordMassType = array of WordType;
        WordMassType = array[1..MaxLen] of
                              record
                                Words :LenWordMassType;
                                LenMass:integer;
                              end;
        {элемент статистического массива в методе
         внутритекстовой фильтрации}
        Middletype=record
                       count :longint;
                       freqmid:real;
                       dispers:real;
                   end;
        {статистический массив}
        StatistType=array[1..MaxLen] of MiddleType;
        {тип-запись для методов межтекстовой фильтрации}
        InfWord = record
                    id        :longint;
                    firsttext:longint;
                    counttext:longint;
                    midrang :real;
                    maxrang :integer;
                    minrang :integer;
                  end;

//ТИПЫ ДАННЫХ ДЛЯ ВИЗУАЛИЗАЦИИ КЛЮЧЕВЫХ СЛОВ
        {элемент массива ключевых слов для просмотра результатов}
        KeyWordType=record
                      id       :longint;
                      Word     :TTreeWord;
                      Freq     :real;
                      FreqLen :integer;
                      delta    :real;
                      kernel   :shortint;
                      firsttext:longint;
                      len      :byte;
                    end;
        {массив ключевых слов}
        TableWord=array of KeyWordtype;

                                                                    42