Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.61/41: Рейтинг темы: голосов - 41, средняя оценка - 4.61
0 / 0 / 0
Регистрация: 27.01.2013
Сообщений: 18
1

Игра в «Одиннадцать предметов», игра Баше.

27.01.2013, 18:14. Показов 7909. Ответов 5
Метки нет (Все метки)

прошу помощи в создании программы!

Разработать программную модель следующей игры двух игроков(пользователь-компьютер),реализовав выигрышную стратегию для компьютера:: Игра в «Одиннадцать предметов» игра Баше. На столе одиннадцать предметов, например камешков, орехов или спичек. Количество предметов необязательно должно быть 11, оно может 15, 19 и т.д. Соперники ходят по очереди, и за каждый ход любой из играющих может взять 1,2 или 3 предмета. Проигрывает тот, кто вынужден брать последний предмет.

Алгоритм выигрыша для первого игрока имеет следующий вид
Первый ход. Взять два предмета.
Второй и все последующие ходы. Брать столько предметов, чтобы количество предметов, взятых вместе с соперником за очередной ход, в сумме составляло 4

приветствуеться любая помощ
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.01.2013, 18:14
Ответы с готовыми решениями:

Игра Баше.
Игра Баше. Имеется 15 одинаковых предметов. В играют двое. Сопреники ходят по очереди, за каждый...

Игра <Одиннадцать палочек>
Играют двое. На столе лежат 11 палочек. Первый играющий по своему усмотрению 1,2 или 3 палочки....

Игра Баше
Добрый вечер. Привык все делать сам, но тут 2 дня сижу с этой программой, сто раз код переписывал,...

Игра Баше
Помогите кому не сложно программу сделать, никак не получается. Игра Баше. Напишите программу с...

5
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
27.01.2013, 18:41 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var n,km,pl,i:integer;
begin
clrscr;
n:=11;
writeln('Первым ходом компьютер взял 2 предмета');
n:=n-2;
i:=1;
repeat
repeat
write('Возьмите от 1 до 3 предметов: ');
readln(pl);
until pl in [1..3];
n:=n-pl;
i:=i+1;
km:=4-pl;
n:=n-km;
writeln('Компьютер взял ',km,' предметов');
writeln('Осталось ',n,' предметов');
until n=1;
if odd(i) then write('Выиграл компьютер')
else write('Выиграл пользователь');
readln
end.
1
0 / 0 / 0
Регистрация: 27.01.2013
Сообщений: 18
27.01.2013, 18:42  [ТС] 3
Спасибо, в данный момент нету под рукой паскаля поэтому не могу проверить на все равно большое спасибо
0
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
27.01.2013, 18:45 4
Цитата Сообщение от dedok1997 Посмотреть сообщение
в данный момент нету под рукой паскаля
Так скачай. Например здесь
Скачать Паскаль
Лучше АВС, работает в любой системе и код просто скопировать и вставить.
0
0 / 0 / 0
Регистрация: 27.01.2013
Сообщений: 18
27.01.2013, 18:59  [ТС] 5
Не могли бы вы мне подсказать как скомпелировать эту программу в игру
0
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
27.01.2013, 19:05 6
Это уж сам, я не умею придумывать.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2013, 19:05

Игра Баше/спички
Здравствуйте, нуждаюсь в помощи создания алгоритма беспроигрышной игры компьютера при следующей...

Игра на счет предметов
Я делаю програму для обучения детей считать до 100, по заданию нужно пару игр которые проверяют...

Беспроигрышная игра для компьютера "Баше"
Доброго времени суток. Необходимо реализовать вариант игры, когда игрок не может выиграть у...

Браузерная игра. Перемещение предметов из инвентаря в слоты и обратно
Прошу помощи у знатоков. В общем я сделал перемещение предметов из инвентаря в слоты и обратно, но...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.