Мбайт оперативної пам’яті;

64 Мбайт оперативної пам’яті;

4,93 Мбайт вільного простору на дисковому носії;

кольоровий монітор та відео адаптер, що б забезпечували розширення хоча б 800*600 при частоті оновлення 60Гц та 16-ти бітний кольоровий режим роботи.

дисковод;

клавіатура;

маніпулятор „миша”.

Для роботи із програмою потрібно запустити на виконання файл Project1_0. exe. У реєстраційну форму вводять код, що можна побачити у файлі cod. txt. Проте для подальшої роботи над доопрацюванням програми та її аналізу слід встановити необхідні „скіни”.

Для цього їх потрібно встановити та здійснити налаштування у Delphi. Це здійснюється так:

Розпаковуємо архів acnt_reg7. exe у папку, що вибирається користувачем (наприклад, Install).

Ця директорія має бути зареєстрована в так званому шляху пошуку системи (system search path). Потрібно додати AlphaControls папку у Delphi (Tools - >Environment Options->Library->Library Path). Далі вибрати шлях, наприклад, D: \Install\for_delphi_skin\acnt_reg7\D7.

Використовуємо File\Open. Вибираємо шлях де знаходиться run-time паркет, наприклад, D: \Install\for_delphi_skin\acnt_reg7\D7\ acntD7_R. dpk. У вікні що відкриється, натискаємо кнопку Compile.

Використовуємо File\Open. Вибираємо шлях де знаходиться design - time паркет, наприклад, D: \Install\for_delphi_skin\acnt_reg7\D7\ acntD7. dpk. У вікні що відкриється, натискаємо кнопку Install, щоб встановити цю бібліотеку.

Цього буде достатньо для роботи програми, але за необхідності можна додатково встановити пакет DB-aware.

Після цього можна користуватись новими закладками панелі компонентів та запускати без помилок проект Delphi (файл Project1_0. dpr).

11. Аналіз отриманих результатів

Аналіз отриманих результатів проведемо, розглянувши результати роботи програми. Після запуску програми на виконання отримаємо реєстраційну форму програми, вигляд якої зображено на рисунку 7:

Рисунок 7 - Реєстраційна форма

Після введення реєстраційного коду потрібно натиснути кнопку „Далі”. В разі введення правильного коду, з’явиться головна форма проекту (рисунок 8).

Рисунок 8 - Головна форма програми

В іншому випадку у полі Реєстраційної форми з’явиться відповідне повідомлення і потрібно повторити введення коду (рисунок 8(а)).

Рисунок 8(а)

В головній формі для керування роботою потрібно користуватись панеллю „Опції”. для початку задають умови заповнення матриці: регістр символів, що задається відповідними перемикачами, алфавіт, з якого генеруватимуться символи. Для автоматичної генерації натискають кнопку „Згенерувати масив”. Після цього матриця заповниться символами.

Якщо ж користувач сам заповнює матрицю, або ж хоче редагувати певні символи заповненої матриці він обирає вузол матриці та натискає на ньому. Після цього з’явиться діалогове вікно для введення символу (рисунок 9).

Рисунок 9 - Діалогове вікно для введення символу

Після формування матриці символів та задання налаштувань можна здійснити пошук слова, що вводиться користувачем у відповідне поле. Знайдені у матриці слова будуть виділені кольором.

Рисунок 10 - Пошук слова

Далі можна задати нові умови пошуку і виконати його. Щоб зняти виділення натискають відповідну кнопку. У разі, якщо пошук не дав результатів виводиться відповідне повідомлення.

Рисунок 11 - Інформаційне повідомлення

При виборі пункту меню „Про програму” з’явиться вікно, що показане на рисунку 12

Рисунок 12 - Вікно „Про програму”

При виборі пункту меню „Розробник” з’явиться вікно, що показане на рисунку 13

Рисунок 13 - Вікно „Розробник”

По закінченні роботи із програмою здійснюють вихід натисканням кнопки „Вихід”.

Висновок

Отже, результатом роботи є створення програмного продукту та пояснювальної записки, що відповідають темі курсової роботи - „Опрацювання масивів. Розробити програму пошуку послідовності символів в двовимірному масиві. Передбачити декілька напрямків пошуку. ”

Підсумовуючи усе зроблене вважаю закінчення роботи над курсовою роботою - логічним висновком вивчення предмету ”Програмування та алгоритмічні мови”. Ця робота дала дуже багато мені у плані здобуття та підсумування знань та умінь із програмування, зокрема в середовищі візуального програмування Borland Delphi.

Аналізуючи створений програмний продукт, вважаю, що він буде конкурентноздатним та корисним, зокрема, для вивчення та осмислення особливостей роботи із масивами. Програму можна також використовувати і як простий ігровий додаток.

Література

1.         Глинський Я.М., Анохін В. Є., Ряжська В.А. Turbo Pascal і Delphi. Практикум. - Львів, 2003.

2.         Гофман В.Э., Хомоненко А.Д. Delphi 6: - Спб, 2002.

3.         Культин Н.Б. Delphi 6. Программирование на Object Pascal: - Спб, 2002.

Додаток

Додаток А

Лістінг головної програми:

program Project1_0;

uses

Forms,

Unit1_0 in 'Unit1_0. pas' {Form1};

{$R *. res}

begin

Application. Initialize;

Application. CreateForm(TForm1, Form1);

Application. Run;

end.

unit Unit1;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls, sButton, sSkinProvider, sSkinManager;

type

TAboutProgram = class(TForm)

Memo1: TMemo;

sButton1: TsButton;

sSkinProvider1: TsSkinProvider;

procedure OKButtonClick(Sender: TObject);

procedure sButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutProgram: TAboutProgram;

implementation

uses Unit1_0;

{$R *. dfm}

procedure TAboutProgram. OKButtonClick(Sender: TObject);

begin

Form1. Enabled: =True;

Close;

end;

procedure TAboutProgram. sButton1Click(Sender: TObject);

begin

Form1. Enabled: =True;

Close;

end;

end.

unit Unit1_0;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls, ExtCtrls, jpeg, Menus, sBitBtn,

sSkinProvider, sSkinManager;

type

TForm1 = class(TForm)

Edit1: TEdit;

SearCB: TComboBox;

ALF: TComboBox;

RG: TRadioGroup;

GroupBox1: TGroupBox;

Label1: TLabel;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

sBitBtn1: TsBitBtn;

sSkinProvider1: TsSkinProvider;

procedure FormCreate(Sender: TObject);

function Search_LR: Boolean;

function Search_RL: Boolean;

function Search_UD: Boolean;

function Search_DU: Boolean;

procedure Search;

function Sumbol: Char;

procedure Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure SpeedButton1Click(Sender: TObject);

procedure panelOnClick (sender: Tobject);

procedure ALFChange(Sender: TObject);

procedure SearCBChange(Sender: TObject);

procedure Panel1Click(Sender: TObject);

procedure Panel2Click(Sender: TObject);

procedure Panel3Click(Sender: TObject);

procedure Panel4Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure sBitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Const MaxY = 25;

MaxX = 25;

var

Form1: TForm1;

sbut: array [1. MaxX,