ортуванні та обходів при пошуку. p align="justify"> Об'єм словаряВремя сортіровкіКол-во перестановок при сортіровкеКол-во обходів при поіске200159264004785876607841208 В
Рис. 7.1 Залежність часу складання словника від обсягу введеного тексту
Результати тестування відображають практично лінійну залежність часу сортування словника і кількість обходів частин списку словосполучень при пошуку в залежності від його величини, що свідчить про правильність складання алгоритму сортування перестановками.
Лінійна залежність перших двох графіків є підтвердженням правильності реалізації перевіряються алгоритмів.
Нелінійність останнього графіка обумовлена ​​тим, що кол-во словосполучень залежить не тільки від обсягу тексту, але і від кількості пропозицій в ньому
Висновок
додаток тестування інтерфейс користувач
Згідно із завданням, мною була розроблена програма, що має дружній графічний інтерфейс, і що надає можливість створення частотного словника словосполучень і подальшої його обробки. У ході роботи були розглянуті алгоритми бінарного пошуку і сортування методом перестановки. br/>
Список літератури
1. А.Я. Архангельський. Програмування в Delphi. - Москва: Изд-во Біном-Пресс, 2003-1152 с.
2. Є.П. Марков. Програмування в Delphi 7. - Санкт-Петербург: Изд-во БХВ-Петербург, 2005 - 784 с.
. Сортування методом обміну// Уроки программірованіяURL: # "justify">. Двійковий пошук// Вікіпедія - вільна енциклопедія URL: # "justify">. Двійковий пошук// Delphiпрограммірованіе URL: # "justify">. DelphiTOpenDialog// DelphiпрограммірованіеURL : # "justify">. Delphi TSaveDialog// DelphiпрограммірованіеURL: # "justify"> Додаток. Текст програми
unitUnit1;
interface
uses
Winapi. Windows, Winapi. Messages, System. SysUtils, System. Variants, System. Classes, Vcl. Graphics,. Controls, Vcl. Forms, Vcl. Dialogs, Vcl. StdCtrls, Vcl. ExtCtrls;
= class (TForm): TMemo;: TMemo;: TButton;: TButton;: TButton;: TButton;: TEdit;: TLabel;: TLabel;: TLabel;: TMemo;: TButton;: TRadioGroup;: TButton;: TLabel;: TLabel;: TLabel; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button4Click (Sender: TObject); Button3Click (Sender: TObject); Button6Click (Sender: TObject); Button5Click (Sender: TObject); Edit1KeyPress (Sender: TObject; var Key: Char);
{Private declarations}
{Public declarations};
: TForm1;, Slv...
