Реализация игры жизнь
Автор работы: Пользователь скрыл имя, 13 Апреля 2013 в 08:52, реферат
Описание работы
Основная идея игры состоит в том, чтобы, начав с какого-нибудь простого расположения фишек (организмов), расставленных по различным клеткам доски, проследить за эволюцией исходной позиции под действием “генетических законов” Конуэя, которые управляют рождением, гибелью и выживанием фишек. Конуэй тщательно подбирал свои правила и долго проверял их “на практике”, добиваясь, чтобы поведение популяции было достаточно интересным, а главное, непредсказуемым.
Содержание работы
ВВЕДЕНИЕ
1 ОПИСАНИЕ
2 БЛОК-СХЕМА АЛГОРИТМА РЕШЕНИЯ ЗАДАЧИ
3 ТЕКСТ ПРОГРАММЫ
4 КОНТРОЛЬНЫЙ ПРИМЕР
5 ВЫВОД
6 СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
Файлы: 1 файл
Реализация игры жизнь.doc
— 276.00 Кб (Скачать файл)str(i,t);
str(j,t1);
t:='['+t+','+t1+']';
outtextxy(550,5,t);
end;
end;
if c=#13 then
begin
if (a[i,j]=0) then
begin
a[i,j]:=1;
setcolor(white);
rectangle(x1+1,y1+1,x1+15,y1+
setfillstyle(1,9);
bar(x1+2,y1+2,x1+14,y1+14);
end
else
begin
a[i,j]:=0;
setcolor(white);
rectangle(x1+1,y1+1,x1+15,y1+
setfillstyle(1,0);
bar(x1+2,y1+2,x1+14,y1+14);
end;
end;
end
until c=#27;
setcolor(white);
rectangle(x1+1,y1+1,x1+15,y1+
for i:=0 to n+1 do
for j:=0 to m+1 do b[i,j]:=0;
for q:=1 to n do
for w:=1 to m do b[q,w]:=a[q,w];
k:=0;
u:=1;
setfillstyle(1,7);
bar(1,1,400,20);
setfillstyle(1,7);
Repeat
begin
for i:=1 to n do
for j:=1 to m do
begin
h:=vspmas(i,j,a);
if (h=0) or (h=1) or (h>3) then b[i,j]:=0;
if (h=3) then b[i,j]:=1;
h:=0;
end;
{ rec(n,m); }
see_a(n,m,b);
setfillstyle(1,7);
bar(495,2,650,30);
str(u,t);
t:='Џ®Є®«ҐЁҐ: '+t;
outtextxy(500,10,t);
outtextxy(10,10,'‚лЇ®«ҐЁҐ...')
delay(250);
k:=0;
for q:=1 to n do
for w:=1 to m do if (a[q,w]<>b[q,w]) then k:=k+1;
if (k=0) then c:='q';
for q:=1 to n do
for w:=1 to m do a[q,w]:=b[q,w];
end;
inc(u);
Until (keypressed) or (c='q');
bar(1,1,400,30);
Outtextxy(10,10,'ЏаҐ®Ўа §®ў Ёп ®Є®зҐл! Ќ ¦¬ЁвҐ <ENTER>... ');
readln;
end.
КОНТРОЛЬНЫЙ ПРИМЕР
Начальное окно программы:
Рисунок 1
Основное окно программы:
Рисунок 2
Работа программы:
Рисунок 3
ВЫВОД
Данная курсовая работа была написана на языке Pascal. Она обладает понятным интерфейсом. Отличительной особенность данной работы является возможность устанавливать начальные значения ячеек сетки, что позволяет использовать эту программ для анализа поведения различных комбинаций клеток на доске в математической игре «Жизнь».
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
- Фролов В. В. Турбо паскаль 7.0. начальный курс. Учебное пособие. Издательство «ОМД Групп» , 2003, -616с, ил.
- Интернет университет информационных технологий
- Шериков А. В. Сравнительный анализ сортировок массивов
- Методические указания к лабораторным работам. ГОУВПО «воронежский государственный технический университет»; сост. Р.В.Батищев. Воронеж, 2006. 53с.
- Л.Д. Михелев. «Язык программирования паскаль» издательство.
Москва, 2007. – 432с.:ил.
- А.И. Сенокосов Игра жизнь