На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! Исходники Паскаля , Cодержание FAQ (ЧАВО) Паскаля
Название темы должно быть информативным !
Прежде чем задать вопрос, воспользуйтесь Поиском. и проверьте в FAQ (ЧАВО) Паскаля
Чтобы получить вразумительный ответ, подробно опишите проблему: что надо сделать, что не получается и номер ошибки (если есть), которую выводит компилятор.
Для вставки кода ваших программ используйте, пожалуйста, кнопку СODE=pas или выпадающий список СODE для других языков (подсветка синтаксиса).
[!] Как правильно задавать вопросы | Руководство по языку B.Pascal 7 & Objects/LR | Borland Pascal. Руководство пользователя
Модераторы: volvo877
  
> Шахматная доска
Вован Каширский
Сообщ. #1 ,
    Full Member
    ***
    Профиль · PM
    Рейтинг (т): 9
    Случайно никто не рисовал шахматную доску в Graph и фигур для неё... Если есть у кого-нибудь, то отпишитесь тут или хотя бы дайте ссылку. Очень нужно.
    Guru volvo877
    Сообщ. #2 ,

      Moderator
      *******
      Профиль · PM
      Поощрения: 7 Dgm
      Рейтинг (т): 878
      Brain, а что, нельзя вывести на экран BMP-файл с нарисованной доской? А потом просто добавлять фигуры? В архиве прикреплены и доска и фигуры... Просто пройдись по BMP и переконвертируй их в подходящую форму для PutImage (отрисовываешь BMP на экране, делаешь GetImage области соответствующих размеров в буфер, и сохраняешь буфер на диск), и потом когда нужно отобразить какую-то фигуру, вычисляешь координаты (это просто, зная, в какую клетку ее надо отобразить), читаешь буфер с изображением нужной фигуры с диска, и ... PutImage.

      (Кстати, все эти картинки придется еще продублировать, т.к. у меня все фигуры - на темном фоне, т.е. для черных клеток. Тебе нужно и для белых сделать тоже...)
      Прикреплённый файлПрикреплённый файлfigures.zip (6.7 Кбайт, скачиваний: 204)
      Вован Каширский
      Сообщ. #3 ,
        Full Member
        ***
        Профиль · PM
        Рейтинг (т): 9
        Не в тему конечно, но сколько можно расставить на поле коней, чтобы они не били друг друга?
        Guru volvo877
        Сообщ. #4 ,

          Moderator
          *******
          Профиль · PM
          Поощрения: 7 Dgm
          Рейтинг (т): 878
          Цитата Brain @
          сколько можно расставить на поле коней, чтобы они не били друг друга?
          Вообще-то 32 коня можно поставить... :whistle:
          KiRiK
          Сообщ. #5 ,

            Senior Member
            ****
            Профиль · PM
            Поощрения: 3 Dgm
            Рейтинг (т): 25
            Цитата volvo877 @
            Вообще-то 32 коня можно поставить...

            Напоимер на все белые ;)
            Вован Каширский
            Сообщ. #6 ,
              Full Member
              ***
              Профиль · PM
              Рейтинг (т): 9
              А можно написать на Pascal программу, которая бы находила это расположение?
              Guru Romtek
              Сообщ. #7 ,

                пропагандист
                *******
                Профиль · PM
                Поощрения: 30 Dgm
                Рейтинг (т): 188
                Цитата Brain @
                А можно написать на Pascal программу, которая бы находила это расположение?
                риторический вопрос. Тебе исходники поискать?
                Вован Каширский
                Сообщ. #8 ,
                  Full Member
                  ***
                  Профиль · PM
                  Рейтинг (т): 9
                  Да, если можно.... Просто я не нашел..
                  Булат Шакиров
                  Сообщ. #9 ,

                    Оззя
                    ******
                    Профиль · PM
                    Поощрения: 2 Dgm
                    Рейтинг (т): 135
                    C
                    http://www.mini-soft.ru/soft/source/s_18.php
                    Вован Каширский
                    Сообщ. #10 ,
                      Full Member
                      ***
                      Профиль · PM
                      Рейтинг (т): 9
                      А на Паскале такие есть?
                      Guru volvo877
                      Сообщ. #11 ,

                        Moderator
                        *******
                        Профиль · PM
                        Поощрения: 7 Dgm
                        Рейтинг (т): 878
                        Brain, ну это же можно элементарно слово в слово на Паскаль перевести (см. аттач)... А можно даже попробовать оптимизировать :rolleyes:
                        Прикреплённый файлПрикреплённый файлknight.zip (0.93 Кбайт, скачиваний: 150)
                        Булат Шакиров
                        Сообщ. #12 ,

                          Оззя
                          ******
                          Профиль · PM
                          Поощрения: 2 Dgm
                          Рейтинг (т): 135
                          Цитата Brain @
                          А на Паскале такие есть?

                          Цитата
                          Любой хороший паскалист разберется в программе на Си, имея под руками справочник по Си.

                          (С) М. Абраш
                          KiRiK
                          Сообщ. #13 ,

                            Senior Member
                            ****
                            Профиль · PM
                            Поощрения: 3 Dgm
                            Рейтинг (т): 25
                            А еще я умею доказывать, что максимальное количество коней можно поставить 32 и либо только на все белые, либо только на ве черные. :P
                            tester123
                            Сообщ. #14 ,
                              Newbie
                              Профиль · PM
                              Рейтинг (т): нет
                              Уважаемый, volvo877!
                              Спасибо вам за код программы, я её посмотрел - вроде она написана через рекурсивный алгоритм? Верно?
                              Нет ли у вас ссылок на эти алгоритмы? Просто у меня в работе задание - надо указать несколько алгоритмов ( я думаю что перебора ) и выбрать наиболее оптимальный ( с меньшим числом переборов ) и описать почему я его выбрал. Так не могу понять это рекурсивный или перебор с отходом назад. Насчёт доказательства то там вроде надо разделить доску на 2 на 4 части итд
                              Заранее благодарен.
                              0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                              0 пользователей:


                              Рейтинг@Mail.ru
                              [ Script execution time: 0,0621 ]   [ 15 queries used ]   [ Generated: 25.04.24, 13:54 GMT ]  
                              Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.