Реализация игры жизнь

         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+15);

         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+15);

          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+15);

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.

 

4. КОНТРОЛЬНЫЙ ПРИМЕР

 

Начальное окно программы:

Рисунок 1

Основное окно программы:

Рисунок 2

Работа программы:

Рисунок 3

 

5. ВЫВОД

 

Данная курсовая работа была написана на языке Pascal. Она обладает понятным интерфейсом. Отличительной особенность данной работы является возможность устанавливать начальные значения ячеек сетки, что позволяет использовать эту программ для анализа поведения различных комбинаций клеток на доске в математической игре «Жизнь».

 

6. СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

 

1. Фролов В. В. Турбо паскаль 7.0. начальный курс. Учебное пособие. Издательство «ОМД Групп» , 2003, -616с, ил.
2. Интернет университет информационных технологий
3. Шериков А. В.  Сравнительный анализ сортировок массивов
4. Методические указания к лабораторным работам. ГОУВПО «воронежский государственный технический университет»; сост. Р.В.Батищев. Воронеж, 2006. 53с.
5. Л.Д. Михелев. «Язык программирования паскаль» издательство.

  Москва, 2007. – 432с.:ил.

6. А.И. Сенокосов Игра жизнь