СПИЧКИ в паскале

[spichki]

Реализация выигрышной стратегии для компа: не менее 50 спичек, нужно взять одну и не более чем вдвое больше, чем пред. игрок. Выигрывает тот, кто берет последнюю спичку.

[Serge_Bliznykov]

А вы зря поиском не пользуетесь.
Вот буквально несколько дней назад обсуждалось.
Реализация выигрышной стратегии для компьютера

[spichki]

сложность для меня в том, что мое условие ограничено по другому, если в той задаче(на которую вы дали ссылку) можно брать 1 или 2, то у меня от 1 и не более чем в два раза предыдущего игрока..и опять же выигышность компа при этом

[s-andriano]

Задача другая, но принципы построения выигрышной стратегии те же.

[spichki]

# не знаю куда эту решетку ставить) в общем я изменила код. но не уверена что правильно, что так как нужно, потому что я все еще выигрываю компьютер....блин

var
InitialCount:integer;
Count: integer;
Num,num1: integer;
Player: integer;
Correct: boolean;
begin
cls;
repeat
writeln ('Введите количество спичек');
readln(InitialCount);
if InitialCount<50 then writeln('число спичек по условию не менее 50');
until InitialCount>=50;
Player := 1;
Count := InitialCount;
repeat
write('Ваш ход. На столе ',Count,' спичек. ');
write('Сколько спичек Вы берете? ');
readln(Num);
Correct := (Num>=1) and (Num<=Count);
if not Correct then
writeln('Неверно! Повторите ввод!');
until Correct;
Count:=count-Num;
repeat
if Player=2 then
begin
repeat
write('Ваш ход. На столе ',Count,' спичек. ');
write('Сколько спичек Вы берете? ');
readln(Num);
Correct := (Num>=1) and (Num<=Count)and(num<=num1*2);
if not Correct then
writeln('Неверно! Повторите ввод!');
until Correct;
Count:=count-Num;
end
else
begin
num1:=num*2;
if Num1>Count then
Num1 := Count;
writeln('Компьютер взял ',Num1,' спичек');
Count:=count-Num1;end;
if Player=1 then
Player := 2
else Player := 1;
until Count=0;
if Player=1 then
writeln('Вы победили!')
else writeln('Вы проиграли!');
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[spichki]

в примере (где можно 1 или 2 спички брать), мод использовался, а мне его не нужно?если нужно то как использовать, ведь у меня число спичек не указано

[s-andriano]

Естественно, боту нужно сообщить, какое количество спичек имеется, и сколько взял предыдущий игрок. А он должен ответить, сколько спичек берет он.

[Smitt&Wesson]

# не знаю куда эту решетку ставить

Выделите текст мышкой и нажмите на #.

[s-andriano]

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

в примере (где можно 1 или 2 спички брать), мод использовался, а мне его не нужно?если нужно то как использовать, ведь у меня число спичек не указано

Если у Вас нет идей, как составить формулу, можно поступить проще (в смысле: меньше думать, но больше писать), а именно: осуществить рекурсивный поиск. Т.е. перебрать все решения в глубину и выбрать среди них выигрышное. Т.к. число ходов растет как экспонента, глубина рекурсии не должна быть слишком большой.
Перебор советую начинать с больших чисел.