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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

43
TableId=array of integer;
{массив, содержащий количество ядер для длины слова}
KernelMass=array[1..Maxlen] of shortint;
//ТИПЫ ДАННЫХ, ИСПОЛЬЗУЕМЫЕ ПРИ СОХРАНЕНИИ РЕЗУЛЬТАТОВ ОБРАБОТКИ
{информация об обработках текста}
ProcessInfRec=record
del :boolean;
type_pr :byte;
pr_date :shortstring;
countkey:integer;
id_proc :longint;
end;
{массив обработок текста различными способами}
ProcessInfMass=array[1..MaxProc] of ProcessInfRec;
{информация об обработанном тексте}
TextInfRec= record
Name :shortstring;
Author :shortstring;
Datetext :shortstring;
Comment :shortstring;
FileInput :shortstring;
FileOutput:shortstring;
lentext :integer;
difflen :integer;
id_text :longint;
process :ProcessInfMass;
end;
{массив обработанных текстов}
TTextMass=array of TextInfRec;
{файл обработанных текстов}
TFileText=file of TextInfRec;
{файл, содержащий результаты обработки текста}
TFileRes=file of WordType;
//ТИПЫ ДАННЫХ, ИСПОЛЬЗУЕМЫЕ ПРИ СРАВНЕНИИ РЕЗУЛЬТАТОВ ОБРАБОТКИ
{массив, содержащий номера процессов для сравнения}
TCompareMass=array[1..MaxComp] of integer;
{упорядоченный список ключевых слов}
PtrListKeyWord=^TKeyWord;
TKeyWord = record
word:TTreeWord;
freq:integer;
next:PtrListKeyWord;
end;
var
OpenFileName : string; // имя обрабатываемого файла
Katalog : string; // рабочий каталог программы
Implementation
end. 
        TableId=array of integer;
        {массив, содержащий количество ядер для длины слова}
        KernelMass=array[1..Maxlen] of shortint;

//ТИПЫ ДАННЫХ, ИСПОЛЬЗУЕМЫЕ ПРИ СОХРАНЕНИИ РЕЗУЛЬТАТОВ ОБРАБОТКИ
        {информация об обработках текста}
        ProcessInfRec=record
                         del     :boolean;
                         type_pr :byte;
                         pr_date :shortstring;
                         countkey:integer;
                         id_proc :longint;
                      end;
        {массив обработок текста различными способами}
        ProcessInfMass=array[1..MaxProc] of ProcessInfRec;
        {информация об обработанном тексте}
        TextInfRec= record
                      Name      :shortstring;
                      Author    :shortstring;
                      Datetext :shortstring;
                      Comment   :shortstring;
                      FileInput :shortstring;
                      FileOutput:shortstring;
                      lentext   :integer;
                      difflen   :integer;
                      id_text   :longint;
                      process   :ProcessInfMass;
                    end;
        {массив обработанных текстов}
        TTextMass=array of TextInfRec;
        {файл обработанных текстов}
        TFileText=file of TextInfRec;
        {файл, содержащий результаты обработки текста}
        TFileRes=file of WordType;

//ТИПЫ ДАННЫХ, ИСПОЛЬЗУЕМЫЕ ПРИ СРАВНЕНИИ РЕЗУЛЬТАТОВ ОБРАБОТКИ
        {массив, содержащий номера процессов для сравнения}
        TCompareMass=array[1..MaxComp] of integer;
        {упорядоченный список ключевых слов}
        PtrListKeyWord=^TKeyWord;
        TKeyWord = record
                     word:TTreeWord;
                     freq:integer;
                     next:PtrListKeyWord;
                   end;

var
  OpenFileName : string; // имя обрабатываемого файла
  Katalog : string; // рабочий каталог программы

Implementation

end.




                                                                   43

Страницы