Сейчас работаем

Морской бой на Delphi

Содержание:

Введение ……………………………………………………………………..............................3

  • Основные принципы автоматного программирования (АП)…….5
  • Игра «Морской бой» ……………………………………………….....................7

2.1. Общие правила и исходная диспозиция ………………………..............…7

2.2. Автоматное управление игрой …………………………………..................….9

2.3. Программная реализация проекта………………………................……….13

  • Обсуждение результатов анализа АП…………..…..........………………15

Заключение ……………………………………………………………...........................…. 16

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

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

Подход к программированию, называемый автоматным программированием (АП), активно развивается начиная с 1990-91г.г. главным образом в работах Шалыто А.А. (1,2,3,4) и Кузнецова Б.П. (5). К этому же направлению можно отнести работы Любченко В.С. (6), в которых развивается, так называемое, конечно-автоматное программирование (КА- программирование).

Насколько можно судить по указанным работам толчком к развитию АП явились два фактора:

   - успешное применение конечных автоматов при разработке и реализации трансляторов, точнее говоря, лексической фазы трансляторов (10), и

   - не менее успешное применение конечных автоматов для построения программ логического управления (11).

В самом общем виде, автоматное программирование, иначе называемое так же«программированием от состояний» или «программированием с явным выделением состояний» трактуется как метод разработки программного обеспечения, основанный на расширенной модели конечных автоматов и ориентированный на создание широкого класса приложений (4).

Пример кода:

//=====================================================================================
//функция проверяет свободна ли клетка поля и смежные с ней клетки
function Freedom (x, y: Integer; Field: Tfield): Boolean;
const d: array[1..8,1..2] of Integer =
      ((0,1),(1,0),(0,-1),(-1,0),(1,1),(-1,1),(1,-1),(-1,-1));
var i: Integer;
    dx, dy: Integer;
begin
  if (x > 0) and (x < 11) and (y > 0) and (y < 11) and (Field[x,y] =-1) then
  begin
    for i := 1 to 8 do
    begin
      dx := x + d[i,1];
      dy := y + d[i,2];
      if (dx > 0) and (dx < 11) and (dy > 0) and (dy < 11) and (Field[dx,dy] >-1) then
      begin
        Freedom := False;
        Exit;
      end; {if}
    end; {for}
    Freedom := True;
  end else Freedom := False;
end; {func Freedom}
//=====================================================================================

Содержание архива:

  • исходный код  на Delphi 7
  • пояснительная записка к курсовой работе (29 страниц)
Купить 2500,00 
(без учета комиссии 3,8 %)
Сразу после оплаты Вы получите работу на электронную почту. Файлы отправляются автоматически.
Комментарии (0)

n1kkondrat

/ /

Оставить комментарий

Ты не можешь комментировать

Только зарегистрированые пользователи имеют возможность комментировать работы
Похожие работы
Тип Название Рейтинг Категория Стоимость
Курсовая Игра Морской бой С# WPF 9 .NET (C#) 4 500,00
Диплом Агентство недвижимости Delphi + Access 0 Базы данных 2 000,00
Лабораторная Деревья Delphi 0 Pascal/Delphi бесплатно
Лабораторная «Работа со строками.» Delphi 9 Pascal/Delphi бесплатно
Лабораторная «Массивы. Одномерные массивы.» Delphi 14 Pascal/Delphi бесплатно
Новые работы
Тип Название Рейтинг Категория Стоимость
Исходник Учет продаж (NET 5.0, C#, WPF, SQL Server) new 0 .NET (C#) 1 000,00
Исходник Стековый калькулятор C# new 0 .NET (C#) 700,00
Курсовая Автоматизированная информационная система «Поиск пропавших людей» C# new 0 .NET (C#) 2 500,00
Курсовая Распределение учебной нагрузки C# new 0 .NET (C#) 5 000,00
Исходник Нахождение кратчайшего пути в графе. Алгоритм Дейкстры C# new 0 .NET (C#) 600,00
Морской бой на Delphi
В настоящей работе на примере игры «Морской бой» сравниваются традиционный процедурный и автоматный подходы к программированию.
Категория: Образование
Стоимость: 2500,00