Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.04.2011, 18:33
Аватар для kotiuma_drug
kotiuma_drug kotiuma_drug вне форума
Прохожий
 
Регистрация: 19.04.2011
Адрес: в по кайфном городке
Сообщения: 18
Версия Delphi: 7 и 10
Репутация: 5
Лампочка конец игры в "делфи"

есть задача и нужно сделать так чтобы при определённых условиях был конец игры в "делфи" условия таковы:есть 4 "левых" фишки пустота (размером в фишку) и 4 "правых". можно ходить на пустоту и через фишку (тоже на пустоту).в конце надо сделать так что 4 "левых" стоят на месте 4 "правых", а 4 "правых" стоят на месте 4 "левых". что предлагаете????
Ответить с цитированием
  #2  
Старый 22.04.2011, 11:03
Аватар для Nehoroshev
Nehoroshev Nehoroshev вне форума
Прохожий
 
Регистрация: 04.04.2011
Адрес: NSK
Сообщения: 4
Версия Delphi: Delphi 2007
Репутация: 10
Вопрос

Я не понял, это у тебя головоломка типа пятнашек или игра с компьютером в роде уголков? И если я правильно понял то поле у тебя 3 на 4 - не слишком ли мало?
Ответить с цитированием
  #3  
Старый 22.04.2011, 11:41
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

я так это так понял:

только я не понял смысла игры - там же никаких комбинаций кроме одной, имхо, нет
по таким правилам толькот 1 фишка может достичь противоллположного конца
...или не обязательно по очереди ходить?
__________________
Пишу программы за еду.
__________________

Последний раз редактировалось NumLock, 22.04.2011 в 11:45.
Ответить с цитированием
  #4  
Старый 23.04.2011, 08:43
Аватар для Nehoroshev
Nehoroshev Nehoroshev вне форума
Прохожий
 
Регистрация: 04.04.2011
Адрес: NSK
Сообщения: 4
Версия Delphi: Delphi 2007
Репутация: 10
По умолчанию

kotiuma_drug, поясни условие.
Ответить с цитированием
  #5  
Старый 24.04.2011, 10:35
Аватар для kotiuma_drug
kotiuma_drug kotiuma_drug вне форума
Прохожий
 
Регистрация: 19.04.2011
Адрес: в по кайфном городке
Сообщения: 18
Версия Delphi: 7 и 10
Репутация: 5
По умолчанию

правильно понял только 'num_look' и ходить по очереди не обязательно
Ответить с цитированием
  #6  
Старый 24.04.2011, 10:52
Аватар для kotiuma_drug
kotiuma_drug kotiuma_drug вне форума
Прохожий
 
Регистрация: 19.04.2011
Адрес: в по кайфном городке
Сообщения: 18
Версия Delphi: 7 и 10
Репутация: 5
По умолчанию

ты прав!!!!!!!!!!!но там не обязательно по очереди ходить!!!!!!!!!!!!!!!!!
Ответить с цитированием
  #7  
Старый 24.04.2011, 11:20
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
var
  pole: array [0..8] of Byte;

function CheckEnd: Boolean;
begin
  Result:=(pole[0]=2) and (pole[1]=2) and (pole[2]=2) and (pole[3]=2)
          and (pole[4]=0) and
          (pole[5]=1) and (pole[6]=1) and (pole[7]=1) and (pole[8]=1);
end;

initialization
  pole[0]:=1;
  pole[1]:=1;
  pole[2]:=1;
  pole[3]:=1;
  pole[4]:=0;
  pole[5]:=2;
  pole[6]:=2;
  pole[7]:=2;
  pole[8]:=2;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:47.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter