Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Аноним
 Аватар для Di3go
5 / 5 / 4
Регистрация: 15.12.2013
Сообщений: 149

Корректировка алгоритма игры "Жизнь"

28.09.2015, 21:56. Показов 587. Ответов 3
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Здравствуйте. У меня некорректно работает игра "жизнь". Работает всё по какому-то адскому алгоритму. Как можно исправить положение?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <stdlib.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Life.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
const int scope = 10;
const int x0 = 1;
const int y0 = 1;
const int wight = 47;
const int height = 29;
int age = 0;
int field[height][wight];
 
void CleanField()
{
    for(int i = 0; i < height; i++)
        for(int j = 0; j < wight; j++)
            field[height][wight] = 0;
 
}
 
void DrawCell(TCanvas *canvas, int x, int y)
{
    canvas->Pen->Color = clGreen;
    canvas->Rectangle(x0+(x-1)*scope, y0+(y-1)*scope, x0+x*scope-1, y0+y*scope-1);
}
 
void DrawCellFromArray(TCanvas *canvas, int i, int j)
{
    canvas->Pen->Color = clGreen;
    if(field[i][j] == 1)
        canvas->Rectangle(x0+(i-1)*scope, y0+(j-1)*scope, x0+i*scope-1, y0+j*scope-1);
}
 
void DeleteCell(TCanvas *canvas, int x, int y)
{
    canvas->Pen->Color = clMenu;
    canvas->Rectangle(x0+(x-1)*scope, y0+(y-1)*scope, x0+x*scope-1, y0+y*scope-1);
    field[x-1][y-1] = 0;
}
 
void _PROCESS()
{
    int sos = 0;
    for(int i = 1; i < height; i++)
    {
        for(int j = 1; j < wight; j++)
        {
            if(field[i-1][j-1] == 1) sos++;
            if(field[i-1][j] == 1) sos++;
            if(field[i-1][j+1] == 1) sos++;
            if(field[i][j-1] == 1) sos++;
            if(field[i][j+1] == 1) sos++;
            if(field[i+1][j-1] == 1) sos++;
            if(field[i+1][j] == 1) sos++;
            if(field[i+1][j+1] == 1) sos++;
            if(sos == 3) field[i][j] = 1;
            if((sos == 2) || (sos == 3))
                field[i][j] = 1;
            else
                field[i][j] = 0;
        }
    }
}
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
PaintBox1->Canvas->Pen->Color = clGray;
PaintBox1->Canvas->MoveTo(0, 0);
for(int i = 0; i < PaintBox1->Width; i+=scope)
{
    PaintBox1->Canvas->LineTo(i, PaintBox1->Height);
    PaintBox1->Canvas->MoveTo(i+scope, 0);
}
PaintBox1->Canvas->MoveTo(0, 0);
for(int i = 0; i < PaintBox1->Height; i+=scope)
{
    PaintBox1->Canvas->LineTo(PaintBox1->Width, i);
    PaintBox1->Canvas->MoveTo(0, i+scope);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
TPaintBox *pb = static_cast<TPaintBox*>(Sender);
int x = X / scope + x0;
int y = Y / scope + y0;
Label1->Caption = x;
Label2->Caption = y;
if(field[x-1][y-1] == 0)
    DrawCell(pb->Canvas, x, y);
else
    DeleteCell(pb->Canvas, x, y);
}
//---------------------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    //TPaintBox *pb = static_cast<TPaintBox*>(Sender);
    CleanField();
    PaintBox1->Refresh();
}
//---------------------------------------------------------------------------
 
 
 
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    //CleanField();
    _PROCESS();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    //TPaintBox *pb = static_cast<TPaintBox*>(Sender);
    for(int i = 0; i < height; i++)
        for(int j = 0; j < wight; j++)
        {
            DrawCellFromArray(PaintBox1->Canvas, i, j);
        }
    _PROCESS();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
CleanField();
if(Timer1->Enabled == true)
{
    Button3->Caption = L"Start";
    Timer1->Enabled = false;
}
else
{
    Button3->Caption = L"Stop";
    Timer1->Enabled = true;
}
 
}
//---------------------------------------------------------------------------
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 28.09.2015, 21:56
Ответы с готовыми решениями:

Некорректная работа игры 'Жизнь'
Доброго времени суток, накидал за пару часов программу - игру Жизнь http://ru.wikipedia.org/wiki/Жизнь_(игра), но алгоритм, видимо,...

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

никто не сталкивался с распараллеливанием игры "Жизнь".
Всем приветики=**** Ребята, очень хотелось поинтересоваться, никто не сталкивался с распараллеливанием игры &quot;Жизнь&quot;. Очень...

3
place status here
 Аватар для gunslinger
3190 / 2227 / 640
Регистрация: 20.07.2013
Сообщений: 6,023
28.09.2015, 23:29
Игра Жизнь
0
Аноним
 Аватар для Di3go
5 / 5 / 4
Регистрация: 15.12.2013
Сообщений: 149
29.09.2015, 18:23  [ТС]
Всё таки, как можно решить в моём случае? Альтернатив нет
0
Аноним
 Аватар для Di3go
5 / 5 / 4
Регистрация: 15.12.2013
Сообщений: 149
30.09.2015, 21:09  [ТС]
Здравствуйте. У меня некорректно работает игра "Жизнь". Клетка в начале появляется из ниоткуда и работает по какому-то непонятному алгоритму. Как можно исправить положение?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <stdlib.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Life.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
const int scope = 10;
const int x0 = 1;
const int y0 = 1;
const int wight = 47;
const int height = 29;
int age = 0;
int field[height][wight];
 
void CleanField()
{
    for(int i = 0; i < height; i++)
        for(int j = 0; j < wight; j++)
            field[height][wight] = 0;
 
}
 
void DrawCell(TCanvas *canvas, int x, int y)
{
    canvas->Pen->Color = clGreen;
    canvas->Rectangle(x0+(x-1)*scope, y0+(y-1)*scope, x0+x*scope-1, y0+y*scope-1);
}
 
void DrawCellFromArray(TCanvas *canvas, int i, int j)
{
    canvas->Pen->Color = clGreen;
    if(field[i][j] == 1)
        canvas->Rectangle(x0+(i-1)*scope, y0+(j-1)*scope, x0+i*scope-1, y0+j*scope-1);
}
 
void DeleteCell(TCanvas *canvas, int x, int y)
{
    canvas->Pen->Color = clMenu;
    canvas->Rectangle(x0+(x-1)*scope, y0+(y-1)*scope, x0+x*scope-1, y0+y*scope-1);
    field[x-1][y-1] = 0;
}
 
void _PROCESS()
{
    int sos = 0;
    for(int i = 2; i < height; i++)
    {
        for(int j = 2; j < wight; j++)
        {
            if(field[i-1][j-1] == 1) sos++;
            if(field[i-1][j] == 1) sos++;
            if(field[i-1][j+1] == 1) sos++;
            if(field[i][j-1] == 1) sos++;
            if(field[i][j+1] == 1) sos++;
            if(field[i+1][j-1] == 1) sos++;
            if(field[i+1][j] == 1) sos++;
            if(field[i+1][j+1] == 1) sos++;
            if(sos == 3) field[i][j] = 1;
            if((sos == 2) || (sos == 3))
                field[i][j] = 1;
            else
                field[i][j] = 0;
        }
    }
}
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
PaintBox1->Canvas->Pen->Color = clGray;
PaintBox1->Canvas->MoveTo(0, 0);
for(int i = 0; i < PaintBox1->Width; i+=scope)
{
    PaintBox1->Canvas->LineTo(i, PaintBox1->Height);
    PaintBox1->Canvas->MoveTo(i+scope, 0);
}
PaintBox1->Canvas->MoveTo(0, 0);
for(int i = 0; i < PaintBox1->Height; i+=scope)
{
    PaintBox1->Canvas->LineTo(PaintBox1->Width, i);
    PaintBox1->Canvas->MoveTo(0, i+scope);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
TPaintBox *pb = static_cast<TPaintBox*>(Sender);
int x = X / scope + x0;
int y = Y / scope + y0;
Label1->Caption = x;
Label2->Caption = y;
if(field[x-1][y-1] == 0)
    DrawCell(pb->Canvas, x, y);
else
    DeleteCell(pb->Canvas, x, y);
}
//---------------------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    //TPaintBox *pb = static_cast<TPaintBox*>(Sender);
    CleanField();
    PaintBox1->Refresh();
}
//---------------------------------------------------------------------------
 
 
 
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    //CleanField();
    _PROCESS();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    //TPaintBox *pb = static_cast<TPaintBox*>(Sender);
    for(int i = 0; i < height; i++)
        for(int j = 0; j < wight; j++)
        {
            DrawCell(PaintBox1->Canvas, i, j);
        }
    _PROCESS();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
CleanField();
if(Timer1->Enabled == true)
{
    Button3->Caption = L"Start";
    Timer1->Enabled = false;
}
else
{
    Button3->Caption = L"Stop";
    Timer1->Enabled = true;
}
 
}
//---------------------------------------------------------------------------

Не по теме:

Новую тему создал потому, что в старой мне так и не ответили. В ссылке я, увы, не понял ничего. А сдача близко.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 30.09.2015, 21:09
Помогаю со студенческими работами здесь

Игра "Борьба за жизнь". Цель игры – убрать с доски все шашки противника
Здравствуйте! Помогите пожалуйста написать программу на с++. Два игрока имеют по n шашек и играют в поле m m клеток, делая ходы по...

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

Моделирование игры "Жизнь"
Помогите пожалуйста моделировать игру &quot;Жизнь&quot; как на картинке ниже, в архиве залил полный исходный код игры, Буду очень...

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

Корректировка игры
uses graph,crt; label n,n1,n2,n3,n4; procedure pole; begin rectangle(150,100,450,400); ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды "Заполнить" и "Очистить" на форме документа
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных выбран регистр накопления, в. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru