Автор: admin

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РФ

АРХАНГЕЛЬСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

КУРСОВАЯ РАБОТА

Тема: «Игровая программа <15> »

2008

Оглавление.

1.Задание

Введение

3.Анализ и математическая постановка задачи

4.Разработка схемы алгоритма и её описание

4.1 Описание алгоритма работы основной программы

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

4.3 Графический интерфейс программы <15>

5.Разработка программы

5.1 Текст программы

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

5.3 Назначение и область применения программы

5.4 Входные и выходные данные

5.5 Используемые технические и программные средства

6.Описание процесса отладки

7.Инструкция пользователя

8.Заключение

9.Список литературы

Задание.

Смоделировать логическую игру «Пятнашки».

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

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

Программа фиксирует количество перемещений. Лучшим считается тот игрок, который упорядочит все фишки за наименьшее число ходов.

Введение

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

Широкое и многообразное применение ЭВМ предъявляет все более высокие требования к их программному обеспечению. В настоящее время насчитываются десятки языков программирования, c помощью которых можно общаться с вычислительной машиной.

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

Среди используемых в настоящее время языков программирования большое распространение получил язык Паскаль.

Язык Паскаль имеет уже двадцатилетнюю историю. Первая версия языка, предложенного его автором — профессором кафедры вычислительной техники Швейцарского федерального института технологии — Никласом Виртом, появилась еще в 1968 г. как альтернатива существующим и все усложняющимся языкам программирования, таким, как ПЛ/1, АЛГОЛ и ФОРТРАН, призванная облегчить изучение и использование языков программирования при сохранении их инструментальных средств.

В начале 80-х годов ПАСКАЛЬ еще более упрочил свои позиции с появлением трансляторов MS PASCAL и Turbo PASCAL для персональных ЭВМ. С этого времени язык Паскаль становится одним из наиболее важных и широко используемых языков программирования.

По своей идеологии Паскаль более близок к современной методике и технологии программирования. В частности, этот язык весьма полно отражает идеи структурного программирования, что отчетливо проявляется в основных управляющих структурах, предусмотренных в языке. Паскаль широко приспособлен для применения общепризнанной в настоящее время технологии нисходящего проектирования (пошаговой детализации). Это проявляется в том, что Паскаль может успешно использоваться для записи программы на разных уровнях ее детализации, не прибегая к помощи блок-схем или специального языка проектирования программ.

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

Анализ и математическая постановка задачиЦелью курсовой работы является написание игровой программы “Пятнашки “. Программа располагает на экране игровое поле размером 4*4.На поле расположено 15 фишек с цифрами и одна пустая клеточка, которая будет использоваться для перемещения. Нумерация фишек происходит произвольным образом.

Фишка, которую пользователь собирается переместить на новое место, должна распологаться рядом с пустой клеточкой. Если данное условие выполняется, то игрок может переместить фишку на новое место, иначе игрок выбирает новую фишку. Игра продолжается до тех пор, пока игрок не расставит фишки по порядку (номера фишек должны располагаться по возрастанию слева-направо, сверху-вниз), либо не пожелает выйти из игры досрочно.

В процессе игры программа должна фиксировать число перемещений фишек сделанных игроком. После того, как фишки будут расположены по порядку, программа сравнивает результат с другими результатами и, если он превосходит один из рекордов, то сразу заносится в таблицу результатов. Рассмотрим, каким образом программа может быть построена с математической (логической) точки зрения. Для этого определимся с теми действиями, которые должна будет выполнять программа:1. Формирование одномерного массива содержащего 16 элементов 2. Заполнение массива числами 1, 2, 3, 4, … 15 (один элемент массива остается пустым, он будет в дальнейшем представлять пустую клеточку) Элементы массива задаются случайным образом, с помощью генератора случайных чисел 3. Иизменение пользователем порядка расположения чисел в массиве4. Подсчет количества перемещений элементов в массиве5. Проверка расположения элементов в массиве.

6. Если элементы расположены по порядку, то программа фиксирует победу, в противном случае осуществляется переход к пункту №3

Повышенное внимание следует уделить пункту №3 {Иизменение пользователем порядка расположения чисел в массиве}. Программа должна предоставлять пользователю наглядную и удобную возможность перестановки элементов массива. Ввиду того, что игровое поле содержит всего одну пустую клетку, можно сформулировать простой принцип для каждой значащего элемента массива (здесь и далее условимся, что расположение фишек игрового поля будет полностью соответствовать расположению элементов в массиве на каждом этапе игры). Этот принцип заключается в том, что в случае, если возможность сдвига какой-либо фишки игрового поля существует, то она единственна. Сдвиг при этом происходит в сторону пустой клеточки.

Ввыделим основные этапы, которые должны будут реализовываться при выполнении пункта №3:

1. Пользователь выбирает одну из фишек игрового поля

2. Пользователь желает сдвинуть выбранную фишку

3. Происходит анализ возможности сдвига. Сдвиг возможен только в том случае, если активизированный элемент массива находится рядом с пустым элементом массива. Если условие не выполняется, то происходитпереход к пункту №1

4. Осуществляется сдвиг. В этом случае происходитследующая операция: активизированный элемент массиваоказывается на месте пустого элемента,а тот, в свою очередь, оказываетсянаместе активизированного

5. Число шагов сделанных пользователем увеличивается на единицу

После выполнения первых пяти пунктов происходит возвращение к пункту №1

На данном этапе детализации самых сложных, и в тоже время наиболее интересных, пунктов задачи можно прерваться и перейти к разработке алгоритма. Оставшиеся пункты не представляют из себя особой сложности и поэтому не нуждаются в столь подробной детализации.

Разработка схемы алгоритма и её описаниеОписание алгоритма работы основной программы

Логическая работа программы построена на цикле с постусловием. В теле цикла находится процедура, обеспечивающая работу пользователя с меню, и оператор варианта, который содержит три основных процедуры программы (в зависимости от того, какое значение имеет выражение селектор выполняется одна из процедур).

Структурограмма основной программы

Цикл с постусловием выполняется до тех пор, пока пользователь не выберет в меню команду {E x i t}. В этом случае происходит завершение работы в графическом режиме и осуществляется переход в текстовой режим, а затем происходит выход из основной программы.

Ррезультат выполнения оператора варианта зависит от того, какое значение будет иметь параметр – переменная (далее просто параметр) процедуры, которая обеспечивает работу с меню(далее в тексте просто процедура menu).Выражение селектор оператора варианта принимает те же значения, что и выходной параметр процедуры menu.Отметим то, что ветвь оператора else отсутствует. Таким образом, если значение выражения-селектор не совпадает ни с одной из меток варианта оператора case, то данный оператор считается пустым и пропускается.

Параметр процедуры menu может принимать одно из четырех значений: 0, 1, 2, 3.Оператор case, в свою очередь содержит три метки : 0, 1, 2. Когда параметр принимает значение равное 3 (что соответствует пункту меню {Exit}), то оператор case пропускается и происходит выход из цикла и завершение работы программы, о чем было сказано выше.

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

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

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

В первую очередь она обеспечивает интерфейс меню программы <15> и работу с ним пользователя. На экране игрок наблюдает меню, состоящее из 4-x пунктов. Выбор того или иного пункта осуществляется с помощью стандартных клавиш (up,down), что не сомненно очень удобно для любого пользователя, работающего с данной программой. Перемещение по пунктам меню осуществляется посредством цикла с постусловием. В теле цикла располагается несколько операторов условного перехода. В зависимости от того, какая клавиша нажата(up или down), переменной присваивается некоторое значение. После этого координаты указателя изменяются, и он становится на соответствующий пункт (в качестве указателя выступает закрашенный прямоугольник, цвет которого отличается от цвета пунктов меню). Далее проверяется условие выхода из цикла. Если нажата клавиша Enter, то осуществляется выход из цикла, иначе пользователь выбирает другой пункт меню. Таким образом, перемещение по пунктам меню происходит до тех пор, пока не нажата клавиша ввода.

Когда пользователь нажимает ввод, то происходит выход из цикла и, то значение, которое имеет параметр-переменная процедуры menu передается в оператор варианта.Итак, если значение параметра 0,то начинается игра.

В этом случае осуществляется очистка экрана. Числу шагов, сделанных пользователем присваивается значение ноль. Далее следует создание интерфейсной части игры. В частности печать на

экране различных сообщений (как выйти из игры, число ходов, сделанных игроком), заливка фона экрана, рисование коробочки с последующей ее раскраской. До тех пор пока игрок не сделал ни одного перемещения число шагов равно нулю и на экране просто печатается значение 0.

Как только игрок поизведет первую перестановку, колличество шагов увеличивается на единицу и это сразу отображатся на экране. Для этого каждый раз приходится обновлять ту область экрана, где осуществляется печать результата. Это достигается путем рисования в это области каждый раз нового графического объекта, в данном случае прямоугольной области. Цвет последней на порядок светлее, чем цвет, которым выводится число перестановок. Так как колличество перемещений постоянно изменяется, то данная операция(обновление области) должна осуществляться циклически, Поэтому она находится в основном цикле с постусловием, который будет описан чуть позже. Отмечу еще одну не мало важную деталь, для того, что бы вывести результат на экран необходимо предварительно преобразовать число в последовательность символов.

После того как разработана интерфейсная часть игры(хотя по ходу будут некоторые дополнения) производится заполнение массива случайными числами. Для этого сначала осуществляется инициализация генератора случайных чисел. Непосредственно после этого происходит заполнение массива. Последний элемент массива задается равным 0.

Mas[16]:=0

Первый элемент массива задается до выполнения цикла следующим образом:

Mas[1]:=random[14]+1

Так как процедура random в данном случае выбирает целое число в интервале от 0 до 14, то необходимо добавление к этому числу 1, что бы избежать значение 0. Заполнение остальных элементов массива осуществляется посредством цикла с постусловием. В цикле происходит задание очередного элемента массива с помощью процедуры random и проверка не равен ли данный элемент предыдущим элементам. Если оказывается, что

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

ря работает до тех пор, пока не будет заполнен весь массив.

Цикл с параметром используется для того, чтобы перебрать все элементы массива до n-1 и проверить, нет ли среди них элемента, значение которого совпадает со значением n-ого элемента. Если такового не оказывается, то n-ому элементу присваивается текущее значение.

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

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

После того как ‘оформлено‘ игровое поле, случайным образом сформирован массив чисел, следует этап, на котором происходит обработка результата нажатия пользователем клавиши. Игрок активизирует одну из фишек при помощи клавиш UP, DOWN, LEFT,

RIGHT. Коды соответствующих клавиш обрабатываются, и в зависимости от того какая клавиша нажата, происходит изменение координат курсора передвигающегося по фишкам игрового поля. Первоночально координаты курсора подобранны так, что бы он находился в правом нижнем углу.

Как только пользователь попытается ‘сдвинуть‘ активизированную фишку на пустую клеточку (с помощью клавиши пробела), то здесь происходит обработка ситуации на возможность сдвига. Если фишка, которую выбрал пользователь, расположена рядом с пустой клеточкой, то происходит обмен. Элементы массива меняются местами.

Если обмен произошел, то число шагов увеличивается на единицу и производится печать на экране нового числа (данная процедура была описана на начальной стадии алгоритмизации).

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

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

Вывод таблицы рекордов

Прежде всего, осуществляется считывание результатов из файла.

После этого следует процедура очистки экрана. Затем происходит создание фона, на котором будут выводиться данные из файла. Распечатка осуществляется без выхода из графического режима, благодаря чему таблица получается красочной и приятной для восприятия. В текстовом режиме создать такой эффект невозможно. Имя игрока и его результат разделяются точками. Имя игрока, имеющего лучший результат, выделяется другим цветом.

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

Вывод помощи

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

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

данные распечатываются блоками по 24 строки. Каждый раз проверяется условие, закончен ли файл и не нажал ли игрок Esc.После каждого блока пользователь должен подтвердить продолжение вывода помощи, нажав клавишу Enter, либо прервать вывод, нажав клавишу Esc. И в первом и во втором случае игрок попадает в меню программы <15>.

Графический интерфейс программы <15>

Сочетание подобранных цветов приятно для восприятия. При небольшом наборе цветов в палитре, отсутствуют те, что имеют ‘кислотные’ оттенки. Данный факт кому-то может показаться не столь значимым, но очевидно то, что желание пользователя работать с той или иной программой, будь то игровая (или какая другая программа), зачастую определяется не только сюжетом, жанром, смыслом самой игры, но и тем интерфейсом, который предлагают пользователю автор (или авторы) программы.

Разработка программы

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

Текст основной программы

program petnash;

uses

crt,graph,

petnash1;{Модуль,содержащий основные подпрограммы}

Var

grDriver,grMode,ErrCode,men:integer;

Begin(*petnash*)

{Инициализация графического режима}

grDriver:=Detect;

InitGraph(grDriver, grMode,»);

ErrCode := GraphResult;

if ErrCode <> grOk

then

begin

Writeln(‘Graphics error:’,GraphErrorMsg(ErrCode));

Writeln(‘Press — <ENTER>’);

Readln;

Halt;

end;

{Установка текущих параметров цвета и линии}

setcolor( 6);

setlinestyle(0,0,1);

recod; {Считывание данных из файла с лучшими результатами}

repeat

menu(men);{Процедура,обеспечивающая работу с меню}

case men of

0:game; {ИГРА}

1:best; {ЛУЧШИЕ ИГРОКИ}

2:help; {ОБ ИГРЕ}

end;(*case*)

until men=3; {ВЫХОД ИЗ ИГРЫ}

closegraph {Выход из графического режима в текстовой}

END.(*petnash*)

Текст модуля

Unit petnash1;

(**************)Interface(*****************)

uses

crt,graph;

const

{Коды клавиш,используемых в программе }

Up=#72;

Down=#80;

Left=#75;

Right=#77;

Space=#32;

Esc=#27;

Enter=#13;

type

strok=string[10];

var

stroka:array[1..12] of strok;

f02,f03:text;

st02:string[10];

stl2:string[20];

a,b2,pl,kl,o:char;

st,st1:string[5];

step:string[5];

u,vict:boolean;

mas:array [1..16] of integer;

a02,b3,c02,b,b1,d,e,e02,i,i1,j,n,r,steps,x,

x1,y,y1,yme:integer;

grDriver,grMode:integer;

m,m1,m2,m3:integer;

p,p1,p2,p3:pointer;

procedure recod;

procedure buk(a,b,c:integer;s:char);

procedure victory;

procedure nomer(xp,yp,ip:integer);

procedure kv(xk,yk:integer);

procedure tabl(xv,yv:integer;klv:char;var xv1,yv1:integer);

procedure menu(var ym:integer);

procedure game;

procedure best;

procedure help;

(*************)Implementation(****************)

(*Процедура считывания таблицы рекордов*)

(*из файла ‘rezult.dat’*)

procedure recod;

begin(*recod*)

assign(f02,’rezult.dat’);

reset(f02);{Открытие файла с результатами}

for i:=1 to 10 do {Чтение из файла}

readln(f02,stroka[i]);

end;(*recod*)

(*Процедура движения заданной буквы по экрану *)

procedure buk(a,b,c:integer;s:char);

begin (*buk*)

for I:=a downto b do

begin

{Буква рисуется темным цветом}

setcolor(1);

settextstyle(1,0,10);{Параметры текста}

outtextxy(c,i,s);

{Буква рисуется таким же цветом,

что и фон экрана}

setcolor(14);

settextstyle(1,0,10);

outtextxy(c,i,s);

end;

{Рисование буквы по ее конечным координатам}

setcolor(1);

settextstyle(1,0,10);

outtextxy(c,b,s);

end;(*buk*)

(*Процедура победы*)

procedure victory;

begin (*victory*)

{Создание на желтом фоне надписи Victoty}

setbkcolor(14);

buk(480,220,100,’V’);

buk(480,220,170,’i’);

buk(480,220,205,’c’);

buk(480,220,255,’t’);

buk(480,220,300,’o’);

buk(480,220,359,’r’);

buk(480,220,410,’y’);

{Очерчивние надписи 2 линиями}

setcolor(4);

setlinestyle(0,0,3);

for i:=115 to 405 do

begin

delay(3);

line(i,355,i+20,355);

line(i,240,i,240);

end;

for i:=455 to 470 do

begin

delay(3);

line(i,355,i+5,355)

end

end;(*victory*)

(* Процедура рисования номера пятнашки*)

procedure nomer(xp,yp,ip:integer);

begin (*nomer*)

{Преобразование числа mas[ip] в

посл-ть символов}

str(mas[ip]:1,st);

{Вывод посл-ти символов st}

outtextxy(175+xp*86,120+yp*86,st);

end;(*nomer*)

(*Процедура рисования парал-да*)

procedure kv(xk,yk:integer);

begin(*kv*)

bar3d(160+xk*86,100+yk*86,235+xk*86,

175+yk*86,7,true);

end;(*kv*)

(*Процедура смены активной таблички*)

procedure tabl(xv,yv:integer;klv:char;var

xv1,yv1:integer);

begin(*tabl*)

{Фишка(табличка),которая была активизирована

рисуется таким же цветом, что и остальные

фишки}

setcolor(13);

kv(xv,yv);

{Надпись номера фишки}

if mas[4*yv+xv+1]<>0 then

nomer(xv,yv,4*yv+xv+1);

{Нажатие пользователем одной из клафиш case

управления}

klv of

Down :if yv<3 then yv:=yv+1;

Up :if yv>0 then yv:=yv-1;

Left :if xv>0 then xv:=xv-1;

Right :if xv<3 then xv:=xv+1;

end;(*case*)

xv1:=xv;

yv1:=yv;

{Фишка, которая становится активизированной,

рисуется темным цветом}

setcolor(1);

kv(x,y);

{Надпись номера активизированной фишки}

if mas[4*yv+xv+1]<>0

then nomer(x,y,4*y+x+1);

end;(*tabl*)

(*Процедура меню*)

procedure menu(var ym:integer);

var

om:char;

begin(*menu*)

ym:=0;

cleardevice; {Очистка графического экрана}

{Рисование тени пунктов меню,прямоугольники

серого цвета}

setcolor(8);

setfillstyle(1,8);

bar(45,152,615,202);

bar(45,222,615,272);

bar(45,292,615,342);

bar(45,362,615,412);

fillellipse(304,62,210,35);

{Рисование пунктов меню,прямоугольники синего

цвета}

setcolor(1);

setfillstyle(1,1);

bar(35,145,605,195);

bar(35,215,605,265);

bar(35,285,605,335);

bar(35,355,605,405);

{Рисование эллипса под надписью ***MENU***}

fillellipse(298,57,210,35);

{Надписи на экране об авторе прграммы}

setcolor(12);

settextstyle(1,0,1);

outtextxy(20,430,’Copyright Software 1998′);

outtextxy(20,450,’Written by Volkov

Konstantin’);

{Надпись ***MENU*** печатается серым цветом,

тем самым создается эффект тени}

setcolor(8);

settextstyle(1,0,6);

outtextxy(142,33,’*** MENU ***’);

{Печать надписи ***MENU*** синим цветом}

setcolor(10);

outtextxy(140,30,’*** MENU ***’);

setbkcolor(9); {Цвет фона экрана}

repeat

setfillstyle(1,5); {Орнамент и цвет

заполнения полоски-указателя}

{Полоска,передвигающаяся по пунктам меню}

bar(35,145+70*ym,605,195+70*ym);

{Печать пунктов меню}

outtextxy(50,135,’Game’);

outtextxy(50,205,’Best players’);

outtextxy(50,275,’About this game’);

outtextxy(50,345,’Exit’);

om:=readkey;

{При переходе указателя на другой пункт,

возврашение пункту меню прежнего цвета}

setfillstyle(1,1);

bar(35,145+70*ym,605,195+70*ym);

{Изменение координат указателя, в

зависимости от нажатия пользователем

однойиз клавиш управления}

if om=up then ym:=ym-1;

if om=down then ym:=ym+1;

if ym=-1 then ym:=3;

if ym=4 then ym:=0;

setcolor(10); {Цвет пунктов меню}

{Создание звукового эффекта при перемещении

по пунктам меню}

sound(300);

for i:=-maxint to maxint do

j:=j;

nosound;

until om=Enter ;

end;(*menu*)

(* Процедура начала игры *)

procedure game;

begin(*game*)

cleardevice; {Очистка экрана}

steps:=0;{Число шагов 0}

{Рисование области, на фоне которой будет

выводится кол-во шагов}

setfillstyle(1,3);

bar(10,90,130,155);

setfillstyle(1,7);

bar(30,120,80,145);

{Обведение области темными линиями}

setlinestyle(0,0,1);

setcolor(1);

rectangle(10,90,130,155);

rectangle(29,119,81,146);

setlinestyle(0,0,1);

{Печать надписи и кол-ва шагов,

пока число шагов просто 0}

setcolor(4);

settextstyle(0,0,1);

outtextxy(20,100,’Number steps ‘);

outtextxy(40,130,’0′);

setcolor(13);

vict:=false; {Победа не инициализирована}

setfillstyle(1,14); {Параметры заполнения

кубика}

bar3d(152,86,509,445,10,true);{Рисование

коробки}

{Создание в верхней части экрана полоски и

надписи на ней}

bar(0,0,639,50);

settextstyle(7,0,5);

outtextxy(125,2,’* 15 *’);

{Создание в нижней части экрана полоски и

надписи на ней}

bar(0,450,639,480);

settextstyle(7,0,3);

outtextxy(80,450,’Press Esc for quit to

main menu’);

{Задание прежних параметров}

settextstyle(7,0,5);

setfillstyle(1,11);

{Включение генератора случайных чисел}

randomize;

{Заполнение массива случайными числами

от 1 до 15}

mas[16]:=0;

mas[1]:=random(14)+1;

n:=2;

repeat

u:=true;

while u do

begin{Раскладывание пятнашек}

j:=random(15)+1;

u:=false;

for i:=1 to n-1 do

{Проверка элементов массива на

равенство друг другу}

if mas[i]=j then u:=true;

end;{Раскладывание пятнашек}

mas[n]:=j;

n:=n+1;

until n=16;{Условие выхода заполнение всего

массива}

{Рисование фишек игрового поля (табличек)}

for j:=0 to 3 do

for i:=0 to 3 do

kv(i,j);

{Рисование фона на котором расположена

коробка}

setbkcolor(7);

{Разкраска коробки}

setfillstyle(1,8);

floodfill(157,90,13);

setfillstyle(1,3);

floodfill(168,82,13);

floodfill(513,90,13);

setfillstyle(1,11);

{Нумерация табличек}

n:=1;

for j:=0 to 3 do

for i:=0 to 3 do

if (i<>3) or (j<>3) then

begin

nomer(i,j,n);

n:=n+1;

end;

x1:=3;

y1:=3;

x:=3;

y:=3;

{Рисование таблички в нижнем правом

углу,пока не сделанно ни одного хода}

setcolor(1);

setfillstyle(1,11);

bar3d(418,358,493,433,7,true);

repeat

kl:=readkey;

tabl(x,y,kl,x,y); {Cмены активной

таблички}

{Проверка условия нажатия клавиши пробел}

if kl=Space then

begin(*if1*)

u:=(abs(x1-x)=1) and (abs(y1-y)=0) or

(abs(x-x1)=0) and (abs(y1-y)=1);

{Условие перестановки элементов

массива}

if u then

begin(*if2*)

{Элементы массива, которые меняются

местами}

i:=4*y+x+1;

i1:=4*y1+x1+1;

setcolor(11);

nomer(x,y,i);

setcolor(13);

nomer(x1,y1,i);

n:=mas[i1]; {Перестановка элементов

массива}

mas[i1]:=mas[i];

mas[i]:=n;

x1:=x;

y1:=y;

steps:=steps+1; {Увеличение числа

шагов на единицу}

{Вывод на экран числа шагов}

setfillstyle(1,7);

bar(30,120,80,145);{Рисование табл.}

setcolor(4);

str(steps,st1);

settextstyle(0,0,1);

outtextxy(40,130,st1);

setcolor(13);

settextstyle(7,0,5);

setfillstyle(1,11);

{Проверка следования чисел в массиве}

u:=true;

j:=0;

n:=0;

repeat

j:=j+1;

n:=n+1;

if (n<>mas[j]) and (n<>12)

then u:=false;

if (n=11) and (mas[12]=0)

then j:=j+1;

until mas[j]=15;

if u and ((mas[15]=15) or

(mas[16]=15))

then

begin(*if3*)

pl:=Esc;{Выход из цикла}

vict:=true;{Инициализация победы}

end;(*if3*)

end;(*if2*)

end;(*if1*)

{Игрок нажал клавишу Esc}

if kl=Esc

then

begin (*if*)

{Помещение странички в буфер

посредством разбиения

ее на 4 части}

m:=imagesize(0,0,320,240);

getmem(p,m);

getimage(0,0,320,240,p^);

m1:=imagesize(320,0,639,240);

getmem(p1,m1);

getimage(320,0,639,240,p1^);

m2:=imagesize(0,240,320,480);

getmem(p2,m2);

getimage(0,240,320,480,p2^);

m3:=imagesize(320,240,639,480);

getmem(p3,m3);

getimage(320,240,639,480,p3^);

{Вывод меню, после того как игрок

нажал Esc}

cleardevice;

setbkcolor(0);

b3:=0;

repeat

{Рисование двойной рамочки}

setcolor(1);

setlinestyle(0,0,1);

rectangle(243,183,417,257);

rectangle(248,188,412,252);

setfillstyle(1,14);{Орнамент и

цвет заполнения указателя}

{Указатель-выбор пункта}

bar(250,190+30*b3,410,220+30*b3);

setcolor(13);

settextstyle(8,0,1);

outtextxy(275,195,’Continue . .

.’);

outtextxy(275,220,’Exit ‘);

b2:=readkey;

setfillstyle(1,0);

bar(250,190+30*b3,410,220+30*b3);

{Движение по пунктам меню}

if b2=up then b3:=0;

if b2=down then b3:=1;

if b3=0

then kl:=’z'{Выбран пункт

Continue}

else kl:=Esc{Выбран пункт Exit}

until b2=Enter;

end; (*if*)

{Если выбран пункт Continue,то

страничка возвращается из буфера,а

затем буфер очищается}

if kl=’z’

then

begin

cleardevice;

setbkcolor(7);

putimage(0,0,p^,normalput);

freemem(p,m);

putimage(320,0,p1^,normalput);

freemem(p1,m1);

putimage(0,240,p2^,normalput);

freemem(p2,m2);

putimage(320,240,p3^,normalput);

freemem(p3,m3);

settextstyle(7,0,5);

setfillstyle(1,11)

end

until (kl=Esc) or (pl=Esc) ;

{Демонстрация победы после завершения игры}

if vict then

begin(*vict*)

cleardevice;{Очистка экрана}

victory;{Процедура победы}

{Вывод на экран числа шагов,сделанных

пользователем, и поздравления}

setcolor(4);

settextstyle(7,0,5);

outtextxy(100,50,’You are win ! ! !’);

str(steps,step);

outtextxy(100,100,’You made’);

outtextxy(150,150,step);

outtextxy(250,150,’steps.’);

repeat

until keypressed;

kl:=readkey;

i:=0;

{Сравнение результатов}

repeat

i:=i+1;

val(stroka[i*2],b,x);

until (b>steps) or (i=6);

{Если результат игрока превосходит один из

результатов в таблице,он заносится в

таблицу}

if i<6 then

begin(*Переформирование таблицы

рекордов*)

for j:=5 downto i do

begin(*Сдвиг рекордов*)

stroka[j*2+1]:=stroka[j*2-1];

stroka[j*2+2]:=stroka[j*2];

end;(*Сдвиг рекордов*)

{Преглашение игрока к вводу имени}

cleardevice;

setbkcolor(0);

outtextxy(10,130,’Please, enter your

name :’);

{Создание рамочки}

setcolor(10);

rectangle(100,225,525,290);

rectangle(98,223,527,292);

{Ввод имени игрока}

kl:=readkey;

j:=1;

stroka[i*2-1]:=»;

u:=not(kl=enter);

while u do

begin(*Чтение имени игрока*)

u:=(kl>’ ‘) and (kl<‘z’) and (j<11);

if u

then

begin(*нц*)

stroka[i*2-1]:=stroka[i*2-1]+kl;

outtextxy(80+j*40,230,kl);{Печать

буквы на новой позиции}

j:=j+1;

end;(*кц*)

kl:=readkey;

u:=not(kl=Enter);

end;(*Чтение имени игрока*)

{Если игрок не ввел имя, то его имя

Noname}

if length(stroka[i*2-1])=0

then stroka[i*2-1]:=’Noname’;

stroka[i*2]:=step;

(*Запись рекорда в файл*)

rewrite(f02);

for i:=1 to 10 do

writeln(f02,stroka[i]);

close(f02);

end;(*Переф. табл. рекорд.*)

end;(*vict*)

end;(*game*)

(*Процедура вывода таблицы рекордов*)

procedure best;

begin(*best*)

cleardevice; {Очистка экрана}

{Рисование двойной рамочки}

setlinestyle(0,0,3);

setcolor(13);

rectangle(13,138,621,434);

rectangle(9,132,625,440);

setlinestyle(0,0,1);

{Задание параметров заполнения рамочки}

setfillstyle(1,14);

floodfill(24,140,13);

{Надпись лучшие игроки}

setcolor(10);

settextstyle(7,0,7);

outtextxy(30,45,’Best players are:’);

{Печать таблицы результатов}

setcolor(13);

settextstyle(0,0,100);

for a02:=1 to 5 do

begin(*for a02*)

str(a02,stl2);{Преобразование числа в

посл-ть}

c02:=length(stroka[a02*2-1]);

stl2:=stl2+’ ‘+stroka[a02*2-1];

for e02:=1 to 11-c02 do{Разделение имени

игрока и результата точками}

stl2:=stl2+’.’;

for e02:=1 to 5-length(stroka[a02*2]) do

stl2:=stl2+’.’;

stl2:=stl2+stroka[a02*2];

outtextxy(40,100+50*a02,stl2);

if a02<>0 then setcolor(9); {Выделение

лучшего игрока другим цветом}

end;(*for a02*)

repeat

until keypressed;

kl:=readkey;

setcolor(13);

end;(*best*)

(*Процедура вывода помощи*)

procedure help;

var

st3:string;

begin(*help*)

assign(f03,’pravila.dat’);

reset(f03); {Открытие файла pravila.dat}

closegraph; {Выход из графического режима}

clrscr; {Очистка экрана}

kl:=’n’;

while not(eof(f03)) {Не конец файла} and

(kl<>Esc) {Не нажата кл. Esc} do

begin {нц1}

i:=1;

while (i<25) {Страница} and not(eof(f03)) do

begin {нц2}

i:=i+1;

readln(f03,st3); {Чтение из файла

элементов строки st3}

writeln(»,st3); {Печать

содержимого строки st3 }

{Условие необходимое для того,

чтобы в конце не нажимать Enter 2 раза}

if eof(f03)

then kl:=enter

else kl:=#10

end;{кц2}

gotoxy(12,25);

repeat {Ожидание нажатия клавиши Enter

или Esc}

if keypressed then kl:=readkey;

until (kl=enter) or (kl=esc);

end;{кц1}

clrscr;

gotoxy(21,12);

writeln(‘Нажмите любую клавишу для выхода в

меню’);

repeat

until keypressed;

kl:=readkey;

kl:=’n’;

{Инициализация графического режима и установка

прежних параметров}

InitGraph(grDriver, grMode,»);

setbkcolor(11);

setcolor(13);

setlinestyle(0,0,3);

end;(*help*)

END.

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

В программе <15> были использованы следующие типы:

type

strok = string[10];

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

В программе <15> были использованы следующие глобальные переменные:

Stroka : array[1..12] of strok;

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

f02,f03:text;

Текстовые переменные (файлов rezult.dat,pravila.dat)

st02:string[10];

Cтрока длинною в 10 символов,используется для работы с таблицей

stl2:string[20];

Строка длинною в 20 символов,используется для работы с таблицей

a,b2,pl,kl,o:char;

Переменные,которым присваиваются значения различных клавиш

st:string[5];

Номер фишки

st1,step:string[5];

Число ходов,преобразованных в последовательность символов

u:boolean;

Логическая переменная,принимающая значение true или false,используется при чтении имени игрока

vict:boolean;

Инициализирует процедуру победы,в случае если vict=true

mas:array [1..16] of integer;

Массив номеров фишек,элемент массива принимает случайное значение от 1 до 16

p,p1,p2,p3:pointer;

Переменная типа-указатель, в которую помещается адрес выделенной области

m,m1,m2,m3:integer;

Размер создаваемой переменной в байтах

Далее идет описание переменных типа integer:

grDriver-тип графического драйвера

ErrCode-значение ф-ии graphresult

i,j,n-параметры циклов

i1-номер пустой позиции

grMode-режим работы граф. адаптера

steps-текущее кол-во шагов

x,x1,y,y1-относительные координаты

st02-имя или кол-во очков игрока

a02-параметр цикла

c02-длина имени игрока

e02-параметр цикла

b- кол-во очков в табл. рекордов

men- положение курсора в меню

Процедуры

procedure recod;

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

procedure zz1(a,b,c:integer;s:char);

Используется для перемещения заданной буквы по экрану

procedure victory;

Создает эффект осыпания букв на экран. В результате получается надпись Victory.

procedure nomer(xp,yp,ip:integer);

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

procedure kv(xk,yk:integer);

Рисование параллелепипеда

Procedure tabl(xv,yv:integer;klv:char;var xv1,yv1:integer);

Процедура смены активной табличики. В зависимости от того, какая клавиша нажата UP,DOWN,LEFT,RIGHT соответствующим образом изменяются координаты таблички, и та фишка, которая была активизирована, рисуется таким же цветом, как и все остальные, а новая активизированная фишка прорисовывается другим цветом.

procedure menu(var ym:integer);

Обеспечивает работу пользователя с меню и создание интерфейсной части меню программы <15> (более подробно эта процедура описывается в разделе алгоритмизации)

procedure game;

Процедура начала игры, осуществляет подготовку к игре всех необходимых параметров и обеспечивает сам процесс игры

procedure best;-процедура вывода в графическом режиме таблицы с лучшими результатами

procedure help;-процедура вывода помощи в игре

Последние три процедуры подробно описываются в разделе алгоритмизации.

Назначение и область применения программы.

Цель создания данной программы — развлечение играющих, совершенствование их умственного и логического мышления. Программа может применяться в качестве игровой на разных типах персональных компьютеров и распространяется как freeware, при соблюдении условия as is.

Входные и выходные данные.

Входные данные — коды нажатых в режиме реального времени клавиш, а именно клавиши управления курсором UP, DOWN, LEFT, PIGHT, а так же ESC и ENTER.

Выходные данные — графическая информация на дисплее, файлы данных, содержащие список рекордов и помощь игроку.

Используемые технические и программные средства

Программа была написана и откомпилирована наPent 733/256/64mGF/40Gb под управлением операционной системы WinXp.

Техническая документация к игровой программе <15> была подготовлена с помощью Microsoft Word 2002 в операционной среде WINDOWS XP.

Текст программы написан в среде программирования Borland Pascal 7.0

Описание процесса отладки

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

Во время работы программы так же выявлены некоторые недочеты, которые были устранены после доработки программы.

Инструкция пользователя

Программа запускается под управлением операционной системы MS-DOS из каталога, в котором содержатся следующие файлы:

petnash.exe — выполняемый файл

rezult.dat — файл данных, содержащий список рекордов.

pravila.dat- файл, содержащий информацию об игре

tscr.chr, trip.chr, lcom.chr- файлы данных, содержащие шрифты

Для работы программы требуется от 50 килобайтов свободной оперативной памяти, видеоадаптер и процессор.

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

После небольшой заставки вы попадете в основное меню,содержащее следующие пункты :

1 Game

2 Best players

3 About this game

4 Exit

При выборе пункта :

Game — вы попадаете соответственно в игру

Best players — вам предоставляется список лучших игроков

About this game — вы получаете полную информацию об игре «15»,то есть ту информацию, которую вы изучаете в данный момент

Exit — выход в DOS

ПРАВИЛА

Для начала игры, выберите в главном меню пункт Game и нажмите Enter. На экране Вашего компьютера появится коробочка с табличками пронумерованными от 1 до 15 и одна пустая фишка.

Например:

Ваша задача, передвигая пятнашки по дну коробочки, расположить их в порядке возрастания как это представленно на следующих рисунках :

Наилучшим результатом считается выполнение задания за наименьшее число ходов. Ходом считается передвижение одной пятнашки на одну позицию. Если вы собрали ‘пятнашки’ за наименьшее число ходов по сравнению с результатами предшествуюших игроков, то ваш результат заносится в список лучших игроков.

Для выбора пятнашки используйте следующие клавиши на

вашей клавиатуре:

UP

LEFTRIGHT

DOWN

Для того, что бы передвинуть пятнашку на свободное место

используйте клавишу пробел.

Заключение

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

При оформлении курсовой работы был получены навыки оформления программной документации, а также большой практический опыт работы в Microsoft Word 2002 и Borland Pascal 7.0.

Список литературы

Конструирование программ, Методические указания №2133 к курсовой работе, Рязань, РГРТА, 1993.

А.М. Епанешников, В.А. Епанешников, Программирование в среде Turbo Pascal 7.0, М, Диалог-Мифи, 1998

Новичков В. С., Парфилова Н. И., Пылькин А. Н., Паскаль,

М, Высшая школа, 1994

Питер Нортон, Персональный компьютер изнутри, М, Бином, 1995

http://pascal.dax.ru/ — Всё о Turbo Pascal

http://borlpasc.narod.ru/ — Информация о Turbo Pascal

1. Теория. Основные понятия и инструменты форматирования текстового процессора MS Word 97. Операции с фрагментами текста в MS Word 97. Типы шрифтов и их использование. Ввод греческих и математических символов.
Подготовка документов к печати.

Microsoft Word — мощный текстовой процессор, предназначенный для выполнения всех процессов обработки текста: от набора и верстки, до проверки орфографии, вставки в текст графики, распечатки текста. Он работает с многими шрифтами ,как с русским ,так и с любым из двадцати одного языка мира. В одно из многих полезных свойств Word входит автоматическая коррекция текста по границам, автоматический перенос слов и правка правописания слов, сохранение текста в определенный устанавливаемый промежуток времени, наличие мастеров текстов и шаблонов, позволяющих в считанные минуты создать деловое письмо, факс, автобиографию, расписание, календарь и многое другое. Word обеспечивает поиск заданного слова или фрагмента текста, замену его на указанный фрагмент, удаление, копирование во внутренний буфер или замену по шрифту, гарнитуре или размеру шрифта, а так же по надстрочным или по подстрочным символам. Наличие закладки в тексте позволяет быстро перейти к заложенному месту в тексте. Можно так же автоматически включать в текст дату, время создания, обратный адрес и имя написавшего текст. При помощи макрокоманд Word позволяет включать в текст базы данных или объекты графики, музыкальные модули в формате *.wav. Для ограничения доступа к документу можно установить пароль на текст, который
Word будет спрашивать при загрузке текста для выполнения с ним каких-либо действий. Word позволяет открывать много окон для одновременной работы с несколькими текстами, а так же разбить одно активное окно по горизонтали на два и выровнять их.
Вкратце остановимся на меню.

В меню находятся следующие опции: , ,
, , , ,
, , , ,
, , . Эти надписи означают соответственно: создание нового документа или шаблона; открытие уже существующего; закрытие всех окон существующего документа или шаблона; сохранение существующего документа или шаблона; сохранение копии документа в другом файле; сохранение документа в формате HTML открытого файла, версии файла; изменение параметров страниц выделенных разделов; отображение страниц так, как они будут напечатаны; печать активного документа; отправление файла другим пользователям; свойства документа; выход из Word с запросом о сохранении документа.

В меню находятся соответствующие опции: ,
, , , , , , , , ,
, , , . Эти надписи означают соответственно: отменяет последнюю операцию; повторяет последнюю операцию; вырезает выделение и помещает его в буфер обмена; копирует выделение в буфер обмена; вставляет содержимое буфера обмена в точку ввода; делает гиперссылку; вставляет содержимое буфера обмена как связанный или внедренный объект либо объект иного формата; удаляет выделение без помещения его в буфер обмена; выделяет весь документ; ищет указанный текст или оформление; ищет и заменяет указанный текст или оформление; переходит к указанному тексту в активном документе; показывает или модифицирует связи в документе; открывает приложение в котором выбранный, внедренный или связанный документ был создан.

В меню находятся соответствующие опции: ,
, , , , , , , ,
, . Эти надписи означают соответственно: устанавливает режим нормального просмотра; устанавливает режим просмотра структуры документа; устанавливает режим просмотра разметки страницы; устанавливает режим просмотра главного документа; переключает режим полного экрана; управляет отображением панелей инструментов; управляет отображением линейки; отображает верхний колонтитул в режиме просмотра режима страницы; устанавливает сноски; открывает окно просмотра примечаний; устанавливает масштаб отображения.

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

В меню находятся соответствующие опции: , ,
, , , , ,
, , , , ,
, , . Эти надписи означают соответственно: изменяет вид выделенных символов; изменяет вид и нумерацию в выделенных символах и абзацах; изменяет или удаляет позиции табуляций в выделенных абзацах; изменяет обрамление и заполнение в выделенных абзацах, ячеек таблицы и рисунков; изменяет формат колонки в выделенных разделах; изменяет регистр символов в выделении; форматирует первый символ выделенного абзаца в буквицу; создает нумерованный список или список- бюллетень; изменяет опции нумерации для стилей уровней заголовков; автоматически форматирует документ; просмотр или применение стилей из шаблона; применяет, создает или изменяет стили; изменяет размер, масштаб и кодировку кадра; изменяет размер, масштаб и кодировку рисунка; изменяет заполнение, линию, размер и положение атрибутов выделенных объектов.

В меню находятся соответствующие опции: ,
, , , , ,
, , , ,
, , . Эти надписи означают соответственно: проверяет орфографию активного документа; ищет синонимы для выделенных слов; изменяет установки переноса слов для активного документа; изменяет атрибут язык для выделенных символов; отображает статистику активного документа; добавляет или удаляет элементы автокоррекции; подготавливает основной документ для слияния; печатает или создает конверт, наклейку или лист наклеек; устанавливает защиту активного документа; устанавливает режим пометки исправлений для активного документа; выполняет, создает, удаляет или редактирует макрокоманду; настраивает интерфейс пользователя Word
(меню, клавиатура и панели инструментов); изменяет настройки Word для
Windows.

В меню находятся соответствующие опции: ,
, , , ,
, , , , , , ,
, , . Эти надписи означают соответственно: вставляет таблицу; удаляет выделенные ячейки таблицы; объединяет выделенные ячейки таблицы; разъединяет ранее объединенные ячейки таблицы; выделяет текущую строку таблицы; выделяет текущий столбец таблицы; выделяет всю таблицу; применяет настройки форматирования к таблице; изменяет высоту и ширину строк и столбцов таблицы; переключает атрибут заголовка таблицы; преобразует текст в таблицу; располагает выделение в указанном порядке; вставляет вычисляемое поле в ячейку таблицы; вставляет маркер конца абзаца перед текущей строкой таблицы; переключает отображение линий сетки таблицы.

В меню находятся соответствующие опции: ,
, . Эти надписи означают соответственно: открывает другое окно для активного документа; упорядочивает окна в виде не перекрывающейся мозаики; разбивает активное окно по горизонтали и выравнивает получившиеся части.

В меню находятся соответствующие опции: , , , , , , . Эти надписи означают соответственно: отображает содержание справки; ищет тему справки по выделенным или набранным ключевым словам; отображает указатель справки; перечисляет уроки по изучению Word; отображает различные советы и рекомендации; отображает информацию о доступной технической поддержке Microsoft Word; отображает информацию о программе и номер версии.

С фрагментами текста можно проделать следующие операции. Предварительно выделив фрагмент текста можно выровнять его по левому, правому краю, по центру или по ширине. Можно выбрать шрифт. Изменить междустрочный интервал.
Можно ввести текст в виде списка. Разбить весь текст на несколько колонок.
Ввести его в виде таблицы.

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

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

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

2. Практика. Технология создания макроса в табличном процессоре MS Excel
97. Создание специальной кнопки для запуска макроса и размещения ее на панели инструментов.

Если при работе с Microsoft Excel для Windows у вас возникла необходимость несколько раз выполнить одну и ту же последовательность действий, то вы можете записать эту последовательность под определенным именем. Записанная под определенным именем последовательность действий называется макросом. Записанный макрос можно вызывать для выполнения из основного меню при помощи кнопки на панели инструментов или на рабочей области, а также комбинации клавиш. Макрос может быть назначен так же графическому объекту.

Макрос записывается на языке Visual Basic for Applications. Текст макроса можно вызывать для редактирования.

Создание макросов

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

“Число”, который будет устанавливать для выделенной области числовой формат. Требуемый числовой формат создадим заранее в категории форматов

Все форматы.

Для записи макроса выполните следующие действия:

Выполните команду Сервис | Запись макроса | Начать запись.

Появится окно диалога “Запись макроса”.

Введите в поле ввода Имя макроса название создаваемого макроса —

Число. Помимо стандартной информации (когда и кем был записан макрос) вы можете ввести в поле ввода Описание краткое описание назначения макроса. После этого нажмите кнопку OK. Начиная с этого момента осуществляется запись макроса. На экране появляется кнопка Остановить макрос. Если вы нажмете на ней кнопку мыши, то запись макроса будет закончена. Другим признаком режима записи макроса является появление слова “Запись” в строке состояния.

Теперь вам нужно выполнить последовательность действий, которая и будет записана в макрос. В нашем случае последовательность действий следующая: выделите ячейки, которые вы собираетесь форматировать, и нажмите Ctrl+1; в появившемся окне диалога “Формат ячеек” выберите вкладку “Число”, а на ней категорию форматов Все форматы. Из появившегося списка форматных кодов выберите требуемый код, после чего нажмите кнопку OK.

В заключение вам остается завершить запись макроса. Кроме нажатия на кнопку Остановить макрос вы можете воспользоваться альтернативным способом: в списке опций пункта основного меню Сервис выберите Запись макроса, а затем — Остановить запись.

Если кнопка Остановить макрос отсутствует с экрана, то ее легко можно восстановить. Для этого нажмите правую кнопку мыши на любой панели инструментов и в появившемся списке выберите пункт Настройка.

Появится список категорий кнопок. Выберите среди них категорию Макрос.

Появится набор кнопок, который содержит кнопку Остановить макрос.

Нажмите на ней кнопку мыши и, удерживая ее нажатой, переместите кнопку на нужную вам панель или просто на экран. Для выхода из режима настройки панелей нажмите кнопку Закрыть.

После окончания записи макроса он появляется в списке макросов под именем “Число”. Для вызова макроса выполните команду Сервис |

Макрос. Появится окно диалога со списком макросов. Найдите требуемый макрос и нажмите кнопку Выполнить. Результатом работы макроса “Число” будет ввод форматного кода в выделенные ячейки таблицы.

В Excel предусмотрена возможность вызывать макрос при помощи клавиши быстрого вызова или назначить макросу пункт меню в списке опций меню Сервис. Обе эти возможности можно реализовать одновременно. Для этого при выполнении 3 шага процедуры создания макроса, после ввода имени, нужно нажать кнопку Параметры. Появится окно диалога.

Назначить макросу пункт меню или клавишу быстрого вызова можно и после того как макрос создан. Для этого выполните команду Сервис |

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

При записи макроса можно включать режим с относительными ссылками. Этот режим позволяет использовать записанный макрос для любой области рабочей книги. Режим с относительными ссылками нужно включать при записи макросов, которые используют ссылки на адреса рабочей книги.

Разберем два примера макросов. Один записан в обычном режиме, а другой— с относительными ссылками, после чего сравним их работу.

Пример 1. Вывод на экран названий месяцев

При составлении различных отчетов и сводок в качестве названий строк часто используются названия месяцев. Создадим макрос, который будет выводить на экран столбец с названиями месяцев в ячейках A1:A12.

Для этого выполните следующие действия:

· Установите курсор в какую-нибудь ячейку книги, за исключением

A1.

· Выполните команду Сервис | Запись макроса | Начать запись.

Появляется окно диалога “Запись макроса”.

· Введите в поле ввода Имя макроса название создаваемого макроса

Месяц_абс. В поле ввода Описание введите текст: Вводит названия месяцев. Нажмите кнопку Параметры. Появится окно диалога “Запись макроса”.

· Введите клавишу быстрого вызова макроса. Для этого перейдите в поле ввода Ctrl, переключитесь на латинский регистр, удалите находящуюся там букву и введите букву m. После этого нажмите кнопку OK.

Начиная с этого момента, осуществляется запись макроса.

· Выполните последовательность действий, которую будет выполнять макрос: установите курсор в ячейку A1; введите слово январь; поместите указатель мыши в правый нижний угол ячейки A1, при этом указатель мыши изменит вид на черный крестик; нажмите кнопку мыши и, удерживая ее нажатой, продолжите выделение до ячейки A12.

· Нажмите на кнопку Остановить макрос.

Если вы не выполните условие 1 шага, то есть курсор будет находиться в ячейке A1, то макрос будет правильно работать только в том случае, когда вы перед нажатием клавиш Ctrl+m поместите курсор в ячейку

A1.

Макрос записан и теперь нажатие клавиш Ctrl+m вызовет появление в ячейках A1:A12 названий месяцев. При записи макроса мы не включали режим записи с относительными ссылками, поэтому названия месяцев будут появляться только в ячейках A1:A12. Для устранения этого неудобства предназначен режим записи с относительными ссылками.

Пример 2. Создание макроса с относительными ссылками

В этом примере вам предстоит создать макрос с относительными ссылками для размещения заголовка таблицы продаж компьютеров в произвольном месте рабочей книги.

Перед созданием макроса включите режим записи с относительными ссылками. Для этого выполните следующие действия:

· Выполните команду Сервис | Запись макроса | С относительными ссылками.

· Введите в поле ввода Имя макроса название создаваемого макроса —

Заголовок. В поле ввода Описание введите текст: Вводит названия компьютеров.

· Нажмите кнопку Параметры. Появится окно диалога “Запись макроса”.

· Введите наименование добавляемого пункта меню: Типы ЭВМ. Нажмите кнопку OK.

· Выполните последовательность действий, которую будет выполнять макрос: введите заголовок таблицы: Тип компьютера; нажмите клавишу

Enter; введите тип 1 компьютера CP_35_SR и нажмите клавишу Tab.

Аналогично введите следующие типы компьютеров CP_40_SR, CP_55_LS,

CP_55_SX. Выделите четыре ячейки с введенными типами компьютеров, выберите команду Формат | Столбец, а затем команду Подгон ширины

(поскольку названия типов компьютеров не умещаются полностью в ячейке).

· Нажмите на кнопку Остановить макрос.

После окончания записи макроса в меню команды Сервис появится пункт с названием Типы ЭВМ, которое мы ввели на 4 шаге.

Для выполнения макроса “Заголовок” нужно нажать кнопку мыши на пункте с названием Типы ЭВМ. В том месте таблицы, где расположен курсор, появится заголовок следующего вида: Тип компьютера

CP_35_SR CP_40_SR CP_55_LS CP_55_SX

Этот макрос отличается от макроса, созданного в примере №1 тем, что заголовок таблицы можно поместить в любом месте текущей рабочей книги.

Редактирование макросов

В этом разделе мы рассмотрим вопросы изменения текста макроса, его удаления и переименования. Здесь же будет рассказано о том, как записать новую последовательность действий в уже существующий макрос.

Одним из способов внесения изменений в записанный макрос является запись нового макроса. Однако это не всегда удобно, а часто бывает и утомительно из-за большого объема работы. В следующем примере мы изменим формат вводимых чисел в макросе “Число”.

Пример 3. Редактирование текста макроса

В этом примере вам предстоит изменить текст макроса.

Для входа в режим редактирования макроса выполните команду

Сервис | Макрос. Появляется окно диалога “Макрос”, в котором после выбора нужного для редактирования макроса становятся доступными кнопки, в том числе кнопка Редактирование.

Редактировать можно и непосредственно в модуле с текстом макроса. Текст макроса “Число” расположен в модуле 1, расположенном после 16 листа рабочей книги. Используя кнопки прокрутки листов найдите модуль 1 и нажмите кнопку мыши на его ярлычке. Перед вами появится текст макроса “Число”, записанный на языке Visual Basic:

Число Макрос Форматный код “# #??” Быстрый вызов: Ctrl+x

Sub Число()

Selection.NumberFormat = “# #??”

End Sub

Первые две строки составляют комментарий, последующие — текст макроса. Редактирование сводится к тому, что вместо форматного кода “#

#??” вводится форматный код “# #??,00”.

Действуя аналогичным образом, вы можете внести более серьезные изменения в текст макроса. Фактически вы имеете возможность изменять текст программы Visual Basic, реализующий макрос. Это открывает перед вами большие возможности в написании собственных программ.

Удаление макросов

Если макрос назначен клавише быстрого доступа, графическому объекту или кнопке, то процесс удаления является стандартным. Вы выбираете опцию Макрос пункта Сервис основного меню. Появляется окно диалога “Макрос”, содержащее список макросов текущей рабочей книги.

После выбора макроса, который вы предполагаете удалить, станут доступными кнопки окна диалога “Макрос”, в том числе кнопка Удалить.

Для удаления выбранного макроса вам достаточно нажать эту кнопку.

Макрос можно удалить и другим способом. Если макрос записан в отдельном модуле, то нужно удалить модуль. Для этого нужно сделать его активным, а затем нажать правую кнопку мыши на его ярлычке. Появится окно диалога, в котором нужно выбрать команду Удалить. Если модуль содержит и другие макросы, то нужно выделить весь текст удаляемого макроса и нажать клавишу Del на клавиатуре.

Объекты, которым был назначен макрос, удаляются из режимов редактирования этих объектов.

Определенную трудность представляет процесс удаления строк с названиями макросов из пункта Сервис основного меню. Для их удаления вы можете использовать окно диалога “Редактор меню”, которое открывается нажатием кнопки Редактор меню, расположенной на панели инструментов

“Visual Basic”. Вы можете выбрать требующийся пункт меню из списка

Меню. При этом в следующем списке Элементы меню появляются опции этого пункта меню. Вы можете выбрать и удалить нужную строку нажатием кнопки

Удалить.

Кнопка Сброс окна диалога восстанавливает стандартное состояние всех пунктов основного меню Excel.

После нажатия кнопки Сброс восстановить ранее сделанные в пункты меню назначения с помощью клавиш Ctrl+Z невозможно. Можно только закрыть файл без сохранения всех сделанных изменений, а затем открыть его снова.

Окно диалога “Редактор меню” можно вызвать и без использования кнопки Редактор меню. Для этого нужно выполнить следующие действия:

· Сделайте активным какой-нибудь модуль. Если в рабочей книге нет ни одного макроса, то создайте какой-нибудь макрос (например, не выполняющий никаких действий).

· Выберите пункт Сервис текущего меню. Появится ниспадающее меню, в котором присутствуют дополнительные опции, одной из которых является

Редактор меню

· Установите курсор на команду Редактор меню и нажмите клавишу

Enter. Появится требуемое окно диалога.

Не создавайте макрос, восстанавливающий пункты меню. Делайте эту работу вручную и вы избежите неприятностей, связанных с потерей информации.

Создание специальной кнопки для запуска макроса.

В меню Сервис выбираем Настройка, в категории выбирается Макрос .

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

Список литературы.

1. Excel 97 для windows 95. Справочник Штайнер Й.1998

2. Excel 97: Общие и экономические расчёты. Матюшок В.М. 1999

3. Word 97 для Windows 95. Справочник

Министерство общего и профессионального образования

Российской Федерации

ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ УПРАВЛЕНИЯ

ИНСТИТУТ ЗАОЧНОГО ОБУЧЕНИЯ

Контрольная работа №2 по дисциплине «Компьютерная подготовка»

Специальность Бухгалтерский учет и аудит

Курс 1-й

Группа БуиА-6-99/2

Студент

Студенческий билет №

ВАРИАНТ №4

|Адрес | |
| | |
| | |
| |

« » мая 2000г.

Проверил:
____________________/ /
«___»_______________2000г.

Москва 2000г.

Вопросы набора II-1 контрольной работы №2.

Редактор WORD.

5.Где находятся кнопки системного меню в окне редактора?

1. На 1 строке сверху слева.

2. На 1 строке сверху справа.

3. На 2 строке в меню файл.

Ответ: правильным является вариант №1, т.к. кнопка системного меню находится слева в 1-й строке сверху; вариант № ошибочен, т.к. справа в 1-й строке находятся кнопки разворачивания и сворачивания окна; вариант №3 ошибочен, т.к. в меню ФАЙЛ нет кнопок системного меню.

9.При наборе текста какой следует использовать масштаб, чтобы при чтении с экрана он соответствовал печатному документу?
1. 10%
2. 70%
3. 100%
4. 150%

Ответ: правильным является вариант №3, т.к. при 100% размер документа на экране будет соответствовать его распечатке. вариант №1 ошибочен, т.к. при 10% документ на экране будет в 10 раз меньше чем печатный документ; вариант №2 ошибочен, т.к. при 70% документ на экране будет составлять
7/10 от печатного документа; вариант №4 ошибочен, т.к. документ на экране будет в 1,5 раза больше чем печатный документ.

19.Можно ли через меню ВИД построить панели инструментов?

1. Можно, но при определенных условиях

2. Можно

3. Нельзя

Ответ: правильным является вариант №1: а) для того, что бы построить панели инструментов через меню ВИД нужно войти в меню ВИД, выбрать пункт ПАНЕЛИ ИНСТРУМЕНТОВ и в этом пункте отметить либо снять отметку напротив нужной панели. б) для того, что бы построить панели инструментов через меню ВИД нужно войти в меню ВИД, выбрать пункт ПАНЕЛИ ИНСТРУМЕНТОВ, в этом пункте выбрать
НАСТРОЙКА, а затем в открывшемся меню НАСТРОЙКА выбрать необходимые команды
СОЗДАТЬ, ИЗМЕНИТЬ, УДАЛИТЬ, СБРОС. вариант №2 является неполным ответом, т.к. в нем не предусмотрены определенные условия построения ПАНЕЛИ ИНСТРУМЕНТОВ; вариант №3 ошибочен, т.к. построить панели инструментов через меню
ВИД можно.

22.Как напечатать документ по широкой стороне листа 288*203?

1. Меню файл/параметры страницы/размер бумаги – альбомная/печать

2. Меню сервис/макрокоманда

3. Данная операция невозможна

Ответ: правильным является вариант №1, т.к. для того, что бы напечатать документ по широкой стороне листа 288*203мм нужно войти в меню ФАЙЛ, затем выбрать пункт ПАРАМЕТРЫ СТРАНИЦЫ, в открывшемся меню ПАРАМЕТРЫ СТРАНИЦЫ выбрать закладку РАЗМЕР БУМАГИ и там установить переключатель в поле
ОРИЕНТАЦИЯ на АЛЬБОМНАЯ. После этих действий документ можно отправить на печать. вариант №2 ошибочен, т.к. вызов меню СЕРВИС/МАКРОКОМАНДА приведет к созданию, изменению или отладке макроса; вариант № ошибочен, т.к. данная операция возможна и описана в ответе на вариант №1.
26.Как сместиться на слово влево без использования мыши?
1. CTRL+(
2. CTRL+S
3. Дважды быстро нажать (

Ответ: правильным является вариант №1, т.к. нажатие комбинации клавиш CTRL+( приведет к смещению на слово влево. вариант №2 ошибочен, т.к. комбинация клавиш CTRL+S вызывает сохранение документа; вариант №3 ошибочен, т.к. быстрое нажатие дважды ( приведет к смещению на две позиции влево.

Вопросы набора II-2 контрольной работы №2.

EXCEL WINDOWS.

5.При печати документов можно ли масштабировать документ?

1. Можно

2. Нельзя

3. Можно только для форматов бумаги А3 и А4
Ответ: правильным является вариант №1. Масштабирование документа при печати выполняется путем щелчка по пиктограмме ПРЕДВАРИТЕЛЬНЫЙ ПРОСМОТР, затем кнопки СТРАНИЦА и затем в меню ПАРАМЕТРЫ СТРАНИЦЫ устанавливается масштаб документа. вариант №2 ошибочен, т.к. масштабировать документ при печати можно.
Последовательность действий пользователя описана в ответе №1; вариант №3 ошибочен, т.к. в меню ПАРАМЕТРЫ СТРАНИЦЫ в поле РАЗМЕР
БУМАГИ нет формата А3.

9. Можно ли в EXСEL создать ведомость зарплаты?

1. Да

2. Нет

3. Только определенных форматов

4. Только в формате бумаги А4
Ответ: правильным является вариант №4, т.к. пакет электронных таблиц EXCEL предназначен для автоматизации расчетов, в том числе экономико-финансовых, обработки и обмена информацией с БД и др.приложениями. Ограничение по формату бумаги А4 накладывается самим пакетом EXCEL (пиктограмма
ПРЕДВАРИТЕЛЬНЫЙ ПРОСМОТР, меню ПАРАМЕТРЫ СТРАНИЦЫ, поле РАЗМЕР БУМАГИ). вариант №1 является правильным, но с учетом ограничения распечатываемого документа по формату А4; вариант №2 ошибочен, т.к. возможности пакета ЕХСЕL позволяют создать расчетно-платежную ведомость; вариант №3 в общем смысле нельзя отнести ни к правильному, ни к ошибочному, т.к. расчетно-платежные ведомости печатаются, как правило, в формате А4. Но каких-либо законодательных ограничений по размеру листа расчетно-платежных ведомостей нет.

19.Где в окне находится строка формул?

1. Сразу под таблицей

2. Сразу над таблицей

3. В строке меню

4. Внутри таблицы
Ответ: правильным является вариант №2, т.к. строка формул (строка ввода и редактирования) находится над рабочим листом электронной таблицы в 5-й строке. вариант №1 ошибочен, т.к. под рабочим листом электронной таблицы могут находиться панели инструментов, а последней нижней строкой является строка состояния; вариант №3 ошибочен, т.к. в строке меню (2-я строка) процессора Excel нет строки формул. вариант №4 ошибочен, т.к. рабочий лист процессора Excel содержит ячейки.

22.Можно ли самому формировать панель инструментов (панель пиктограмм)?

1. Да

2. Нет

3. Только в режиме построения графиков
Ответ: правильным является вариант №1. Для того, что бы самому сформировать панель инструментов (панель пиктограмм) можно использовать 2 способа: а) войти в меню ВИД, выбрать пункт ПАНЕЛИ ИНСТРУМЕНТОВ и в этом пункте отметить либо снять отметку напротив нужной панели; б) войти в меню ВИД, выбрать пункт ПАНЕЛИ ИНСТРУМЕНТОВ, в этом пункте выбрать НАСТРОЙКА, а затем в открывшемся меню НАСТРОЙКА выбрать необходимые команды СОЗДАТЬ, ИЗМЕНИТЬ, УДАЛИТЬ, СБРОС; вариант №2 ошибочен, т.к. пользователь может сам формировать панель инструментов (пиктограмм). Возможные способы формирования описаны в ответе на вариант №1; вариант №3 ошибочен, т.к. формировать панель инструментов (пиктограмм) пользователь может не только в режиме построения графиков. Надо отметить, что в режиме построения графика с помощью Мастера диаграмм возможность формирования панели инструментов (пиктограмм) доступна не в полной мере. Во- первых, формирование панели инструментов доступно только на 1-м и 2-м шагах построения, во-вторых, формирование панели инструментов (пиктограмм) доступно только способом, описанном в ответе на вариант №1 пункт а).

26.Какой файл после установки инициализирует (настраивает на работу) EXCEL?

1. SETUP

2. WIN.INI

3. EXCEL.INI
Ответ: правильным является вариант №3. В файле EXCEL.INI содержатся настройки процессора EXCEL. вариант №1 ошибочен, т.к. файл SETUP является программой либо первичной установки, либо обновления, либо добавления/удаления отдельных компонентов ПО; вариант №2 ошибочен, т.к. файл WIN.INI содержит в себе настройки системы WINDOWS.

Список литературы.

|1.|Хомоненко А.Д. Основы современных компьютерных технологий//Учебное| | |
| |пособие для Вузов. – Ст-Петербург: Корона принт, 1998. | | |
| | | | |
|2.|Носситер Д.С. Microsoft Excel 97// — М.: Диалектика, 1997. | | |
| | | | |
|3.|Носситер Д.С., Мэлони Э. Microsoft Word 97// — М.: Диалектика, | | |
| |1997. | | |
| | | | |
|4.|Фигурнов В.Э. IBM PC для пользователя// — Уфа: НПО «Информатика и | | |
| |компьютеры», 1993. | | |

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОСИЙСКОЙ ФЕДЕРАЦИИ

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

Кафедра вычислительной техники

_____________________________________________________________________

Дистанционное обучение

2000 – 2001 учебный год

ОТЧЕТ

о выполнении практических заданий по курсу

ТЕХНОЛОГИЯ ПРОГРАММИРОВАНИЯ

Студента группы ВД – 49

Каретина Флориана Викторовича

Задание выполнил ________________ _____________________ подпись студента дата выполнения задания

Задание проверил ________________ _____________________ оценка подпись преподавателя

_______________________

дата проверки задания

Рецензия преподавателя

______________________________________________________________________
______________________________________________________________________
______________________________________________________________________
______________________________________________________________________
______________________________________________________________________

Описание программы созданной с помощью Turbo Visual.

Начинается программа с подключения библиотек Turbo Visual: uses App, Objects, Menus, Drivers, Editors, Views;
Основной блок программы состоит из трех команд:
Begin

MyApp.Init; {Подготовить работу программы}

MyApp.Run; {Выполнить необходимые действия}

MyApp.Done; {Завершить исполнение программы}
End.
Для создания собственной строки статуса вводим следующее описание: type

TMyApp=object(TApplication) {Создаем объект-потомок от TApplication} procedure InitStatusLine; virtual; {Перекрываем старый метод
InitStatusLine новым}
Описание нового метода, с помощью которого создается строка статуса:
Procedure TMyApp.InitStatusLine;
Var R:TRect; {хранит границы строки статуса}
Begin

GetExtent(R); {устанавливает R в координаты всего экрана}

R.A.Y:=R.B.Y-1; {передвигает вершину выше нижней на 1 строку}

StatusLine:=New(PStatusLine, Init(R, {создает строку статуса}

NewStatusDef(0,$FFFF, {устанавливает диапазон контекстного Help}

NewStatusKey(‘~Alt-X~ Exit’, kbAltX, cmQuit, {определяет элемент}

NewStatusKey(‘~Alt-F3~ Close’, kbAltF3, cmClose, {другой} nil)), {больше нет клавиш} nil))) {больше нет определений}
End;
Формирование меню:
Описание в разделе типов:
TMyApp=object(TApplication) {Создаем объект-потомок от TApplication} procedure InitMenuBar; virtual; {Перекрываем старый метод InitMenuBar новым}
Тело процедуры: procedure TMyApp.InitMenuBar;
Var R:TRect;
Begin

GetExtent(R); {устанавливает R в координаты всего экрана}

R.B.Y:=R.A.Y+1;

MenuBar:=New(PMenuBar, Init(R, NewMenu( {создать полосу меню}

NewSubMenu(‘~F~ile’, hcNoContext, NewMenu( {определить меню}

StdFileMenuItems(nil)), {стандратная функция определения элементов}

{меню
File}

NewSubMenu(‘~W~indow’, hcNoContext, NewMenu( {определить меню}

StdWindowMenuItems(nil)), {стандратная функция определения элементов}

{меню
Window} nil) {больше нет подменю}

)))); {конец полосы}
End;
Создание окон и манипуляции с ними:
Описание: procedure NewWindow; virtual; procedure HandleEvent(var Event:TEvent); virtual; end;

PDemoWindow=^TDemoWindow; {тип указателя для нового объектного типа}

TDemoWindow=object(TWindow) {определение нового типа окна} constructor Init(Bounds: TRect; WinTitle:String; WindowNo: Integer); end;

PInterior=^TInterior;

TInterior=object(TScroller) constructor Init(var Bounds:TRect; HS, VS: PScrollBar); procedure Draw; virtual; procedure HandleEvent(var Event:TEvent); virtual; end;
Описание тела конструктора инициализации окна: constructor TDemoWindow.Init(Bounds: TRect; WinTitle:String; WindowNo:
Integer); var

S:String[3];

Interior:PInterior;

HS, VS: PScrollBar; begin

Str(WindowNo,S); {устанавливает номер окна в заколовке}

TWindow.Init(Bounds, WinTitle+’ ‘+S, wnNoNumber);

GetClipRect(Bounds);

Bounds.Grow(-1,-1); {интерьер помещается внутри рамки окна}

VS:=StandardScrollBar(sbVertical+sbHandleKeyBoard); {разрешение перемещения вертикального бегунка стрелками на клавиатуре}

HS:=StandardScrollBar(sbHorizontal+sbHandleKeyBoard); {разрешение перемещения горизонтального бегунка стрелками на клавиатуре}

Interior:=New(PInterior, Init(Bounds, HS, VS));

Insert(Interior); {добавляет интерьер к окну} end;
Описание конструктора инициализации интерьера: constructor TInterior.Init(var Bounds:TRect; HS, VS: PScrollBar); begin

TScroller.Init(Bounds, HS, VS);

GrowMode:=gfGrowHiX+gfGrowHiY; end;
Описание процедуры прорисовки интерьера окна: procedure TInterior.Draw; begin

TScroller.Draw; {Вызов стандартной прорисовки}

WriteStr(0,0,’Текст в окне’,1); {Вывод текста в окно}

TScroller.ShowCursor; {Показать курсор} end;
Описание тела процедуры создания нового окна: procedure TMyApp.NewWindow; var

Window:PDemoWindow;

R: TRect;
Begin

Inc(WinCount);

R.Assign(0,0,26,7); {установка начального размера и позиции}

R.Move(Random(58),Random(16)); {случайное перемещение по экрану}

Window:=New(PDemoWindow, Init(R, ‘Demo Window’, WinCount));

DeskTop^.Insert(Window); {вывести окно на панель экрана}
End;
Описание тела процедуры обработки команд среды procedure TMyApp.HandleEvent(var Event:TEvent);
Begin

TApplication.HandleEvent(Event); {действует как предок} if Event.What=evCommand Then

Begin case Event.Command of {но откликается на дополнительные команды} cmNew: NewWindow; {определяет действие для команды cmNew} else

Exit;

End;

ClearEvent(Event); {очищает событие после обработки} end;
End;
Описание тела процедуры обработки команд в окне procedure TInterior.HandleEvent(var Event:TEvent);
Begin

TScroller.HandleEvent(Event); {действует как предок} case Event.What of {проверка события} evKeyDown: {если нажата клавиша}

Begin

Case Event.KeyCode of {проверка: какая клавиша нажата} kbLeft: {стрелка влево} begin if x>0 then {если координата по Х больше 0}

Begin x:=x-1; {то уменьшить ее на 1}

SetCursor(x,y); {установить на новую координату курсор}

End end; kbRight: {стрелка вправо} begin x:=x+1; {увеличить координату по Х на единицу}

SetCursor(x,y); {установить на новую координату курсор} end; kbUp: {стрелка вверх} begin if y>0 then {если координата по Y больше 0}

Begin y:=y-1; {то уменьшить ее на 1}

SetCursor(x,y); {установить на новую координату курсор}

End end; kbDown: {стрелка вниз} begin y:=y+1; {увеличить координату по Y на 1}

SetCursor(x,y); {установить на новую координату курсор} end; end;

Case Event.ScanCode of {проверка скан-кода клавиатуры}

57: {если пробел} begin

If GetState(sfCursorVis) Then {если курсор виден}

TScroller.HideCursor {то скрыть его}

Else

TScroller.ShowCursor; {иначе показать его} end; end;

End; end;
End;

Описание игровой программы «Стрельба по мишени».

Игровая программа состоит из трех процедур (minv — уменьшение кол-ва патронов, intro — заставка, go — конец игры) и основного блока программы.
Процедура minv (уменьшение количества патронов). kv:=kv-1; {уменьшение значение переменной kv (в основной программе она фигурирует как количество патронов) } setfillstyle(1,9); {установка стиля заполнения фона} bar((20-kv)*10+415,4,(20-kv)*10+425,12); {стирание одного патрона с экрана}
Процедура intro; {Заставка}
Выводит заставку игры. settextstyle(0,0,15); {установка стиля текста} setcolor(12); {установка цвета} outtextxy(140,100,’ТИР’); {вывод текста} settextstyle(0,0,2); setcolor(10); outtextxy(130,290,’ESC — ‘); setcolor(14); outtextxy(220,290,’Выход из программы’); settextstyle(0,0,1); tp:=’НАЖМИТЕ ЛЮБУЮ КНОПКУ ДЛЯ НАЧАЛА ИГРЫ’; settextstyle(0,0,1); setcolor(11); outtextxy(320-trunc(length(tp)*4),340,tp); {вывод текста с расчетом по центру} a:=readkey; if ord(a)=27 then exi:=true; {если нажата клавиша Esc – выйти из игры} setfillstyle(1,0); bar(100,30,600,350);
Процедура go – выводит заставку конца игры procedure go; {Конец игры} begin settextstyle(0,0,5); {установка стиля вывода текста} setcolor(2); {установка цвета} outtextxy(50,200,’ВСЕ,ДОИГРАЛИСЬ’); settextstyle(0,0,2); readkey;
UROV:=1;MENU:=true;oko:=0; end;
Основное тело программы begin d:=vga;initgraph(d,r,»); {инициализация графики} setgraphmode(2); {установка графического режима} randomize; {вызов генератора случайных чисел} urov:=1;oko:=0; mus:=true; sou:=true;menu:=true; {первоначальная установка переменных} repeat {начало основного цикла программы}
{Cоздание интерфейса} cleardevice; {очистака экрана} setfillstyle(1,1); {установка стиля заполнения фона} bar(0,0,640,2); {рисование прямоугольников вокруг рабочей области} bar(0,0,2,480); bar(0,480,640,478); bar(640,480,638,0); setfillstyle(1,9); bar(2,2,638,17); bar(2,2,5,478); bar(2,478,638,475); bar(638,2,635,478); setfillstyle(1,3); bar(5,17,635,19); bar(5,17,7,475); bar(5,475,635,473); bar(635,17,633,475); setfillstyle(9,14); setcolor(14); {установка цвета рисования} moveto(7,460); {перемещение графического курсора в указанные координаты} for i:=1 to 62 do {рисование песка холмиками} lineto(i*10+7,460+random(10)); lineto(633,460); line(7,473,633,473); line(7,473,7,460); line(633,473,633,460); floodfill(9,469,14); {заполнение стилем области, расположенной либо внутри замкнутого контура, либо вне его} setlinestyle(0,0,1); {установка стиля линий} setfillstyle(8,6); {установка стиля заполнения фона} bar(260,408,380,470); setfillstyle(1,1); setcolor(14); line(260,408,260,470); line(260,408,380,408); line(380,408,380,470); fillellipse(320,408,23,15); {вычерчивание контура эллипса текущим цветом и заполнение ограниченной контуром области экрана текущим узором} setlinestyle(0,3,3); setcolor(11); line(320,391,320,376); fi:=pi;tzm:=40;tzs:=40; settextstyle(0,0,2); cou:=0; kv:=20; ov:=1; ex:=0; setfillstyle(1,15);setcolor(7); bar(250,6,310,12); setfillstyle(1,0); bar(17,2,220,17); setcolor(12); outtextxy(20,3,’Cчет:’); setcolor(11); setfillstyle(1,11); for i:=1 to kv do fillellipse(i*10+420,8,3,3); {рисование патронов} if menu then intro; {если menu=true, то вызвать процедуру intro (заставка игры)} menu:=false; if exi then goto 1; {если exi=true (выход), то перейти на метку 1} repeat if keypressed then a:=readkey; settextstyle(0,0,1); outtextxy(280,280,’Нажмите ENTER’); setcolor(random(16)); settextstyle(0,0,2); str(urov,em); outtextxy(270,200,concat(‘УРОВЕНЬ ‘,em)); {вывод текста с помощью процедуры конкатенации} str(urov*1000,em); outtextxy(190,240,concat(‘Наберите ‘,em,’ очков’)); until ord(a)=13; {выход из цикла по клавише Enter} setfillstyle(1,0); bar(180,200,500,300); gettime(q1,min,sec,q2); {получение системного времени} mk:=min+1; {увеличение минут на 1} sk:=sec; if mk>=60 then begin {если количество минут больше 60,} hk:=q1+1; {то количество часов увеличить на 1} mk:=0; {минуты обнулить} end; repeat gettime(q1,min,sec,q2); {получение системного времени} setfillstyle(1,1); {установка стиля заполнения} setcolor(4); {установка цвета рисования} if mk=min then rk:=60-abs(sk-sec) else rk:=abs(sk-sec); bar(250,6,250+abs(rk),12); if not(bm) then begin gettime(q1,min,sec,q2); {получение системного времени} po:=random(3); if sec+po>=59 then begin tpm:=min+1; tps:=0; end else begin tpm:=min; tps:=sec+po; end; end; xnp:=round(sin(fi)*24+320); ynp:=round(cos(fi)*15+406); xkp:=round(sin(fi)*38+320); ykp:=round(cos(fi)*30+406); setlinestyle(0,3,3); setcolor(11); line(xnp,ynp,xkp,ykp); ok:=false; if keypressed then begin a:=readkey; if a=chr(77) then begin fi:=fi-0.05; ok:=true; end; {Поворот дула влево} if a=chr(75) then begin fi:=fi+0.05; ok:=true; end; {Повоорт дула вправо} if ord(a)=27 then menu:=true; {Выход в меню} if fi3*pi/2 then fi:=3*pi/2; if a=’ ‘ then begin {Выстрел} if (not(fire.v)) and (not(ok)) then begin minv; for d:=1 to 100 do begin if sou then sound(random(200)+100);delay(1); end; nosound; fire.v:=true; fire.r:=35; fire.si:=sin(fi)*1.1; fire.co:=cos(fi); ok:=true; fire.xs:=-10; fire.ys:=-10; end; s:=s+1; end; end; if (kv=0) and (not(fire.v)) then ex:=ex+1; if fire.v then begin {Полет снаряда} setfillstyle(1,0); setcolor(0); bar(fire.xs-4,fire.ys-4,fire.xs+4,fire.ys+4); xv:=round(fire.si*fire.r+320); yv:=round(fire.co*fire.r+406); fire.r:=fire.r+5; fire.xs:=xv;fire.ys:=yv; if (fire.xs=622) or (fire.ys=tps) and not(mn) then begin bm:=true;mn:=true; xm:=random(560)+30; ym:=random(320)+30; vm:=random(2)+3; if vm+sec>=59 then begin tzm:=min+1; tzs:=abs(vm+sec-60); end else begin tzm:=min; tzs:=vm+sec; end; repeat nch:=random(5)+1; mi:=20+nch*5; {Размер мишени} until nch=tzm) and (sec>=tzs) then begin bm:=false;mn:=false; setfillstyle(1,0); bar(xm,ym,xm+mi,ym+mi);xm:=-1300;ym:=-1300; end; if ok then begin setcolor(0); line(xnp,ynp,xkp,ykp); end; until (ord(a)=27) or (ex=1) or ((mk=min) and (sec>=sk)); oko:=oko+cou; str(oko,em); bm:=false;mn:=false;fire.v:=false; if cou

Министерство образования и науки Российской Федерации

Армавирский государственный педагогический университет

Кафедра информатики и информационных технологий обучения

КУРСОВАЯ РАБОТА

ПО ИНФОРМАТИКЕ

Тема работы: „ Моделирование игровых программ

средствами Delphi ”

Автор работы: студентка
303 группы МФ

Татарникова Людмила
Владимировна

Научный руководитель: доцент Неверов

Александр
Владимирович

Оценка:____________________________

Армавир

2004 г.

Содержание

Введение 3

Этапы разработки проекта 4

Заключение 13

Список литературы .14

Приложение ……………………………………………………………………………….15

Введение

Система Delphi является одной из лучших разработок в современной теории и практики программирования. Как любая подобная система, Delphi предназначена для разработки программ и имеет две характерные особенности: создаваемые ею программы могут работать не только под управлением Windows, а сама она относится к классу инструментальных средств ускоренной разработки программ. Это ускорение достигается за счет следующих свойств
Delphi: визуального конструирования форм и широкого использования библиотеки визуальных компонентов.

Визуальное конструирование форм избавляет программиста от многих аспектов разработки интерфейса программы, так как Delphi автоматически готовит необходимые программные заготовки и соответствующий файл ресурсов.
При создании программ используется специальное окно, которое называется окном формы, как прототип будущего окна программы, оно наполняется компонентами, реализующими нужные интерфейсные свойства (разного рода списки, кнопки, полосы прокрутки и т. п.). Компоненты находятся в библиотеке визуальных компонентов. Она предоставляет программисту огромное разнообразие программных заготовок, которые немедленно или после несложной настройки готовы к работе в рамках программы. Использование компонентов не только во много раз уменьшает сроки разработки программ, но и существенно снижает вероятность случайных программных ошибок.

В Delphi можно составлять проекты для задач практически любого типа: это и расчетные задачи, и задачи работы с файлами, и обработка баз данных, и другие. Наиболее эффектными и интересными являются задачи моделирования различных логических игр. Они привлекают внимание пользователей и формируют устойчивый интерес к изучению языков программирования.

Целью данной курсовой работы является создание одной из таких игр в среде программирования Delphi 6. Игра носит название „Собери картинку”. Она служит аналогом игры „15”, только игрок перемещает не цифры, а фрагменты картинки.

Этапы разработки проекта

Моделирование игры „Собери картинку” проходит ряд этапов. Их выполнение гарантирует достижение поставленной цели.

1.В Delphi 6 создать новый проект под названием „Soberi”.
Установить основные свойства окна формы:

Left = 239

Top = 185

BorderIcons = [biSystemMenu]

BorderStyle = bsSingle

Caption =Собери картинку

ClientHeight = 254

ClientWidth = 255

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = ‘MS Sans Serif’

Font.Style = []

Menu = MainMenu1

OldCreateOrder = False

OnCreate = FormCreate

OnMouseDown = FormMouseDown

OnPaint = FormPaint

PixelsPerInch = 96

TextHeight = 13.

2.Создать процедуру по созданию формы (обработка события OnCreate):

procedure TForm1.FormCreate(Sender: TObject) (стр.21)
Для ее выполнения необходимо внести в программу следующие процедуры:

procedure TForm1.Formmas (стр.18) procedure TForm1.NewGame (стр.17)

Процедура Formmas формирует массив клеток игрового поля. NewGame позволяет загружать картинку ‘pic_1.bmp’ из внешнего растрового файла, если при обращении к файлу происходит ошибка, то форма закрывается. Также при выполнении этой процедуры устанавливается размер формы, равный размеру картинки. Картинка разрезается на фрагменты, которые перемешиваются
(процедура Mixer стр.20) и отображаются на форме (процедура ShowPole стр.19). Для перемешивания 150 раз случайным образом выбирается фрагмент изображения, находящийся рядом с пустой клеткой и перемещается в эту пустую клетку. Для отображения фрагментов на форме задаются прямоугольные области, на канву которых копируются части изображения. Форма приобретает вид:

[pic]

3. Создать процедуру по обработке события OnMouseDown: procedure TForm1.FormMouseDown(Sender: TObject; Button:
TMouse Button; Shift: TShiftState; X, Y: Integer) (стр.19)

Она позволяет при нажатии на кнопку мыши вычислять номер фрагмента, на котором сделан щелчок. Далее необходимо создать процедуру Move
(стр.18). В ней проверяется, свободна ли одна из соседних клеток. Если да, то этот фрагмент стирается и заново отображается в соседней клетке. Каждому фрагменту изображения поставлен в соответствие его порядковый номер. Это позволяет проверить, собраны ли номера в нужном порядке, то есть собрана ли картинка целиком. Для этого нужно создать функцию Finish (стр.17), которая будет выполнять эту проверку. Если картинка собрана, то на пустую клетку копируется последний фрагмент изображения. На экран выводится сообщение „
Цель достигнута! ” Игрок имеет возможность сыграть еще раз, выбрав „Yes ”, если он выбирает „ No ”, то программа завершает свою работу.

4. Разместить на форме компоненты MainMenu1 и OpenPictureDialog1 из страниц Standart и Dialog соответственно. Создать главное меню программы
(двойной щелчок мышью по MainMenu) следующей структуры:

Игра |Уровень |Справка | |Новая |Простой |Правила игры | |Набор картинок

|Средний |О программе | |Выход |Сложный | | |
Тогда форма примет вид:

[pic]

5. Создать процедуру для пункта меню игра – новая: procedure TForm1.N2Click(Sender: TObject) (стр.22 )

Эта процедура позволяет игроку начать игру сначала. Картинка снова разрезается на фрагменты, которые перемешиваются и отображаются на форме.

6. Для пункта набор картинок нужно сделать следующее: заполнить компонент OpenPictureDialog файлами с изображениями формата bmp, затем создать процедуру (щелчок мышью по набор картинок) procedure TForm1.N3Click(Sender: TObject) (стр.22 ), которая даст возможность выбирать эти изображения во время игры.

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

7.

Программируем пункт меню выход: procedure TForm1.N11Click(Sender: TObject) (стр.21 )
Эта процедура обеспечивает выход из игры.

8. Чтобы была возможность выбора уровня игры, необходимо создать следующие процедуры: для пункта простой — procedure TForm1.N8Click(Sender: TObject) (стр.22 ); для пункта средний — procedure TForm1.N9Click(Sender: TObject) (стр.22 ); для пункта сложный — procedure TForm1.N10Click(Sender: TObject) (стр.23).

Уровни зависят от количества фрагментов, на которые разбивается картинка.

[pic]

Простой уровень Средний уровень

[pic]

Сложный уровень

9. Чтобы игрок мог ознакомиться с правилами игры, выбрав в меню пункт правила игры, необходимо сделать следующее:

. В программе Word Pad набрать текст, содержанием которого являются правила игры „ Собери картинку ”, сохранить его в файле формата rtf под названием „Правила”. Полученный файл сохранить в папке, где находится проект Soberi.

. Создать новую форму Form3;

. Разместить на форме объекты: Button1 и Panel1 из страницы Standart и

RichEdit1 из Win32;

. Изменить некоторые свойства объектов:

Для Panel1:

Align – alBottom.

Для Button1:

Caption – Закрыть.

Для RichEdit1:

Align – alClient;

ScrollBars – Vertical;

Форма будет иметь вид:

[pic]

. Командой Use Unit (Alt+F11) добавить к основной программе Unit3, связанный с Form3;

. Создать процедуру для пункта правила игры (щелчок мышью по правила игры): procedure TForm1.N6Click(Sender: TObject) (стр.22 )

Эта процедура выводит на экран форму Form3 и помещает на ее компонент

RichEdit содержимое текстового файла „ Правила ”. Форма принимает вид:

[pic]

Таким образом, игрок получает возможность ознакомиться с правилами игры

10. Каждая пользовательская программа должна содержать сведения о том, кто является ее автором, где и когда она была разработана. Эти данные будут находиться в пункте меню о программе. Чтобы их туда поместить, необходимо выполнить следующие действия:

. Создать новый проект Progr_ и сохранить его в папке, в которой находится проект Soberi;

. Разместить на форме несколько объектов: Label1, Label2, Button1,

Panel1, Image, выбрав их на страницах Standart и Additional;

. Изменить некоторые свойства формы и размещенных компонентов: для Form1:

Name – Form2;

Caption – О программе Soberi_;

BorderIcons: biMaximize – False; biMinimize – False; biSystemMenu – False.

Для Lable1:

Caption – Курсовая работа по теме: „Моделирование игровых программ средствами Delphi”;

WordWrap – True;

Alignment – taCenter.

Для Label2:

Caption – Выполнила студентка 3 курса математического факультета

Татарникова Л. В.;

WordWrap – True;

Alignment – taCenter.

Для Panel1:

Caption – Армавир 2004;

BevelInner – byLowered;

BevelOuter – byRaised;

Для Button1:

Caption – Закрыть.

. На компонент Image следует скопировать изображение, которое может быть произвольным, т. е. по желанию пользователя.

В результате форма примет вид:

[pic]

. Для кнопки Button1 написать процедуру: procedure TForm2.Button1Click(Sender: TObject) begin close; end.

Эта процедура позволяет при нажатии на кнопку закрывать форму.

. Полученный проект Progr_ добавляем в первоначальный проект Soberi;

. Пункт меню о программе программируем следующей процедурой: procedure TForm1.N7Click(Sender: TObject) (стр.21).

При вызове этого пункта на экран будет выводиться окно формы из проекта

Progr_, которое содержит основные сведения о проекте Soberi.

11. Заключительный этап, на котором следует запустить проект.

Заключение

В результате выполнения курсовой работы в среде программирования
Delphi 6 была смоделирована логическая игра под названием „Собери картинку”. Игра содержит меню, используя которое можно выбирать различные виды картинок, также существует возможность устанавливать уровень сложности, который предпочитает игрок. Если есть необходимость ознакомиться с правилами игры, то их тоже можно найти в главном меню, там же находится основная информация о программе.

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

Список используемой литературы:

1. Архангельский А. Я. Интегрированная среда разработки Delphi –
М.:ЗАО, Бином; 1999.

2. Марко Кэнту для профессионалов Delphi 6: изд. Питер, 2002.

3. Фаронов В. В. DELPHI 6: Учебный курс (+ дискета) – СПб: Питер,
2002.

Приложение

Текст программы

unit Soberi_; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, Menus, ExtDlgs;

type
TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

OpenPictureDialog1: TOpenPictureDialog; procedure FormCreate(Sender: TObject); procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer); procedure FormPaint(Sender: TObject);

procedure ShowPole; procedure Mixer; procedure NewGame; procedure Formmas; procedure N11Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N10Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end; var
Form1: TForm1;

implementation

uses Progr, Unit3;

{$R *.dfm}

var wc,hc,h,w: integer;fname: string; pole: array of array of byte; ex, ey:integer; stp: array of array of byte;
{(1, 2, 3, 4),(5, 6, 7, 8), (9, 10, 11, 12), (13, 14, 15, 0)} pic: TBitmap; procedure TForm1.NewGame; var i, j:integer; begin try pic.LoadFromFile(fname); except on EFopenError do begin

ShowMessage(‘Ошибка обращения к файлу’ + fname);

Form1.Close; end; end; hc:=Pic.Height div H; wc:=Pic.Width div W;
ClientWidth:= wc * W;
ClientHeight:= hc * H; for i:=1 to H do for j:=1 to W do pole[i,j]:= stp[i,j];
Form1.Mixer;
Form1.ShowPole; end; function Finish: boolean; var row,col: integer; i: integer; begin row:=1; col:=1;

Finish:= True; for i:=1 to 15 do begin if pole[row,col] i then begin

Finish:=False; break; end; if col < 4 then inc(col) else begin col :=1; inc(row); end; end; end; procedure TForm1.Formmas; var i,j:integer; begin
SetLength(stp,H+1,W+1);
SetLength(pole,H+1,W+1); for i:=1 to H do for j:=1 to W do stp[i,j]:=h*(i-1)+j; stp[H,W]:=0 end; procedure Move(cx, cy:integer); var r:integer; begin if not (( abs(cx-ex)=1) and (cy-ey=0) or

( abs(cy-ey)=1) and (cx-ex=0)) then exit;

Pole[ey,ex]:=Pole[cy,cx];

Pole[cy,cx]:=0; ex:=cx; ey:=cy;

Form1.ShowPole; if Finish then begin pole[H,W]:=H*W;

Form1.ShowPole; r:=MessageDlg(‘Цель достигнута!’+ #13+

‘Еще раз?’, mtInformation, [mbYes, mbNo], 0); if r = mrNo then Form1.Close;

Form1.NewGame; end; end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); var cx,cy:integer; begin cx:= Trunc(X / wc) + 1; cy:= Trunc(Y / hc) +1;
Move(cx, cy); end; procedure TForm1.ShowPole; var
Source, Dest: Trect; sx, sy: integer; i,j: integer; begin for i:=1 to W do for j:=1 to H do begin sy:=((pole[i,j]-1) div W)*hc; sx:=((pole[i,j]-1) mod W)*wc;

Source:=Bounds(sx,sy,wc,hc);

Dest:=Bounds((j-1)*wc,(i-1)*hc,wc,hc); if pole[i,j] 0 then Canvas.CopyRect(Dest,pic.Canvas,Source) else Canvas.Rectangle((j-1)*wc,(i-
1)*hc,j*wc,i*hc); end; end; procedure TForm1.Mixer; var x1,y1: integer; x2,y2: integer; d: integer; i: integer; begin x1:=H; y1:=W; randomize; for i:=1 to 150 do begin repeat x2:=x1; y2:=y1; d:=random(4)+1; case d of

1: dec(x2);

2: inc(x2);

3: dec(y2);

4: inc(y2); end; until (x2>=1) and (x2=1) and (y2