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

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

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

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

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

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

приветствуеться любая помощ
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.01.2013, 18:14
Ответы с готовыми решениями:

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

игра
Дан крадрат 4х4.Расставить в нем буквы a,b,c,d так,что бы в столбце и строках небыло повторяющихся...

Игра
Помогите решить задача пожалуста я просто несильно разбераюсь в паскале... Дано прямоугольное...

Игра 15
“Игра пятнадцать”. На квадратном поле размерностью 4 х 4 с помощью датчика случайных чисел...

игра
Игра Имеются N пустых коробок. За один ход разрешается положить в K (K<N) коробок по 1 рублю....

5
Puporev
Модератор
58588 / 44484 / 30715
Регистрация: 18.05.2008
Сообщений: 106,574
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
dedok1997
0 / 0 / 0
Регистрация: 27.01.2013
Сообщений: 18
27.01.2013, 18:42  [ТС] 3
Спасибо, в данный момент нету под рукой паскаля поэтому не могу проверить на все равно большое спасибо
0
Puporev
Модератор
58588 / 44484 / 30715
Регистрация: 18.05.2008
Сообщений: 106,574
27.01.2013, 18:45 4
Цитата Сообщение от dedok1997 Посмотреть сообщение
в данный момент нету под рукой паскаля
Так скачай. Например здесь
Скачать Паскаль
Лучше АВС, работает в любой системе и код просто скопировать и вставить.
0
dedok1997
0 / 0 / 0
Регистрация: 27.01.2013
Сообщений: 18
27.01.2013, 18:59  [ТС] 5
Не могли бы вы мне подсказать как скомпелировать эту программу в игру
0
Puporev
Модератор
58588 / 44484 / 30715
Регистрация: 18.05.2008
Сообщений: 106,574
27.01.2013, 19:05 6
Это уж сам, я не умею придумывать.
0
27.01.2013, 19:05
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2013, 19:05

Игра с шариком
Кто нибудь может написать программу: нарисовать шарик. нарисовать перекрестие прицела. шарику...

Игра PacMan
В общем такая ситуация. Мне нужно написать игру на Паскале. Он назывется "Лабиринт" и вот условие:...

Сапер(Игра)
Все(ну мож и не все) мы знаем игру Сапёр (Я лично иногда люблю в неё зарубаться=)) Нужно написать...


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

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

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