|
|
|
В начале игры нужно
расставить мины, затем для каждой клетки поля подсчитать, сколько мин находится
в соседних клетках. Процедура NewGame (ее текст приведен в листинге 15.3) решает
эту задачу.
Листинг 15.3.
Процедура NewGame
// новая игра — генерирует новое поле
procedure
NewGame ();
row,col : integer; // координаты клетки (индексы массива)
n : integer; // количество поставленных мин
k : integer; // кол-во мин в соседних клетках
begin
// Очистим эл-ты массива, соответствующие клеткам
// игрового поля
for row :=1 to MR do
for
col :=1 to MC do Pole[row,col] := 0;
//
расставим мины
Randomize
О; // инициализация ГСЧ
n
:= 0; // кол-во мин
repeat
row := Random(MR) + 1;
col := Random(MC) + 1;
if
(Pole[row,col] <> 9) then begin
Pole[row,col] := 9; n := n+1;
end;
until (n = NM);
// для каждой клетки вычислим // кол-во мин в соседних клетках
for row := 1 to MR do
for
col := 1 to MC do
if (Pole[row,col] <> 9) then
begin k :=0 ;
if
Pole[row-l,col-l] = 9 then k = k + 1;
if
Pole[row-1,col] =' 9 then k = k + 1;
if
Pole[row-1,col+1] = 9 then k = k + 1;
if
Pole[row,col-1] = 9 then k = k + 1;
if
Pole[row,col+1] = 9 then k = k + 1;
if
Pole[row+1,col-1] = 9 then k = k + 1;
if
Pole[row+1,col] = 9 then k = k + 1;
if Pole[row+l,col+l] = 9 then k := k + 1;
Pole[row,col] := k;
end;
status := 0; // начало игры
nMin := 0; // нет обнаруженных мин
nFlag := 0; // нет поставленных флагов
end;
После того как процедура
NewGame расставит мины, процедура showPoie (ее текст приведен в листинге 15.4)
выводит изображение игрового поля.
Листинг 15.4.
Процедура ShowPole
//
Показывает поле
Procedure ShowPoie(Canvas : TCanvas; status : integer);
var
row,col : integer;
begin
for row := 1 to MR do
for
col := 1 to MC do
Kletka(Canvas, row, col, status);
end;
Процедура showPoie
выводит изображение поля последовательно, клетка за клеткой. Вывод изображения
отдельной клетки выполняет процедура Kletka, ее текст приведен в листинге 15.5.
Процедура Kletka используется для вывода изображения поля в начале игры, во
время игры и в ее конце. В начале игры (значение параметра status = 0) процедура
выводит только контур клетки, во время игры — количество мин в соседних клетках
или флажок, а в конце отображает исходное состояние клетки и действия пользователя.
Информацию о фазе игры процедура Kletka получает через параметр status.
Листинг 15.5.
Процедура Kletka
//
выводит на экран изображение клетки
Procedure Kletka(Canvas : TCanvas;
row, col, status : integer);
var
x,y : integer; // координаты области вывода
begin
x
:= (col-1)* W + I; у := (row-1)* H + 1;
if
status = 0 then begin
Canvas.Brush.Color
:= clLtGray;
Canvas.Rectangle(x-1,y-1,x+W,y+H);
exit;
end;
if Pole[row,col] < 100 then
begin
Canvas.Brush.Color := clLtGray; // неоткрытые — серые
Canvas.Rectangle(x-1,y-l,x+W,y+H);
// если игра завершена (status = 2), то показать мины
if
(status = 2) and (Pole[row,col] = 9)
then
Mina(Canvas, x, y) ; exit; end;
//
открытая клетка
Canvas.Brush.Color
:= clWhite; // открытые белые
Canvas.Rectangle(x-1,y-l,x+W,y+H);
if
(Pole[row,col] = 100)
then
exit; // клетка открыта, но она пустая
if (Pole[row,col] >= 101)
and (Pole[row,col] <= 108)
then
begin // в соседних клетках есть мины
Canvas.Font.Size
:= 14;
Canvas.Font.Color
:= clBlue;
Canvas.TextOut(x+3,y+2,IntToStr(Pole[row,col]
-100));
exit;
end;
if (Pole[row,col] >= 200)
then
Flag(Canvas, x, y);
if (Pole[row,col] = 109)
then // на этой мине подорвались!
begin
Canvas.Brush.Color := clRed;
Canvas.Rectangle(x-1,y-1,x+W,y+H);
end;
if ((Pole[row,col] mod 10) = 9)
and
(status = 2) then
Mina(Canvas, x, y);
end;
|
|
|
Релятивисты и позитивисты утверждают, что "мысленный эксперимент" весьма полезный интрумент для проверки теорий (также возникающих в нашем уме) на непротиворечивость. В этом они обманывают людей, так как любая проверка может осуществляться только независимым от объекта проверки источником. Сам заявитель гипотезы не может быть проверкой своего же заявления, так как причина самого этого заявления есть отсутствие видимых для заявителя противоречий в заявлении.
Это мы видим на примере СТО и ОТО, превратившихся в своеобразный вид религии, управляющей наукой и общественным мнением. Никакое количество фактов, противоречащих им, не может преодолеть формулу Эйнштейна: "Если факт не соответствует теории - измените факт" (В другом варианте " - Факт не соответствует теории? - Тем хуже для факта").
Максимально, на что может претендовать "мысленный эксперимент" - это только на внутреннюю непротиворечивость гипотезы в рамках собственной, часто отнюдь не истинной логики заявителя. Соответсвие практике это не проверяет. Настоящая проверка может состояться только в действительном физическом эксперименте.
Эксперимент на то и эксперимент, что он есть не изощрение мысли, а проверка мысли. Непротиворечивая внутри себя мысль не может сама себя проверить. Это доказано Куртом Гёделем.
Понятие "мысленный эксперимент" придумано специально спекулянтами - релятивистами для шулерской подмены реальной проверки мысли на практике (эксперимента) своим "честным словом". Подробнее читайте в FAQ по эфирной физике.
|
|
 |
