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

[makc56]

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

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

if Player=2 then 
writeln('Вы победили!') 
else writeln('Вы проиграли!'); 
end.

Заранее благодарен!



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

[s-andriano]

Начать нужно с того, что описать эту стратегию словами.

[ViktorR]

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


Тут так, без точных указаний, только мысль. Ищи в в сети точное решение.


Так думаю ...

[s-andriano]

Да уж!
Куда катится мир?
Оказывается, нужно не решать задачу, а искать ее решение в И-нете!

[ViktorR]

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


Но как вариант - Интернет

[s-andriano]

Эта "стратегия" записывается в одно арифметическое действие.

[makc56]

Сообщение от s-andriano

Эта "стратегия" записывается в одно арифметическое действие.

какое действие? Я уже голову сломал не могу понять принципа этой стратегии.

[Serge_Bliznykov]

попытайтесь почитать дидактический (для начальной школы, судя по всему) материал, что такое выигрышная стратегия и как она составляется...

ссылки я давал ТУТ

[s-andriano]

Операция называется нахождение остатка деления.
Нужно брать количество спичек равное остатку от деления всего количества спичек на 3.

x := n mod 3;

Естественно, если у нас получается 0, то это - проигрышная позиция. Выигрышной стратегии из нее не существует.

[Serge_Bliznykov]

Сообщение от s-andriano

x := n mod 3;

Естественно, если у нас получается 0, то это - проигрышная позиция. Выигрышной стратегии из нее не существует.

чуть-чуть дополню ответ.

я бы рекомендовал в таком случае на очередном ходе компьютера делать минимально возможный ход (в данном случае компьютер берёт одну спичку) и ждёт - не ошибётся ли противник (если на очередном шаге достигнута выигрышная позиция, то дальше уже по алгоритму компьютер будет делать только верные ходы (выигрышная формула указана).