Організація таблиць ідентифікаторів

Виконання завдання

Лістинг програми
FormLab1
unit FormLab1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TLab1Form = class(TForm)
GroupText: TGroupBox;
GroupFile: TGroupBox;
GroupSearch: TGroupBox;
EditFile: TEdit;
BtnFile: TButton;
BtnLoad: TButton;
EditSearch: TEdit;
BtnSearch: TButton;
ListIdents: TMemo;
FileOpenDlg: TOpenDialog;
GroupHash: TGroupBox;
GroupTree: TGroupBox;
LblSearchCount: TLabel;
LblHashRes: TLabel;
LblHashCount: TLabel;
LblHashAvrg: TLabel;
LblTreeRes: TLabel;
LblTreeCount: TLabel;
LblTreeAvrg: TLabel;
BtnExit: TButton;
BtnReset: TButton;
BtnAllSearch: TButton;
LblHashAllCount: TLabel;
LblTreeAllCount: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BtnFileClick(Sender: TObject);
procedure EditFileChange(Sender: TObject);
procedure BtnLoadClick(Sender: TObject);
procedure EditSearchChange(Sender: TObject);
procedure BtnExitClick(Sender: TObject);
procedure BtnSearchClick(Sender: TObject);
procedure BtnResetClick(Sender: TObject);
procedure BtnAllSearchClick(Sender: TObject);
private
{ Счетчик поиска и переменные для хранения суммарных результатов поиска }
iCountNum,iCountHash,iCountTree: integer;
{ Процедура поиска заданной строки }
procedure SearchStr(const sSearch: string);
{ Процедура вывода на экран статистической информации о поиске }
procedure ViewStatistic(iTree,iHash: integer);
public
{ Public declarations }
end;

var
Lab1Form: TLab1Form;

implementation

{$R *.DFM}

uses FncTree, FncHash;

procedure TLab1Form.FormCreate(Sender: TObject);
begin
{ Начальная инициализация таблиц и счетчиков }
InitTreeVar;
InitHashVar;
iCountNum := 0;
iCountHash...

написати програму, що отримує на вході набір ідентифікаторів, організує таблиці ідентифікаторів заданими методами, здійснює багатократний пошук довільного ідентифікатора в таблицях, що дає можливість порівняти ефективність методів організації таблиці, список ідентифікаторів в заданому виді текстового файлу. Довжина ідентифікаторів обмежена 32 символами.

Висновки: під час виконання лабораторної роботи, ми розглянули основні методи таблиць ідентифікоторів