Важная информация
Показано с 1 по 3 из 3

Тема: Новая игра: Быки и коровы

  1. #1 Новая игра: Быки и коровы 
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Написал реализацию одной известной логической игры "Быки и коровы".
    Правила игры достаточно известные, но я повторюсь:
    Компьютер загадывает 4-х значное число из цифр 1..6, А вам надо его угадать.
    Вы вводите свой вариант, а компьютер даёт вам количество коров и быков.
    Быки - угаданные числа, стоящие на своих местах.
    Коровы - Угаданные числа, стоящие не на своих местах.

    Пример - загадано число 1562.
    Вы ввели 2364.

    Программы выдаст 1 бык и одна корова.
    так как цифра 6 угадана и стоит на своём месте, а 2 тоже угадана, но стоит не на своём месте.

    Вот так. Я угадываю в среднем за 10 ходов.
    Сейчас делаю версию для РК.
    Вложения
    • Тип файла: rar buls.rar (868 байт, Просмотров: 8)
    Последний раз редактировалось Kakos_nonos; 07.11.2012 в 21:37.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  2. Пользователь сказал cпасибо:

    Абадябер (17.11.2012)

  3. #2  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Отлично, давно новенького не было).
    Я тогда скачал, но забыл, и так и не прокомментировал.
    Ну... Работает)
    Дружба-магия-радость!
    Ответить с цитированием  
     

  4. #3  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    В программе ошибка обнаружилась, а именно, он загадывал не от 1 до 6, а от 1 до 5.
    Перекладывать не буду, просто замените в процедуре randgen вот это на 6

    ={randgen}=
    ?[3]
    {nxtrand}
    $(3)(0)
    {ran}
    $(num^3$+)(5?^49+)
    $(3)(3$^1+)
    #(3$^4-|)<ran>
    *[num,num$]<count1cw>
    *[num,num^1+$]<count1cw>
    *[num,num^2+$]<count1cw>
    *[num,num^3+$]<count1cw>
    #(g^g^g^g+++^4-|)<nxtrand>
    **
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Игра в слова
    от Vladislav в разделе Форумные игры
    Ответов: 94
    Последнее сообщение: 20.06.2013, 10:04
  2. Ответов: 0
    Последнее сообщение: 11.09.2012, 10:57
  3. Игра ASTEROID
    от Kakos_nonos в разделе Проекты на Pascal
    Ответов: 2
    Последнее сообщение: 08.07.2012, 13:44
  4. Игра в числа
    от Lika в разделе QBasic
    Ответов: 2
    Последнее сообщение: 24.10.2011, 21:32
  5. Новая версия объектной библиотеки (в разработке)
    от Абадябер в разделе Проекты на Pascal
    Ответов: 9
    Последнее сообщение: 20.07.2011, 13:39
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •