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

@dedok1997 · Регистрация: 27.01.2013

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

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

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

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

@Puporev · 27.01.2013, 18:41

Pascal

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.

@dedok1997 · 27.01.2013, 18:42 **[ТС]**

Спасибо, в данный момент нету под рукой паскаля поэтому не могу проверить на все равно большое спасибо

@Puporev · 27.01.2013, 18:45

Сообщение от dedok1997

в данный момент нету под рукой паскаля

Так скачай. Например здесь
Скачать Паскаль
Лучше АВС, работает в любой системе и код просто скопировать и вставить.

@dedok1997 · 27.01.2013, 18:59 **[ТС]**

Не могли бы вы мне подсказать как скомпелировать эту программу в игру

@Puporev · 27.01.2013, 19:05

Это уж сам, я не умею придумывать.

@dedok1997 0 / 0 / 0 Регистрация: 27.01.2013 Сообщений: 18
	27.01.2013, 18:42 [ТС]	3
	Спасибо, в данный момент нету под рукой паскаля поэтому не могу проверить на все равно большое спасибо 0

@Puporev Модератор 64056 / 47472 / 32727 Регистрация: 18.05.2008 Сообщений: 115,185
	27.01.2013, 18:45	4
	Сообщение от dedok1997 в данный момент нету под рукой паскаля Так скачай. Например здесь Скачать Паскаль Лучше АВС, работает в любой системе и код просто скопировать и вставить. 0

@dedok1997 0 / 0 / 0 Регистрация: 27.01.2013 Сообщений: 18
	27.01.2013, 18:59 [ТС]	5
	Не могли бы вы мне подсказать как скомпелировать эту программу в игру 0

@Puporev Модератор 64056 / 47472 / 32727 Регистрация: 18.05.2008 Сообщений: 115,185
	27.01.2013, 19:05	6
	Это уж сам, я не умею придумывать. 0

Опции темы