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

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

41
Приложение 8 Модуль CommonUnit
unit CommonUnit;
interface
const
RegArrayName='NumArray'; {раздел реестра}
Digit=['0'..'9'];
Letter=['a'..'z','A'..'Z','й','ц','у','к','е','н','г','ш',
'щ','з','х','ъ','э','ж','д','л','о','р','п','а','в',
'ы','ф','я','ч','с','м','и','т','ь','б','ю','ё',
'Й','Ц','У','К','Е','Н','Г','Ш','Щ','З','Х','Ъ',
'Э','Ж','Д','Л','О','Р','П','А','В','Ы','Ф','Я',
'Ч','С','М','И','Т','Ь','Б','Ю','Ё'];
//максимальный размер считываемой в список части текста
NMax=300032;
//максимальная длина слова
MaxLen=30;
//имя файла, содержащего список обработанных текстов
FileListName='TextList.lst';
//количество способов обработки
CountType=5;
{список методов обработки}
Methods:array[1..CountType] of string =
('Межтекстовая фильтрация по относительной частоте',
'Межтекстовая фильтрация по рангам частот',
'Межтекстовая фильтрация по амплитуде',
'Межтекстовая фильтрация по количеству текстов',
'Внутритекстовая фильтрация');
//максимальное количество обработок текста
MaxProc=50; MaxComp=2;
type
// ТИПЫ ДАННЫХ ДЛЯ ОБРАБОТКИ ТЕКСТОВОГО ФАЙЛА
// И ПОСТРОЕНИЯ ЧАСТОТНОГО СЛОВАРЯ
{список, содержащий выбранный текст при
обработке текстового файла}
PtrList=^Link;
Mass=array[1..NMax] of char;
Link= record
line :mass;
length:integer;
next :PtrList;
prev :PtrList;
end;
{дерево, содержащее частотный словарь
обрабатываемого текста}
TTreeWord=string[MaxLen];
PtrWordList=^WordList;
WordList= record
word :TTreeWord;
freq :longint;
left :PtrWordList;
right:PtrWordList;
end; 
     Приложение 8                            Модуль CommonUnit

unit CommonUnit;
interface
const
    RegArrayName='NumArray'; {раздел реестра}
    Digit=['0'..'9'];
    Letter=['a'..'z','A'..'Z','й','ц','у','к','е','н','г','ш',
            'щ','з','х','ъ','э','ж','д','л','о','р','п','а','в',
            'ы','ф','я','ч','с','м','и','т','ь','б','ю','ё',
            'Й','Ц','У','К','Е','Н','Г','Ш','Щ','З','Х','Ъ',
            'Э','Ж','Д','Л','О','Р','П','А','В','Ы','Ф','Я',
            'Ч','С','М','И','Т','Ь','Б','Ю','Ё'];
    //максимальный размер считываемой в список части текста
    NMax=300032;
    //максимальная длина слова
    MaxLen=30;
    //имя файла, содержащего список обработанных текстов
    FileListName='TextList.lst';
    //количество способов обработки
    CountType=5;
    {список методов обработки}
    Methods:array[1..CountType] of string =
            ('Межтекстовая фильтрация по относительной частоте',
             'Межтекстовая фильтрация по рангам частот',
             'Межтекстовая фильтрация по амплитуде',
             'Межтекстовая фильтрация по количеству текстов',
             'Внутритекстовая фильтрация');
    //максимальное количество обработок текста
    MaxProc=50;    MaxComp=2;

type
// ТИПЫ ДАННЫХ ДЛЯ ОБРАБОТКИ ТЕКСТОВОГО ФАЙЛА
// И ПОСТРОЕНИЯ ЧАСТОТНОГО СЛОВАРЯ
       {список, содержащий выбранный текст при
       обработке текстового файла}
       PtrList=^Link;
       Mass=array[1..NMax] of char;
       Link= record
               line :mass;
               length:integer;
               next :PtrList;
               prev :PtrList;
             end;
       {дерево, содержащее частотный словарь
        обрабатываемого текста}
       TTreeWord=string[MaxLen];
       PtrWordList=^WordList;
       WordList= record
                  word :TTreeWord;
                  freq :longint;
                  left :PtrWordList;
                  right:PtrWordList;
                 end;

                                                                   41

Страницы