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

    • Господи... Автор не заметил в тулбаре TStringGrid и составил табличку из 9х9 лейблов?
      Ответить
      • Помню у нас на первом курсе кто то тоже так хотел сделать. Но я уже тогда понял, что изобретать велосипед нинужно, а нужно загуглить
        Ответить
        • Страсть к тупым авам не проходит?.. Может, сам выебешь себя в жопу? Мужиком стань, йоба.
          Ответить
          • ты как с девушкой разговариваешь, пидор?
            Ответить
      • Давно потерял ссылку на МСДН, кде такой же наивный пришел с вопросом почему если на форму прилепить 5000 кнопок, то начинаются лаги. Оказалось он сапера писал.
        Ответить
        • А есть ли шанс при этом израсходовать какие-то глобальные системные ресурсы (не память/цпу)?
          Ответить
          • Ага. Ману и Эфир
            Ответить
          • Дескрипторы окошек разве что.
            Ответить
            • У меня сейчас глюк. Не могу растянуть окно оперы 12 больше определенного размера или тем более развернуть на весь экран, иначе пропадает отрисовка. Это может быть с этим связано?

              Было и такое: в проге со временем пропадали менюшки. Если перезапустить - все возвращалось на место.
              Ответить
              • Видеопамяти может быть мало?
                Ответить
                • Ты про оперу? Лол, а сколько ей нужно? Остальные проги работают нормально.
                  Ответить
                  • Какая ОС и сколько оперативной памяти? Современные веб-браузеры больше 256 мегабайт сжирают.
                    Ответить
                    • XP 32 bit / 3,3. Памяти достаточно.

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

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