Программирование игр и головоломок

[Олеся Ю]

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

[TinMan]

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

думаю, что надо рандомайзить ходы компьютера (при равных оценочных значениях), иначе скучновато играть

Это можно. Можно даже уровень сложности ввести.. ))

но так - весьма и весьма неплохо!! (хотя стратегия не является идеальной, к сожалению: для вашего примера доски ходы 5, 11, 20, 23 приводят к победе человека)

Спасибо, Серж, и за плюсик спасибо!
Но ты не забывай, что выигрышная стратегия только у ОДНОГО игрока, и в конкретном раскладе у компа ее может просто и НЕ БЫТЬ. В таком случае он должен подхватить правильную игру, если человек сделает ошибку. Но если человек играет правильно, у компа нет шансов - чудес не бывает!

Хотя, я, конечно, сильно не уверен, что мой способ так уж хорош.. Может, комп можно обыграть и в случае, когда выигрышная стратегия на его стороне. Я думал над этой задачей довольно долго, но урывками, и всякий раз утыкался в то, что логика моих рассуждений сбита. Наконец, мне это надоело, и я решил сделать ХОТЬ ЧТО-ТО. Ну и придумал некую оценочную функцию - чисто из здравого смысла. Если честно, я не ожидал от нее многого - думал, придется менять, подстраивать.. Но, на мое удивление, она сразу заработала! )) И я, с облегчением вздохнув, решил отложить дальнейшие усилия до более удобного времени. Надеюсь, это не отговорка самому себе, так как меня внутренне задело, что я не могу логически проследить вроде несложную схему..

Есть еще идея присобачить к ней веб-интерфейс и кинуть на сайт - не знаю, найду ли время на такие глупости )).

Сообщение от Олеся Ю

у меня ссылается на ошибку:
xr:= Low(LongInt);

Олеся, я написал, какой у меня компилятор. Почему бы тебе не написать, какой у тебя? Без этой информации на подобные вопросы не отвечаю.

Сообщение от Олеся Ю

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

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

[Олеся Ю]

я не могу разобраться где прописано что комп ходит первым??? мне нужно наоборот...

[Олеся Ю]

что означает tBoard?


procedure Show(b: tBoard);
var
i: word;
вот это мне не совсем понятно=(