1. Pascal / Говнокод #17881

    +118

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    form2.label1.Text:=inttostr(mydots[0,0].StepsNum);
form2.label2.Text:=inttostr(mydots[0,1].StepsNum);
form2.label3.Text:=inttostr(mydots[0,2].StepsNum);
form2.label4.Text:=inttostr(mydots[0,3].StepsNum);
form2.label5.Text:=inttostr(mydots[0,4].StepsNum);
form2.label6.Text:=inttostr(mydots[0,5].StepsNum);
form2.label7.Text:=inttostr(mydots[0,6].StepsNum);
form2.label8.Text:=inttostr(mydots[0,7].StepsNum);
form2.label9.Text:=inttostr(mydots[0,8].StepsNum);
form2.label10.Text:=inttostr(mydots[1,0].StepsNum);
form2.label11.Text:=inttostr(mydots[1,1].StepsNum);
form2.label12.Text:=inttostr(mydots[1,2].StepsNum);
form2.label13.Text:=inttostr(mydots[1,3].StepsNum);
form2.label14.Text:=inttostr(mydots[1,4].StepsNum);
form2.label15.Text:=inttostr(mydots[1,5].StepsNum);
form2.label16.Text:=inttostr(mydots[1,6].StepsNum);
form2.label17.Text:=inttostr(mydots[1,7].StepsNum);
form2.label18.Text:=inttostr(mydots[1,8].StepsNum);
form2.label19.Text:=inttostr(mydots[2,0].StepsNum);
form2.label20.Text:=inttostr(mydots[2,1].StepsNum);
form2.label21.Text:=inttostr(mydots[2,2].StepsNum);
form2.label22.Text:=inttostr(mydots[2,3].StepsNum);
form2.label23.Text:=inttostr(mydots[2,4].StepsNum);
form2.label24.Text:=inttostr(mydots[2,5].StepsNum);
form2.label25.Text:=inttostr(mydots[2,6].StepsNum);
form2.label26.Text:=inttostr(mydots[2,7].StepsNum);
form2.label27.Text:=inttostr(mydots[2,8].StepsNum);
form2.label28.Text:=inttostr(mydots[3,0].StepsNum);
form2.label29.Text:=inttostr(mydots[3,1].StepsNum);
form2.label30.Text:=inttostr(mydots[3,2].StepsNum);
form2.label31.Text:=inttostr(mydots[3,3].StepsNum);
form2.label32.Text:=inttostr(mydots[3,4].StepsNum);
form2.label33.Text:=inttostr(mydots[3,5].StepsNum);
form2.label34.Text:=inttostr(mydots[3,6].StepsNum);
form2.label35.Text:=inttostr(mydots[3,7].StepsNum);
form2.label36.Text:=inttostr(mydots[3,8].StepsNum);
form2.label37.Text:=inttostr(mydots[4,0].StepsNum);
form2.label38.Text:=inttostr(mydots[4,1].StepsNum);
form2.label39.Text:=inttostr(mydots[4,2].StepsNum);
form2.label40.Text:=inttostr(mydots[4,3].StepsNum);
form2.label41.Text:=inttostr(mydots[4,4].StepsNum);
form2.label42.Text:=inttostr(mydots[4,5].StepsNum);
form2.label43.Text:=inttostr(mydots[4,6].StepsNum);
form2.label44.Text:=inttostr(mydots[4,7].StepsNum);
form2.label45.Text:=inttostr(mydots[4,8].StepsNum);
form2.label46.Text:=inttostr(mydots[5,0].StepsNum);
form2.label47.Text:=inttostr(mydots[5,1].StepsNum);
form2.label48.Text:=inttostr(mydots[5,2].StepsNum);
form2.label49.Text:=inttostr(mydots[5,3].StepsNum);
form2.label50.Text:=inttostr(mydots[5,4].StepsNum);
form2.label51.Text:=inttostr(mydots[5,5].StepsNum);
form2.label52.Text:=inttostr(mydots[5,6].StepsNum);
form2.label53.Text:=inttostr(mydots[5,7].StepsNum);
form2.label54.Text:=inttostr(mydots[5,8].StepsNum);
form2.label55.Text:=inttostr(mydots[6,0].StepsNum);
form2.label56.Text:=inttostr(mydots[6,1].StepsNum);
form2.label57.Text:=inttostr(mydots[6,2].StepsNum);
form2.label58.Text:=inttostr(mydots[6,3].StepsNum);
form2.label59.Text:=inttostr(mydots[6,4].StepsNum);
form2.label60.Text:=inttostr(mydots[6,5].StepsNum);
form2.label61.Text:=inttostr(mydots[6,6].StepsNum);
form2.label62.Text:=inttostr(mydots[6,7].StepsNum);
form2.label63.Text:=inttostr(mydots[6,8].StepsNum);
form2.label64.Text:=inttostr(mydots[7,0].StepsNum);
form2.label65.Text:=inttostr(mydots[7,1].StepsNum);
form2.label66.Text:=inttostr(mydots[7,2].StepsNum);
form2.label67.Text:=inttostr(mydots[7,3].StepsNum);
form2.label68.Text:=inttostr(mydots[7,4].StepsNum);
form2.label69.Text:=inttostr(mydots[7,5].StepsNum);
form2.label70.Text:=inttostr(mydots[7,6].StepsNum);
form2.label71.Text:=inttostr(mydots[7,7].StepsNum);
form2.label72.Text:=inttostr(mydots[7,8].StepsNum);
form2.label73.Text:=inttostr(mydots[8,0].StepsNum);
form2.label74.Text:=inttostr(mydots[8,1].StepsNum);
form2.label75.Text:=inttostr(mydots[8,2].StepsNum);
form2.label76.Text:=inttostr(mydots[8,3].StepsNum);
form2.label77.Text:=inttostr(mydots[8,4].StepsNum);
form2.label78.Text:=inttostr(mydots[8,5].StepsNum);
form2.label79.Text:=inttostr(mydots[8,6].StepsNum);
form2.label80.Text:=inttostr(mydots[8,7].StepsNum);
form2.label81.Text:=inttostr(mydots[8,8].StepsNum);

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

    Запостил: Toha, 29 Марта 2015

    Комментарии (13) RSS

    • ava bormand 29.03.2015 00:15 # 0

      Господи... Автор не заметил в тулбаре TStringGrid и составил табличку из 9х9 лейблов?
      Ответить

      • ava kegdan 29.03.2015 06:21 # 0

        Помню у нас на первом курсе кто то тоже так хотел сделать. Но я уже тогда понял, что изобретать велосипед нинужно, а нужно загуглить
        Ответить

        • ava guest 03.04.2015 23:01 # −1

          Страсть к тупым авам не проходит?.. Может, сам выебешь себя в жопу? Мужиком стань, йоба.
          Ответить

          • ava kegdan 04.04.2015 00:16 # −1

            ты как с девушкой разговариваешь, пидор?
            Ответить

      • ava wvxvw 29.03.2015 09:13 # +4

        Давно потерял ссылку на МСДН, кде такой же наивный пришел с вопросом почему если на форму прилепить 5000 кнопок, то начинаются лаги. Оказалось он сапера писал.
        Ответить

        • ava guest 29.03.2015 09:24 # 0

          А есть ли шанс при этом израсходовать какие-то глобальные системные ресурсы (не память/цпу)?
          Ответить

          • ava kegdan 29.03.2015 10:00 # 0

            Ага. Ману и Эфир
            Ответить

          • ava bormand 29.03.2015 10:09 # 0

            Дескрипторы окошек разве что.
            Ответить

            • ava guest 29.03.2015 10:34 # 0

              У меня сейчас глюк. Не могу растянуть окно оперы 12 больше определенного размера или тем более развернуть на весь экран, иначе пропадает отрисовка. Это может быть с этим связано?

              Было и такое: в проге со временем пропадали менюшки. Если перезапустить - все возвращалось на место.
              Ответить

              • ava bormand 29.03.2015 10:35 # 0

                Видеопамяти может быть мало?
                Ответить

                • ava guest 29.03.2015 10:56 # 0

                  Ты про оперу? Лол, а сколько ей нужно? Остальные проги работают нормально.
                  Ответить

                  • ava inkanus-gray 30.03.2015 12:48 # 0

                    Какая ОС и сколько оперативной памяти? Современные веб-браузеры больше 256 мегабайт сжирают.
                    Ответить

                    • ava guest 30.03.2015 12:53 # 0

                      XP 32 bit / 3,3. Памяти достаточно.

                      (Хотите прикол? Заказал 2 гига, а пришло 4)
                      Ответить

    Добавить комментарий