Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Курсовая работа: Вычисление "рыбы"

Название: Вычисление "рыбы"
Раздел: Рефераты по информатике, программированию
Тип: курсовая работа Добавлен 04:15:31 22 октября 2010 Похожие работы
Просмотров: 14 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

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

Агентство по образованию

Тихоокеанский Государственный ЭкономическийУниверситет

Экономический институт

Курсовая работа

На тему: «Вычисление “Рыбы”»

Владивосток 2009


Оглавление

Введение

Постановка задачи. Неформальное описание

Формальная постановка задачи

Проверка условия

Методы решения задачи. Описание метода

Алгоритм

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

Руководство пользователя. Окно программы

Описание интерфейса

Заключение

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

Введение

Для написания курсовой мной была выбрана именно эта тема – «Вычисление “Рыбы”». И выбрана неслучайно, так как разработка вариантов перебора, множества возможностей решения меня привлекают больше всего. В процессе решения задачи я столкнулся с рядом сложностей, которые связаны с тем, что задачу можно решить большим количеством способов и «подспособов». И многие из них оказались тупиковыми, в связи с чем, многие функции переписывались заново несколько раз.

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

Постановка задачи. Неформальное описание

Задача поставлена следующим образом: «Задана правильная последовательность костей домино. Подсчитать количество различных правильных ее продолжений, которые являются “Рыбами”».

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

Рис. 1

На рис. 1 приведен пример верного решения задачи:из 27 костей получена ‘Рыба’.

Формальная постановка задачи

Есть 28 костей домино, каждая прономерована с левой и правой стороны.

Они поочередно ставятся одна за другой в соответствии с номерами указанными на сторонах. В случае если к уже использованным костям нельзя ничего добавить то это называется «Рыба».

Проще всего создать объект который будет отвечать необходим требованиям: будет хранить информацию о номерах кости и будет иметь свойства по которому можно проверить используется ли данная костяшка. Нам понадобится массив таких объектов. Итак, имеем массив array(1..28).


Проверка условия

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

1. Последовательность должна генерироваться случайно.

2. Костяшки должны быть отображены последовательно.

Рассмотрим каждый пункт в отдельности.

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

2) Номер на правой стороне кости, должен соответствовать номеру на левой стороне следующей кости.

Методы решения задачи. Описание метода

Задача решается методом решения с возвращением.

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

Алгоритм

1. Создать массив доминошек.

2. Создать массив объектов ТImage.

3. Создать массив для подходящих костей.

4. Внести в массив подходящих костей возможные варианты.

5. Выбрать случайно один из вариантов.

6. Очистить массив подходящих костей.

7. Создать массив использованных костей.

8. Отображаем полученную последовательность.

9. Отображаем неиспользованные кости.

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

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

КлассTDomino .

TDomino = object

SideA,SideB:byte;

State:boolean;

end;

Класс TImage.

TImg = class (TImage)

private

State : boolean;

end;

А также класс формы, обрабатывающий интерфейс программы.

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Label2: TLabel;

DirectoryListBox1: TDirectoryListBox;

Label3: TLabel;

Image1: TImage;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormResize(Sender: TObject);

private

{ Private declarations }

public

Path : string;

end;

Процедура DrawIMGH , рисующая результаты вычисления на форме.

Procedure DrawIMGH();

var

i,a,b,j:byte;

begin

j:=1;

for I := 1 to 28 do

if sp1[i].State=true then

begin

a:=sp1[i].SideA;

b:=Sp1[i].SideB;

Img[j].Left:=left+2+img[i].Width;

left:=img[j].Left;

If (left>form1.Width) or (left+img[i].Width>form1.Width-8) then

begin

form1.Width:=form1.Width+3;

left:=0;

Img[j].Left:=left;

top:=top+img[j].Height+5;

end;

img[j].Top:=top; img[j].Picture.LoadFromFile(Form1.Path+'\IMG\Horizontal\'+

inttostr(A)+inttostr(B)+'.bmp');

img[j].State:=true;

inc(j);

end;

end;

Процедура Tform1.Button1Click запускает обработку .

procedure TForm1.Button1Click(Sender: TObject);

var

i,j,count:byte;

begin

count:=0;

Label1.Caption:='00';

for i:=1 to 28 do

Img[i].Destroy;

for i:=1 to 28 do

Img2[i].Destroy;

CreateImgMass;

init;

curent.SideA:=0;

Curent.SideB:=0;

Curent.State:=true;

GetVariants;

For I:=1 to 28 do

If domino[i].State=false then

inc(count);

Label2.Caption:=inttostr(count);

end;

В процедуру GetVariants мы поместили алгоритм, обрабатывающий все процессы. Это самая большая процедура.

Procedure GetVariants();

Var

i,id,count:byte;

st:boolean;

begin

count:=1;

repeat

st:=false;

if Getnext(curent)=true then

begin

st:=true;

id:=rand(r);

next:=sp2[id];

//****************

for I := 2 to 28 do

if (domino[i].SideA=next.SideA)and(domino[i].SideB=next.SideB) then

domino[i].State:=true;

//******************

prev:=curent;

if prev.SideB<>next.SideA then

if prev.SideB=next.SideB then

begin

next.SideB:=next.SideA;

next.SideA:=prev.SideB;

end;

curent:=next;

sp1[count]:=next;

inc(count);

Form1.Label1.caption:=Form1.Label1.Caption+'->';

Form1.Label1.caption:=Form1.Label1.Caption+inttostr(curent.SideA)+inttostr(curent.SideB);

end;

until (st=false);

end;

И, наконец, функция GetNext ( cur : TDomino ): boolean , ищущая подходящие свободные костяшки.

Function GetNext(cur:TDomino):boolean;

Var

i ,j: byte;

begin

r:=0;

j:=1;

result:=false;

For I:=2 to 28 do

If Domino[i].State = false then

if (cur.SideB = Domino[i].SideB)

or (cur.SideB = Domino[i].SideA) then

begin

sp2[j]:=domino[i];

sp2[j].State:=true;

result:=true;

inc(r);

inc(j);

end;

end;

Руководство пользователя. Окно программы

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


В нижней части формы мы видим пустое пространство и костяшку 0:0. Пустое пространство предназначено для построения одного из полученных вариантов “Рыбы”.

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

Описание интерфейса

Программа предлагает случайно вычислить одну из последовательностей “Рыбы”

Кнопка «Расчитать» запускает процесс, который вычисляет “Рыбу” и выводит ее на экране в последовательность чисел.

Кнопка «Отобразить» графически показывает полученную последовательность, а так же не использованные домино, и через некоторое время (генерация занимает от 1-й до 4-х секунд) мы видим результат работы.


Кнопка «Выход» завершает программу.

Заключение

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

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

1.Иванов Б.Н. Дискретная математика. Алгоритмы и программы: Учеб. Пособие. – Владивосток: Изд-во ДВГТ, 2000. – 288с.

2.Молчанова Л.А., Прудникова Л.И. Delphi в примерах и задачах: Учеб. пособие. Владивосток: Изд-во ТГЭУ, 2006. – 92с.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений06:46:37 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
19:52:23 28 ноября 2015

Работы, похожие на Курсовая работа: Вычисление "рыбы"

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

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



Результаты(150291)
Комментарии (1830)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru