close

Вход

Забыли?

вход по аккаунту

?

Лабораторная работа1

код для вставкиСкачать
??????????
1) ???? ?????? ? ???????? ??????................................................2
2) ??????? ????????????? ????????:
2.1) ?????????? ?????? ???????????????.................................2-3
2.2) ???????? ??????????? ?????? ???????????????..................3-4
3) ????? "???????? ??????"....................................................4-7
4) ????? "?????????????".......................................................8-9
5) C???? ????????? ?????????? ???????????? ??????......................10
6) ?????????, ??????????????? ?????? ?????????..................11-12
7) ?????...............................................................................12
8) ?????? ???????????? ?????????? ? ??????................................13
9) ???????? ??? ????????? ? ?????????????.............................13-24
1. ???? ?????? ? ???????? ??????:
??????? ???????? ?????? ??????????? ?????? ???????????????, ???????? ????????????? ? ????????????? ? ???????????, ??????? ????????? ??????? ??????????? ?????? ???????????????.
????????? ???????? ?????????, ??????? ????????? ???????????? ???????????? ????? ????????????? ?????????????? ? ???????? ????????????? ??????? ??????????? ??????. ?????? ??????????????? ????? ? ????????? ?????. ? ???????? ??????? ???? ????? "???????? ??????" ? "?????????????".
?????? ??????????????? ????????? ? ????????? ????? Lab1.txt ? ????? ? ?????????? ?? ?????, ????????????? ? ???????????? ??????.
2. ??????? ????????????? ????????:
2.1 ?????????? ?????? ???????????????:
??? ?????????? ?????????????? ???????, ????????? ???? ? ??????????? ?????????????? ????????? ?????????? ?????? ??????????? ???????????????? ???????? ????????? ???????? ????????? - ??????????, ????????, ??????? ? ?????? ??????????? ?????? ???????? ?????. ??? ?????????????? ????? ???? ???????? ???????????? ?? ????? ??????????????? ??????? ??????? ????????? (???? ????? ??? ??????? ????????? ?????? ???????? ?????????? ? ????????), ? ????? ????????? ?? ????? ?????????? ? ????????? ???? (???????? ??? ????????????? ??????).
????? ?????????????, ??????????????? ??????? ???????? ???????? ?????????, ??????? ?? ???? ????? ????????, ?? ??? ?????? (?????????) ?, ??????????????, ?? ??? ????, ??????? ?? ????????? ? ???????? ? ?????????????? ??????????. ? ?????? ?????????? ?????? ???? ????? ????????????? ????? ???? ???? ? ??????????? ?? ?????????? ? ????????? ???????? ?????, ?? ??????????? ??????? ?????????????? ??????? ? ?? ????????? ???????????. ?? ???? ??????? ??????????????, ??????? ???? ????? ??????? ??? ??? ???? ????????? ???????? ?????????. ???????? ??? ?????????? - ??? ?? ??? ? ????? ?????? ??????, ??? ????????? - ?? ????????, ??? ??????? - ?????????? ? ???? ?????????? ??????????, ??? ????????????? ??????????, ????? ?????? ???? ???????.
??????? ??????????????? ?????? ???????? ???????? ????????? ???????? ??? ???. ?????? ? ??????? ??????????, ????????, ??????? ? ?????? ????????? ???????? ????? ????????? ??????????? ????????? - ??????? ? ?????????? ?????? ????? ????????????? ??? ???????? ?? ?? ??????.
??? ??????? ???????? ?????? ???? ??????????. ?????? ??????????? ????? ???????????????? ????????? ?????????? (??????????????) ???? ?????????? ? ??????? ? ??????????? ?? ?? ??????? ????????? ? ?????? ??????? ???????? ?????????. ? ???? ?????? ???????????? ???? ?????? ???????????? ??? ??????????.
????? ???????, ?????? ??????????? ??????????? ? ???, ????? ??????? ????????? ??????????, ????????? ? ?????? ????????? ???????? ?????????, ? ????? ?????? ? ???? ?????????? ?? ????? ????????. ??? ??????? ???? ?????? ?????????? ?????????? ??????????? ????????? ??????, ?????????? ????????? ???????????????, ??? ????????? ????????. ??????? ??????????????? ??????? ?? ?????? ????? ?????? (???????), ?????? ?? ??????? ????? ??????????????? ?????? ???????? ???????? ?????????. ?????? ???????? ??? ??????????? ??????????? ?????????? ? ?????? ???????? ? ????? ??????????? ?? ???? ?????? ???????????. ?????????? ??????? ??????? ?? ??????? ??????????? ??????? ???????????????, ?? ? ????? ?????? ?? ?? ????? ???? ??????, ??? ????????? ? ???????? ?????????. ? ????????, ?????????? ????? ???????? ?? ? ?????, ? ? ??????????? ????????? ??????????????? - ?? ?????????? ? ????????? ??????? ?? ?????????? ???????????.
2.2 ???????? ??????????? ?????? ???????????????:
?????????? ????????? ?????? ? ??????? ??????????????? ?? ???? ??????? ???????? ????????? ? ??????????? ? ??? ????? ?????????, ????????? ?????????? ? ???????. ????? ?????????? ? ??????? ??????????? ?????? ???, ????? ??????????? ?????????? ???????? ? ??? ??? ???? ???????? ?????????. ?????? ??????? ????????, ??? ????? ???????? ? ??????? ????? ??????????? ???????????? ??????????? ????, ??? ????????? ? ??? ????? ?????????. ??? ?????????? ??????, ??? ???????? ????? ????????? ? ???????? ?????????, ??? ???????, ??????????? ??????? ????, ??? ??? ???????? ????????????. ????? ????, ??????? ?????????? ???????? ? ??????? ??????????????? ? ????? ?????? ????? ?????????????? ???????? ?????? - ????? ?????????, ??? ?????? ???????? ? ??????? ???.
?? ?????? ???????? ?????? ???????? ? ??????? ?????????? ????? ??????????? ?????, ? ????????? ?????????? ????????? ? ???????? ????????? ?????? (?? ?????? ?? ????? ????? ? ??????????? ?? ?????? ?????????), ??? ????? ????? ??????????? ?????? ?? ????? ????? ??????????. ??????? ??????? ??????????????? ?????? ???? ???????????? ????? ???????, ????? ?????????? ???? ??????????? ??????????? ?????? ????????? ????? ?????? ??? ?????? ??????? ?? ????? ????????, ? ??????? ??????? ??? ??????.
????? ???????? ????????? ??????? ??????????? ?????? ???????????????:
� ??????? ? ????????????? ??????;
� ???????? ??????;
� ???-????????? ? ??????????????;
� ???-????????? ?? ?????? ???????;
� ?????????? ???-????????? ?? ??????? ??? ???????? ???????.
3. ????? "???????? ??????":
????? ????????? ????? ?????? ???????? ???????? ? ??????? ??????????????, ?? ?????????? ??????????? ?????, ??????????? ?? ?? ??????????. ??? ????? ???? ?????????? ?? ??????????? ??????? ? ???? ???????????? ??????? ??????.
?????????? ????? ?????????? ??????, ??? ??????? ??????? ????? ????? ????????? ??????. ?????? ???? ?????? ???????????? ????? ??????? ???????, ?????? ???????? ????? ?????????? ?????? ???????, ??????????? ???????????? ??? ?????????? ???????. ?????? ?????????? ????????, ??? ??? ?????? ??????? ? ??? ????? ????? ?? ????? ???? ??????. ??? ?????????????? ????? ???????? ??? ????? "??????" ? "?????".
?????????? ???????? ?????????? ????????? ??????. ????? ???????, ??? ???????? ???????? ? ??????? ??????? ??????, ?????????? ??????????????. ?????? ?????????????, ??? ??? ???? ???????, ?????????? ? ??????? ??????. ??? ?????????? ?????????????? ???????? ? ?????? ?? ?????????? ?????????:
1. ??????? ????????? ????????????? ?? ???????? ?????? ??????. ???? ?????????? ?????????????? ???, ?? ?????????? ?????? ?????????.
2. ??????? ??????? ????? ?????? ???????? ???????.
3. ???????? ??? ?????????? ?????????????? ? ?????? ??????????????, ????????????? ? ??????? ???? ??????.
4. ???? ??? ?????????? ?????????????? ??????, ?? ??????? ? ???? 5, ???? ????? - ?????????? ?????????? ????????? (???? ?????????? ??????????????? ???? ?? ??????!), ????? - ??????? ? ???? 7.
5. ???? ? ???????? ???? ?????????? ????? ???????, ?? ??????? ?? ??????? ????? ? ????????? ? ???? 3, ????? - ??????? ? ???? 6.
6. ??????? ????? ???????, ????????? ? ??? ?????????? ?? ????????? ??????????????, ??????? ??? ????? ??????? ????? ???????? ???????? ???? ? ????????? ? ???? 1.
7. ???? ? ???????? ???? ?????????? ?????? ???????, ?? ??????? ?? ??????? ????? ? ????????? ? ???? 3, ????? - ??????? ? ???? 8.
8. ??????? ????? ???????, ????????? ? ??? ?????????? ?? ????????? ??????????????, ??????? ??? ????? ??????? ?????? ???????? ???????? ???? ? ????????? ? ???? 1.
?????????? ? ???????? ??????? ?????????????????? ??????????????? G?, D1, ?22, ?, ?12, ??, F. ?? ???.1 ???????????????? ???? ??????? ?????????? ????????? ?????? ??? ???? ?????????????????? ???????????????.
???.1
????? ???????? ? ?????? ??????????? ?? ?????????, ??????? ? ?????????? ?????????? ??????:
1. ??????? ??????? ????? ?????? ???????? ???????.
2. ???????? ??? ???????? ?????????????? ? ?????? ??????????????,
???????????? ? ??????? ???? ??????.
3. ???? ????? ?????????, ?? ??????? ????????????? ??????, ???????? ???????????, ????? ???? ??????? ? ???? 4.
4. ???? ??? ?????????? ?????????????? ??????, ?? ??????? ? ???? 5, ????? -??????? ? ???? 6.
5. ???? ? ???????? ???? ?????????? ????? ???????, ?? ??????? ?? ??????? ????? ? ????????? ? ???? 2, ????? - ??????? ????????????? ?? ??????, ???????? ???????????.
6. ???? ? ???????? ???? ?????????? ?????? ???????, ?? ??????? ?? ??????? ????? ? ????????? ? ???? 2, ????? - ??????? ????????????? ?? ??????, ???????? ???????????.
??? ??????? ?????? ????? ????????? ????????? ? ????? ????????????? ?????? ??????? ?? ???? ???????, ? ??????? ????????? ??????????????. ????????, ???? ? ????????????? ???? ??????? ?????? ?????????????????? ??????????????? Ga, D1, ?22, ?, ?12. ??,F ????? ?????????????????? ?12, ??, D1, E, F, Ga, M22, ?? ?????? ????????? ? ????????????? ???????????????? ??????? ??????. ??? ??????????? ???????? ??????????? ??????? ?????? ??????????? ?????? ???????????????. ??????? ???????????? ?????? ????????: ????????????? ??????? ??? ?????????????? ?????? ?? ????? ? ?????? ????? ? ?????? ???????? ?????? ? ?????? ? ???????????? ?????????? ?????? ??? ?????????? ??????.
???? ????????????, ??? ?????????????????? ??????????????? ? ???????? ????????? ???????? ????????????? ??????????????? (??? ? ????? ????????????? ????????????????), ?? ????? ???????, ??? ??????????? ???????? ?????? ????? ?????????????. ????? ??????? ????? ?? ?????????? ?????? (??) ? ?? ????? ???????? ? ??? (??) ????? ??????? ????????? ???????:
???????? ?? ????????? ??????????, ????? ????????? ?????? ???????? ???????? ??????? ?????????? ??? ??????????? ?????? ???????????????. ?? ????? ???? ?????????? ? ???? ????????????. ?????? ??????????? ?????? ????????? ????????? ???????? ??? ??????????????? ?????? ????? ? ?????? ?????.
4. ????? "?????????????":
???????? ????? ?????? ???? ??? ???????? ? ????? n0=h(A), ??????????? ? ??????? ???-??????? h ????????? ?? ??? ??????? ??????, ?? ?????????? ????????? ???????? ??????? n1=h1(A) ? ????????? ????????? ?????? ?? ?????? n1. ???? ? ??? ??????, ?? ??????????? ???????? h2(A), ? ??? ?? ??? ???, ???? ???? ?? ????? ??????? ????????? ??????, ???? ????????? ???????? hi(A) ?? ???????? ? h(A). ? ????????? ?????? ?????????, ??? ??????? ??????????????? ????????? ? ????? ? ??? ?????? ??? - ???????? ?????????? ?? ?????? ?????????? ?????????????? ? ???????.
????? ????? ???????? ? ? ??????? ???????????????, ?????????????? ????? ???????, ????? ??????????? ?? ?????????? ?????????:
1. ????????? ???????? ???-??????? n = h(A) ??? ???????? ???????? ?:
2. ???? ?????? ?? ?????? n ??????, ?? ??????? ?? ??????, ???????? ????????, ????? ?????????? ???????? ??? ???????? ? ?????? n ? ?????? ???????? ???????? ?. ???? ??? ?????????, ?? ??????? ?????? ? ???????? ????????, ????? i:= 1 ? ??????? ? ???? 3.
3. ????????? ni=hi(A). ???? ?????? ?? ?????? n, ?????? ??? n=ni, ?? ??????? ?? ?????? ? ???????? ????????, ????? - ???????? ??? ???????? ? ?????? ni, ? ?????? ???????? ???????? A. ???? ??? ?????????, ?? ??????? ?????? ? ???????? ????????, ????? i := i + 1 ? ????????? ??? 3.
????????? ?????????? ? ?????? ???????? ????? ?? ??????????? ?????????. ??????? ??? ????? ????? ?????????? ?????? ???????, ???????????? ??? ?? ??????????. ??? ????? ??????????? ?????? ??????????????? ? ?????? ????????????? ???????? ???????? ???????? ???????? ? ?????? ?????? ???????, ??????? ?? ???????????? ???????. ??? ???? ???????? ????? ???????? ? ?????? ? ????????, ??????? ????? ????? ????????? ?? ?????????? ???-???????, ??? ???????? ? ????????????? ?????, ?????????????? ????????. ????? ???????, ?????????? ????????, ??????????? ??? ?????? ??? ?????????? ? ??????? ????????, ??????? ?? ????????????? ???????.
??? ??????????? ??????? ??????????????? ?? ?????? ????????????? ?????????? ?????????? ??? ???-??????? hi ??? ???? i. ???? ????? ??????? hi ?????????? ??? ????????? ??????????? ???-??????? h. ????????, ????? ??????? ??????? ?????????? ??????? hi(A) ???????? ?? ??????????? ? ???? hi(A)= (h(A) +pi) mod Nm, ??? ?i - ????????? ??????????? ????? ?????, Nm -???????????? ???????? ?? ??????? ???????? ???-??????? h. ? ???? ???????, ????? ??????? ???????? ????? ????? ???????? ?i = i. ????? ???????? ??????? hi(A)= (h(A) +i) mod Nm, . ? ???? ?????? ??? ?????????? ???????? ???-??????? ??? ?????-???? ????????? ????? ????????? ?????? ? ??????? ?????????? ??????????????? ?? ??????? ???????, ???????? ???-???????? h(A).
???? ?????? ?????? ???????? ???????? ???????: ??? ?????????? ???-??????? ???????? ? ??????? ???????? ?????????????? ?????? ???, ??? ??????????? ????? ??????????? ????????? ??? ?????? ? ??????????. ?? ???? ????? ??????????? ????? ????????????? ???????? ?????????? ??????????? ????????? ??????????? ?????? ??????????????? ??? ???????? ?????????? ???????. ??????? ????? ?? ????????? ?????? ???????? ? ??????? ? ?? ????? ???????? ? ??????? ????? ???????, ???? ????????? ????? ??????????? ????? ?????????????. ????? ?? ????? ??????? ???????? ????????????? ? ???????? ?i ??? ??????? hi(A)= (h(A) + pi) mod Nm ?????????????????? ??????????????? ????? ????? p1, p2,..., pk. ??? ??????? ?????? ?????????? ??????????????? ????? ????? ?????????????????? k = Nm. ?????????? ? ?????? ?????? ??????????? ??????? ????????????? hi(A), ?????????? ?? ???????????? ??????????? ???, ????????, ?? ?????????? ???????????? ?? ???????: hi(A)= (h(A)Ni) mod Nm', ??? Nm' - ????????? ??????? ?????, ??????? Nm. ? ????? ????????????? ????????? ???????? ???????? ??????????? ??? ???????????? ?????? ???????? ? ??????? (??????, ??? ???????? ????? ? ???????? ??????), ?? ????????????? ?????? ?????? ??????? ?? ????????????? ??????? ??????????????? ? ???????? ???????????? ???-??????? - ??? ???? ????????? ????????, ??? ???? ????????????? ??????. ?????????? ????????? ?????????? ??????? ????? ? ?????????????? ????????????? ?????? ????????? ??????.
5. ????? ????????? ?????????? ???????????? ??????:
????? ????????? ????????? ????????????? ?? ???.2
???.2
6. ?????????, ??????????????? ?????? ?????????:
????????? ????????? ????????????? ?? ???????? 3,4 ? 5
???. 3
???.4
???.5
7. ?????:
? ?????? ???????????? ?????? ???? ??????? ??? ?????? ??????????? ?????? ???????????????, ? ??????: "?????????????" ? "???????? ??????"; ???? ????????, ??? ????? ????????? ?????? ?????, ??? ????? ?????????????, ?.?. ?? ???????????? ????? ??????????? ????? ???????? ? ???????. 8. ?????? ?????????????? ?????????? ? ??????:
1) ????????? ??????????? ???????????. ???????????? ????????? - ???????? ?.?. (2005, ???????????? "?????")
2) ????????? ??????????? ???????????. ??????? ??? ????? - ???????? ?.?., ??????? ?.?. (2001, ???????????? "?????") 3) ????????? ??????????? ??????????? - ???????? ?.?. (2010, ???????????? "?????")
http://www.modernlib.ru/books/aleksey_molchanov/sistemnoe_programmnoe_obespechenie_laboratorniy_praktikum/read/
http://www.twirpx.com/file/7467/
http://rutracker.org/forum/viewtopic.php?t=35943
9. ???????? ??? ????????? ? ?????????????:
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 := 0;
iCountTree := 0;
end;
procedure TLab1Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{ ???????????? ?????? ?????? ??? ?????? ?? ????????? }
ClearTreeVar;
ClearHashVar;
end;
procedure TLab1Form.BtnFileClick(Sender: TObject);
begin
if FileOpenDlg.Execute then
{ ????? ????? ????? ? ??????? ???????????? ??????? }
begin
EditFile.Text := FileOpenDlg.FileName;
BtnLoad.Enabled := (EditFile.Text <> '');
end;
end;
procedure TLab1Form.EditFileChange(Sender: TObject);
begin
{ ????? ?????? ????, ?????? ????? ??? ??? ?? ?????? }
BtnLoad.Enabled := (EditFile.Text <> '');
end;
procedure TLab1Form.ViewStatistic(iTree,iHash: integer);
{ ????? ?? ????? ?????????????? ?????????? ? ?????? }
begin
LblSearchCount.Caption := Format('????? ?????: %d ???',[iCountNum]);
LblHashCount.Caption := Format('?????????: %d',[iHash]);
LblTreeCount.Caption := Format('?????????: %d',[iTree]);
LblHashAllCount.Caption := Format('????? ?????????: %d',[iCountHash]);
LblTreeAllCount.Caption := Format('????? ?????????: %d',[iCountTree]);
if iCountNum > 0 then
begin
LblHashAvrg.Caption := Format('? ??????? ?????????: %.2f',[iCountHash/iCountNum]);
LblTreeAvrg.Caption := Format('? ??????? ?????????: %.2f',[iCountTree/iCountNum]);
end
else
begin
LblHashAvrg.Caption := Format('? ??????? ?????????: %.2f',[0.0]);
LblTreeAvrg.Caption := Format('? ??????? ?????????: %.2f',[0.0]);
end;
end;
procedure TLab1Form.BtnLoadClick(Sender: TObject);
var
sTmp: string;
i: integer;
begin
try
{ ?????? ????? }
with ListIdents.Lines do
begin
{ ????????? ???? ? ?????? ????? }
LoadFromFile(EditFile.Text);
{ ??????? ??? ??????? ? ???????? }
ClearTreeVar;
ClearHashVar;
iCountNum := 0;
iCountHash := 0;
iCountTree := 0;
{ ????????????? ??? ?????? ???????????? ?????,
?????? ?????? ?????? ??????????????? }
for i:=Count-1 downto 0 do
begin
sTmp := Trim(Strings[i]);
{ ??????? ?????????? ??????? ? ?????? ? ? ????? ?????? }
if sTmp <> '' then { ?????? ?????? ?????????? }
begin
{ ??????????? ??????? ????????? ??????????????? }
Inc(iCountNum);
{ ????????? ????????????? ? ??????
? ??????????? ??????? ????????? ????????? }
if AddTreeVar(sTmp) = nil then
MessageDlg(Format('?????? ?????????? ?????????????? "%s" ? ??????!',[sTmp]),
mtWarning,[mbOk],0);
Inc(iCountTree,GetTreeCount);
{ ????????? ????????????? ? ??????? ?????????????
? ??????????? ??????? ????????? ????????? }
if AddHashVar(sTmp) = nil then
MessageDlg(Format('?????? ????????????? ?????????????? "%s"!',[sTmp]),
mtWarning,[mbOk],0);
Inc(iCountHash,GetHashCount);
end;
Strings[i] := sTmp;
end{for};
MessageDlg(Format('??????? %d ???????????????',[iCountNum]),mtInformation,[mbOk],0);
{ ????????? ?????????? ? ?????????? ????????? ??? ?????????? ????? }
LblHashRes.Caption := '????? ?? ??????????';
LblTreeRes.Caption := '????? ?? ??????????';
ViewStatistic(0,0);
end{with};
except
MessageDlg('?????? ?????? ?????!',mtError,[mbOk],0);
end;
{ ????? ????? ????? ?????? ??? ???????? ????? }
BtnSearch.Enabled := (ListIdents.Lines.Count>0) and (Trim(EditSearch.Text)<>'');
end;
procedure TLab1Form.EditSearchChange(Sender: TObject);
begin
{ ????? ????? ????? ?????? ??? ???????? ????? }
BtnSearch.Enabled := (ListIdents.Lines.Count>0) and (Trim(EditSearch.Text)<>'');
end;
procedure TLab1Form.SearchStr(const sSearch: string);
{ ????? ???????? ?????? }
begin
{ ???? ?????? ? ?????? }
if GetHashVar(sSearch) = nil then
LblHashRes.Caption := '????????????? ?? ??????'
else
LblHashRes.Caption := '????????????? ??????';
{ ??????????? ??????? ?????? }
Inc(iCountHash,GetHashCount);
{ ???? ?? ?? ????? ?????? ? ??????? ????????????? }
if GetTreeVar(sSearch) = nil then
LblTreeRes.Caption := '????????????? ?? ??????'
else
LblTreeRes.Caption := '????????????? ??????';
{ ??????????? ??????? ?????? }
Inc(iCountTree,GetTreeCount);
end;
procedure TLab1Form.BtnSearchClick(Sender: TObject);
var
sSearch: string;
begin
{ ??????????? ??????? ?????? ?????? }
Inc(iCountNum);
{ ??????? ?????????? ??????? ? ?????? ? ? ????? ??????? ?????? }
sSearch := Trim(EditSearch.Text);
EditSearch.Text := sSearch;
{ ????????? ????? ?????????????? ? ????? ???????? }
SearchStr(sSearch);
{ ????????? ?????????????? ?????? }
ViewStatistic(GetTreeCount,GetHashCount);
end;
procedure TLab1Form.BtnAllSearchClick(Sender: TObject);
{ ????-????? ???? ?????? ??????????????? ?? ?????? }
var
i,iAllTree,iAllHash: integer;
begin
{ ?????????? ??????? ???????? ????????? }
iAllTree := iCountTree;
iAllHash := iCountHash;
{ ????????? ??? ???????? ??? ?????? ????? }
with ListIdents.Lines do
begin
{ ????????? ???????? ?????? ??? ?????? ???????? ?????? }
for i:=Count-1 downto 0 do
if Strings[i] <> '' then
begin
{ ??????????? ??????? ???????? ?????? }
Inc(iCountNum);
{ ????????? ????? }
SearchStr(Strings[i]);
end;
end;
{ ????????? ?????????????? ?????? }
ViewStatistic(iCountTree-iAllTree,iCountHash-iAllHash);
end;
procedure TLab1Form.BtnResetClick(Sender: TObject);
begin
{ ????????? ?????????????? ?????????? ?? ?????? "?????" }
iCountNum := 0;
iCountHash := 0;
iCountTree := 0;
{ ????????? ?????????????? ?????? }
LblHashRes.Caption := '????? ?? ??????????';
LblTreeRes.Caption := '????? ?? ??????????';
ViewStatistic(0,0);
end;
procedure TLab1Form.BtnExitClick(Sender: TObject);
begin
{ ????? ?? ????????? }
Self.Close;
end;
end.
1
Документ
Категория
Без категории
Просмотров
33
Размер файла
517 Кб
Теги
работа, лабораторная
1/--страниц
Пожаловаться на содержимое документа