Карточная игра - 50 (Delphi) - Исходник программы,   показывающей пример реализации расчетно-графического задания (карточной игры) по дисциплине "Системы искусственного интеллекта" на тему "программирование игр и головоломок" - Автор  iv_ro.

 

Суть игры
   На столе располагаются 24 раскрытые карты: все карты с номерами от 1 до 6 обычной колоды, где туз считается за 1. Масти карт несущественны. Каждый игрок при своем ходе берет со стола карту и складывает ее значение с суммой тех, которые были взяты ранее (таким образом, подсчитывается общая сумма карт, взятых партнерами, а не отдельные суммы для каждого партнера. Первый, кто берет в точности 50 очков выигрывает. Если игрок, взяв карту, не может не превысить 50 очков, то он проигрывает.