Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5703)
2. C++ (2740)
3. Куча (2339)
4. JavaScript (2030)
5. C# (1930)
6. Java (1503)
7. Си (1103)
8. Pascal (649)
9. Python (585)
10. 1C (536)
11. SQL (434)
12. ActionScript (294)
13. Objective C (204)
14. bash (200)
15. Perl (196)
16. Assembler (148)
17. Ruby (144)
18. VisualBasic (140)
19. Lua (51)
20. Go (32)
21. Swift (29)
22. Haskell (28)
23. Kotlin (15)

1. VisualBasic / Говнокод #8246

   −83

   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

   Sub Main()
           Dim MyArray() As Integer
           Dim start As Integer
           Dim ends As Integer
           Dim i As Integer
   
   
   
           For i = 0 To 10
   
   
   
               MyArray(i) = Console.ReadLine()
   
               i = i + 1
   
           Next
   
           'start = Console.Read
   
   
   
   
           Console.ReadKey()
       End Sub
   
   End Module

   как присвоить элементы массива значение введенное с клавиатуры?

   Запостил: smitty, 19 Октября 2011

   Tweet

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

   • bot-minurast 19.10.2011 19:53 # +4

     введенное значение с массива присвоить как элементы клавиатуры?

     Ответить

     • smitty 19.10.2011 19:56 # 0

       элементу массива - значение с клавиатуры

       Ответить

       • bugmenot 19.10.2011 19:57 # +1

         фабрику - рабочему!

         Ответить

   • 3.14159265 19.10.2011 20:07 # +6

     10: DIM K$(10)
     15:FOR I=1 TO 10
     20:K$(I)=INKEY$
     30:NEXT I
     40:END
     
     технологии развиваются. вот уже появились виртуальная машина и сборщик мусора, исключения, классы, linq и лямбды.
     но есть же в этом мире что-то инвариантое, чему не подвластно время.
     

     Ответить

     • 3.14159265 19.10.2011 20:12 # +4

       17:IF INKEY$="" THEN GOTO 17
       34:IF INKEY$="" THEN GOTO 34
       *self-fix*

       Ответить

       • alexoy 19.10.2011 20:25 # −7

         показать все, что скрытоПоясните за каждый оператор во отдельности.

         Ответить

         • 3.14159265 19.10.2011 20:35 # +9

           Поясняю
           

           DIM   съ
           FOR   еб
           TO     и 
           INKEY му
           NEXT  ди
           END   ла

           
           так понятно?

           Ответить

         • 3.14159265 19.10.2011 20:37 # +2

           Ах да. Я забыл про GOTO.
           GOTO - это нахуй.

           Ответить

       • Lure Of Chaos 19.10.2011 20:47 # +6

         *смахнул скупую мужскую слезу* RANDOMIZE USR 15619:REM:LOAD ""

         Ответить

         • bot-minurast 20.10.2011 02:12 # +4

           * CRACKED BY BILL GILBERT

           Ответить

         • bot-minurast 21.10.2011 01:32 # 0

           Кстати, до сих пор осталось: не нажимать shift и пробел одновременно...

           Ответить

   • guest8 09.04.2019 11:46 # −999

     показать все, что скрытоvanished

     Ответить

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

   Ошибка компиляции комментария:

   1. Гости могут высказаться только в понедельник, среду, четверг или воскресение

   Семь раз отмерь — один отрежь, guest!

   А не использовать ли нам bbcode?

   • [b]жирный[/b] — жирный
   • [i]курсив[/i] — курсив
   • [u]подчеркнутый[/u] — подчеркнутый
   • [s]перечеркнутый[/s] — перечеркнутый
   • [blink]мигающий[/blink] — мигающий
   • [color=red]цвет[/color] — цвет (подробнее)
   • [size=20]размер[/size] — размер (подробнее)
   • [code=<language>]some code[/code] (подробнее)

   Проверочный код: *