Программа "Ход конем"

Программа "Ход конем"

7

Федеральное агентство по образованию

Государственное образовательное учреждение высшего профессионального образования

«Курский государственный технический университет»

Кафедра ПО и ВТ

КУРСОВАЯ РАБОТА (ПРОЕКТ)

по дисциплине «Программирование на языках ВУ»

на тему «Ход конем»

Автор работы (проекта) А.В. Буштец

Л.М. Москаленко

Группа ПО-71

Руководитель работы (проекта) Е. А. Петрик

Работа (проект) защищена

Оценка

Председатель комиссии

Члены комиссии

1. ТЕХНИЧЕСКОЕ ЗАДАНИЕ

1.1 Введение

В настоящее время наблюдается, быстрый темп роста применения вычислительных машин в различных сферах человеческой деятельности.

Необходимо отметить, что без компьютеров и соответственно компьютерных программ не обходится не одно предприятие или фирма.

Данная программа может быть использована в фирмах, нуждающихся в программе, использующей представленный алгоритм.

1.2 Основания для разработки

Задание на курсовую работу по программированию на языках ВУ.

1.3 Назначение разработки

Написать программу движения коня по шахматной доске. Конь должен сходить заданное количество ходов по клеткам доски, не наступая на одну и туже клетку два раза.

1.3.1 Функциональное и эксплуатационное назначение изделия

Данная программа предназначена для вывода ходов коня по шахматной доске.

В работе должны быть решены следующие задачи:

1) необходимо просчитать движение коня по шахматной доске;

2) необходимо цифрами вывести ходы коня на шахматной доске.

1.3.1.1 Перечень требований пользователя к программному изделию

Должны быть предусмотрены:

* Возможность выбора клетки для коня на шахматной доске;

* Отображение ходов коня в виде шахматной доски с нумерацией

сделанных ходов.

1.3.3 Стандарты

При разработке данного программного продукта были использованы следующие ГОСТы: ГОСТ 19.701- 90 (ИСО 5807 - 85), 2.304 - 88

1.3.4 Информационная совместимость

Модули программного комплекса должны быть совместимы между собой на уровне исходного языка, а также форматов используемых данных.

1.3.5 Программные ограничения, совместимость

Программное изделие должно быть написано на языке высокого уровня Dеlphi 7.0 и работать под управлением операционной системы Windows 2000 (Windows Хр). Для запуска разработки необходимо наличие ЕХЕ - файла программы (выполняемого файла), свободной оперативной памяти компьютера.

1.3.6 Требования к составу и параметрам технических средств (аппаратные ограничения)

Для работы программного изделия требуется:

* компьютер, Intel Pentium 4 CPU 3.06 GHz. 512MB RAM$

* жесткий диск.

1.3.7 Входные данные

Входными данными для моделируемых устройств, будут являться данные, вводимые с клавиатуры. Входными данными будет являться:

* клетка старта;

* количество ходов.

1.3.8 Процессы обработки

При нажатии на файл с расширением ЕХЕ запускается ролик, рассказывающий нам о программе. После этого мы видим форму, которая состоит из шахматной доски, окон для ввода позиций х, y и количества ходов коня и двух кнопок «Начала », «Сначала». Перед началом работы программы надо ввести исходные данные мы можем, как вписать позиции начальной клетки, так и в ручную, путем нажатия на выбранную клетку мышкой, после этого надо ввести количество ходов и нажать кнопку «начало». Иначе программа выдаст сообщение о невозможности начала работы в соответствии с неправильным вводом. Через некоторое время место доски появится ее аналог с просчитанными ходами, неиспользовавшиеся клетки будут пронумерованы нулем. При нажатии на кнопку «сначала», программа вернется на начало для ввода новых данных. При нажатии на крестик в верхнем правом углу программа закроется.

1.3.9 Выходные данные

Выходные данные являются доска с просчитанными на ней ходами.

1.3.10 Результатирующие компоненты

Программное изделие должно содержать: тексты программ, содержащие собой комплекс файлов, содержащих совокупности операторов языка программирования, и готовую программу, полученную в результате компиляции исходных модулей. Для запуска программы должен присутствовать запускной файл с расширением ЕХЕ, точечные рисунки: ukaz, Безымянный, kon, и фаил wmv «logo».

1.3.11 Носители информации

Программный комплекс должен размещаться в виде исполняемых файлов на жестком диске компьютера пользователя или на другом виде носителя информации.

1.4 Требования к программной документации

Пакет прикладных программ должен быть представлен в виде текстов исходных модулей на языке Delphi 7.0, а также инструкции пользователя.

2. РАБОЧИЙ ПРОЕКТ

2.1 Общие сведения

Данная программа предназначена для расчета ходов коня по шахматной доске, с выводом результата на экран. В начале мы вводим координаты клетки, откуда начнет ходить конь, и количество ходов. Также мы можем ввести координаты клетки по-другому, соответственно выбрав ее на предложенной доске. На указанной клетке появляется фигура шахматного коня. После этого надо нажать на кнопку «начать», через некоторое время появится аналог шахматной доски с указанием расчетов ходов. Нумерация клеток будет производиться с указанной нами клетки, не использовавшиеся ячейки будут нумероваться нулем. Скриншоты работающей программы предложены на рис. 2.1.1.

2.1.1 Рисунок 1

2.2 Описание логической структуры, внешних и внутренних ограничений и характеристик

Модуль Unit1. Рис.2

2.1.1 Рисунок 2

2.2.1.1 Процедура epEfButton1Click объекта TF1k

Данная процедура предназначена для преобразования вводимых данных во внутренний формат для устройства с одним блоком памяти для обрабатываемого значения.

2.2.1.2 Программные ограничения

Для работы функции необходимы динамические библиотеки и ресурсы операционной системы Windows плюс библиотеки Rxlib, MediaPack отвечающие инициализацию, работу с графическим интерфейсом пользователя, распределение памяти и ресурса процессора под задачи, обрабатывающие сообщения и ошибки операционной среды.

Для того чтобы функция могла быть выполнена, необходимо наличие файла unit1.pas, где и определена сама функция.

Таблица 3.1

2.2.1.4 Выходные данные

В качестве выходных, выступают преобразованные данные модуля unit1, перечисленные в таблице.

Таблица 3.2

2.2.2 Процедура epEfButton2Click объекта TF1k

Данная процедура предназначена для закрывания формы.

2.2.3 Процедура epEfButton3Click объекта TF1k

Данная процедура предназначена для удаления предыдущих расчетов и подготовки программы для новых установок.

2.2.4Процедура Image4-67Click объекта TF1k

Данная процедура предназначена для установки начальных данных.

Таблица 3.3

2.2.4.2Выходные данные

Таблица 3.4

2.2.5 Процедура Panel1Click объекта TF2k

Данная процедура предназначена для перехода от видео ролика на саму программу.

2.2.6 Функция NextStep объекта TF1k

Данная функция предназначена для расчета вводимых данных, требуемого результата.

2.3 Внутренние данные

Таблица 3.5

ПРИЛОЖЕНИЕ 1

x, y, allsteps

step>=allsteps Да

Нет

function NextStep StringGrid

ПРИЛОЖЕНИЕ 2

Код программы

unit Unit2;

interface

uses

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

Dialogs, MPlayer, ExtCtrls, regions;

type

TForm2 = class(TForm)

epRegionForm1: TepRegionForm;

Panel1: TPanel;

MediaPlayer1: TMediaPlayer;

procedure Panel1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Panel1Click(Sender: TObject);

begin

form2.Hide;

Form1.Show;

end;

end.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Grids, EPLabels, VCLBase, EPButtons, ExtCtrls, regions;

type

TForm1 = class(TForm)

Image1: TImage;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

StringGrid1: TStringGrid;

Image2: TImage;

Panel1: TPanel;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image7: TImage;

Image8: TImage;

Image9: TImage;

Image10: TImage;

Image11: TImage;

Image12: TImage;

Image13: TImage;

Image14: TImage;

Image15: TImage;

Image16: TImage;

Image17: TImage;

Image18: TImage;

Image19: TImage;

Image20: TImage;

Image21: TImage;

Image22: TImage;

Image23: TImage;

Image24: TImage;

Image25: TImage;

Image26: TImage;

Image27: TImage;

Image28: TImage;

Image29: TImage;

Image30: TImage;

Image31: TImage;

Image32: TImage;

Image33: TImage;

Image34: TImage;

Image35: TImage;

Image36: TImage;

Image37: TImage;

Image38: TImage;

Image39: TImage;

Image40: TImage;

Image41: TImage;

Image42: TImage;

Image43: TImage;

Image44: TImage;

Image45: TImage;

Image46: TImage;

Image47: TImage;

Image48: TImage;

Image49: TImage;

Image50: TImage;

Image51: TImage;

Image52: TImage;

Image53: TImage;

Image54: TImage;

Image55: TImage;

Image56: TImage;

Image57: TImage;

Image58: TImage;

Image59: TImage;

Image60: TImage;

Image61: TImage;

Image62: TImage;

Image63: TImage;

Image64: TImage;

Image65: TImage;

Image66: TImage;

Image67: TImage;

Image68: TImage;

procedure epEfButton1Click(Sender: TObject);

procedure epEfButton2Click(Sender: TObject);

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image9MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image10MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image11MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image12MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image13MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image14MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image15MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image16MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image17MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image18MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image19MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image20MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image21MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image22MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image23MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image24MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image25MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image26MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image27MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image28MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image29MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image30MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image31MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image32MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image33MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image34MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image35MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image36MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image37MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image38MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image39MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image40MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image41MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image42MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image43MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image44MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image45MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image46MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image47MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image48MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image49MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image50MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image51MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image52MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image53MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image54MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image55MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image56MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image57MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image58MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image59MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image60MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image61MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image62MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image63MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image64MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image65MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image66MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image67MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image4Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure Image8Click(Sender: TObject);

procedure Image9Click(Sender: TObject);

procedure Image10Click(Sender: TObject);

procedure Image11Click(Sender: TObject);

procedure Image12Click(Sender: TObject);

procedure Image13Click(Sender: TObject);

procedure Image14Click(Sender: TObject);

procedure Image15Click(Sender: TObject);

procedure Image16Click(Sender: TObject);

procedure Image17Click(Sender: TObject);

procedure Image18Click(Sender: TObject);

procedure Image19Click(Sender: TObject);

procedure Image20Click(Sender: TObject);

procedure Image21Click(Sender: TObject);

procedure Image22Click(Sender: TObject);

procedure Image23Click(Sender: TObject);

procedure Image24Click(Sender: TObject);

procedure Image25Click(Sender: TObject);

procedure Image26Click(Sender: TObject);

procedure Image27Click(Sender: TObject);

procedure Image28Click(Sender: TObject);

procedure Image29Click(Sender: TObject);

procedure Image30Click(Sender: TObject);

procedure Image31Click(Sender: TObject);

procedure Image32Click(Sender: TObject);

procedure Image33Click(Sender: TObject);

procedure Image34Click(Sender: TObject);

procedure Image35Click(Sender: TObject);

procedure Image36Click(Sender: TObject);

procedure Image37Click(Sender: TObject);

procedure Image38Click(Sender: TObject);

procedure Image39Click(Sender: TObject);

procedure Image40Click(Sender: TObject);

procedure Image41Click(Sender: TObject);

procedure Image42Click(Sender: TObject);

procedure Image43Click(Sender: TObject);

procedure Image44Click(Sender: TObject);

procedure Image45Click(Sender: TObject);

procedure Image46Click(Sender: TObject);

procedure Image47Click(Sender: TObject);

procedure Image48Click(Sender: TObject);

procedure Image49Click(Sender: TObject);

procedure Image50Click(Sender: TObject);

procedure Image51Click(Sender: TObject);

procedure Image52Click(Sender: TObject);

procedure Image53Click(Sender: TObject);

procedure Image54Click(Sender: TObject);

procedure Image55Click(Sender: TObject);

procedure Image56Click(Sender: TObject);

procedure Image57Click(Sender: TObject);

procedure Image58Click(Sender: TObject);

procedure Image59Click(Sender: TObject);

procedure Image60Click(Sender: TObject);

procedure Image61Click(Sender: TObject);

procedure Image62Click(Sender: TObject);

procedure Image63Click(Sender: TObject);

procedure Image64Click(Sender: TObject);

procedure Image65Click(Sender: TObject);

procedure Image66Click(Sender: TObject);

procedure Image67Click(Sender: TObject);

procedure epEfButton3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

type

sqArr = Array[1..8, 1..8] of integer;

var

x, y: integer;

f: TextFile;

arr: sqArr;

allsteps: integer;

function NextStep(arr:sqArr; x, y: Byte; step: Word): Boolean;

begin

Result := False;

if (x >= 1) and (y >= 1) and (x <= 8) and (y <= 8) then

begin

if arr[x, y] = 0 then

begin

inc(step);

arr[x, y] := step;

Result := True;

if step >= allsteps then

for x := 1 to 8 do

begin

for y := 1 to 8 do

Form1.StringGrid1.Cells[y-1,x-1]:=IntToStr(arr[x][y]);

end

else begin

if not NextStep(arr, x + 1, y + 2, step) then

if not NextStep(arr, x - 1, y + 2, step) then

if not NextStep(arr, x + 1, y - 2, step) then

if not NextStep(arr, x - 1, y - 2, step) then

if not NextStep(arr, x + 2, y + 1, step) then

if not NextStep(arr, x + 2, y - 1, step) then

if not NextStep(arr, x - 2, y + 1, step) then

if not NextStep(arr, x - 2, y - 1, step) then

Result := False;

end;

end;

end;

end;

procedure TForm1.epEfButton1Click(Sender: TObject);

begin

x:=StrtoInt(Edit1.Text);

y:=StrtoInt(Edit2.Text);

allsteps:=StrtoInt(Edit3.Text);

if (x='')or(y='')or(allsteps='')

then

Showmessage('Недостаточно условия для выполнения!')

else

begin

Panel1.Visible:=false;

if allsteps>63 then

Showmessage('Недопустимое кол-во ходов!!!')

else

ZeroMemory(@arr, SizeOf(arr));

NextStep(arr, x, y, 0);

end;

end;

procedure TForm1.epEfButton2Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image4.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image5.Picture.LoadFromFile('ukaz.bmp');

Image4.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image6.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Страницы: 1, 2, 3, 4, 5, 6, 7