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

    −102

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    210 IF A$='1' THEN 2000
220 IF A$='2' THEN 2010
230 IF A$='3' THEN 2020
240 IF A$='4' THEN 2030
250 IF A$='5' THEN 2040
260 IF A$='6' THEN 2060
270 IF A$='7' THEN 2070
280 IF A$='8' THEN 2080
285 IF A$='9' THEN 4000
290 IF A$='10' THEN 3000

    говнокод прямо с обложки книги по прикладному васику для ИТР

    Запостил: bugmenot, 30 Апреля 2011

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

    • ava SmackMyBitchUp 30.04.2011 14:42 # +1

      А пачиму если 9 то сразу 4000? *надул губы, насупил брови*
      Ответить

    • ava Lure Of Chaos 30.04.2011 14:49 # +3

      а это точно вижл? напоминает древние диалекты
      Ответить

    • ava istem 30.04.2011 15:20 # 0

      какой-то сакральный смысл... 
      280 IF A$='8' THEN 2080
285 IF A$='9' THEN 4000
290 IF A$='10' THEN 3000
      Ответить

    • ava guest 30.04.2011 15:24 # −5

      показать все, что скрытону зачем постить придуманый говнокод?
      210 IF A='1' THEN GOTO 2000
      Ответить

    • ava guest 30.04.2011 20:16 # −8

      показать все, что скрытов бейсике не было баксов (это пехапешный подход) и после THEN и перед номером строки нужно было писать GOTO
      Ответить

      • ava istem 30.04.2011 20:20 # +5

        $ это тип string
        Ответить

        • ava guest 30.04.2011 20:26 # 0

          этож char
          Ответить

          • ava bugmenot 30.04.2011 20:27 # +1

            чаров не было, только стринги
            Ответить

            • ava guest 30.04.2011 20:29 # −3

              >не было, только стринги
              мне больше нравятся обычные трусики

              >чаров не было
              у девушек, одевающих обычные трусики такие чары...
              Ответить

      • ava Lure Of Chaos 30.04.2011 22:12 # +6

        пехепешник детектед. постфиксных идентификаторов типов не видел
        Ответить

        • ava guest 30.04.2011 22:58 # −4

          точно, баксы были, но вот код точно придуманый. GOTO здесь пропущенно:
          http://ru.wikipedia.org/wiki/BASIC

          Правильный код найдете на странице


          10 CLS 'Очистка экрана
20 PRINT "Добро пожаловать!" 'Заголовок в первой строке
30 'Цикл, выводящий линию под заголовком, на всю ширину экрана 
40 FOR I=1 TO 80
50 PRINT "=";
60 NEXT I
65 'Ввод символьных данных от пользователя (комментарий добавлен после ввода нижних строк)
70 INPUT "Имя:  ",N$
80 INPUT "Фамилия: ",S$
90 INPUT "Отчество: ",T$
95 'Вырезаем копию первых символов из имени и отчества
100 N2$=LEFT$(N$,1)
110 T2$=LEFT$(T$,1)
120 'Выводим результат
130 PRINT "Ваше имя кратко: ";S$;" ";N2$;". ";T2$;"."
140 INPUT "Повторить программу? (Y/N) ",U$
150 IF U$="Y" THEN GOTO 10
160 END
          Ответить

          • ava bugmenot 30.04.2011 23:09 # +5

            педивикия знает олдбейсик еще хуже, чем ты, анон
            Ответить

          • ava istem 01.05.2011 00:43 # 0 

            http://upload.wikimedia.org/wikipedia/ru/c/c5/3DMAZE-line370-delay5-to-0.png

            оттуда же...
            Вообще-то версий-то полно было...
            Ответить

            • ava guest 01.05.2011 00:48 # −2

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

              • ava istem 01.05.2011 00:59 # +3

                Версий бейсика было много. Были и такие в которых после THEN указывать GOTO необязательно
                Ответить

                • ava guest 01.05.2011 00:59 # 0

                  пруф?
                  Ответить

                  • ava istem 01.05.2011 01:01 # 0

                    http://google.com/search
                    Ответить

                    • ava guest 01.05.2011 01:03 # −2

                      чувак, ты споришь с тем, кто программировал на бейсике
                      Ответить

                      • ava istem 01.05.2011 01:10 # 0

                        На всех-всех компьютерах в мире?
                        Ответить

                        • ava guest 01.05.2011 01:14 # 0

                          от тебя ждут ссылку на пример кода для "багминотовского" бейсика, ссылку на стандарт оного или хотябы на обложку книжки с такими "опечатками"
                          Ответить

                          • ava istem 01.05.2011 01:17 # 0

                            На вот:
                            http://classic-web.archive.org/web/20011212123152/www.rjh.org.uk/altair/4k/int_dis_13.htm

                            Цитата (внизу кода обработчика):
                            ...and if it's a digit then we jump to GOTO's handler as it's an implicit GOTO
                            Ответить

                            • ava guest 01.05.2011 01:23 # −2

                              и где? никакого упоминания про возможность отсутствия GOTO после THEN
                              http://dobrochan.ru/src/jpg/1010/green_troll.jpg
                              Ответить

                          • ava gegMOPO4 11.05.2011 19:40 # 0

                            Вильнюсский Бейсик? MSX?
                            Ответить

                  • ava koodeer 01.05.2011 12:03 # +1

                    На Бейсике-Вильнюс, который был на БК-0010-01 не обязателен GOTO после THEN.
                    Экономя байты, обычно писали просто TH
                    50 IF X=Y TH100

                    И, да, с минимумом пробелов.
                    Ответить

              • ava bugmenot 01.05.2011 02:17 # +1

                в этом треде больше говнокода доставляет баттхёртный школьник (видешь ковычки), пришедший "мстить" мне.
                конечно, ничего не получается, т.к. бейсика ни хрена не знает, и даже не способен воспользоваться статьёй в педивикии.
                Ответить

                • ava Lure Of Chaos 02.05.2011 15:33 # +1

                  ну что поделаешь, компы 80х прошли мимо него - и он многое потерял
                  Ответить

                  • ava bugmenot 03.05.2011 18:41 # +1

                    эволюция прошла мимо него
                    http://www.bitsavers.org/pdf/dartmouth/BASIC_Oct64.pdf прямо в педивикии ссылка на канонiчный синтаксис
                    Ответить

                    • ava Lure Of Chaos 03.05.2011 18:45 # 0 

                      65 PRINT "NØ UNIQUE SØLUTIØN"

                      я еще не видел, что бы О перечеркивали. Обычно только 0, что бы от О отличить
                      Ответить

                      • ava bugmenot 03.05.2011 19:31 # 0

                        там во всей методичке перечеркивание инвертировано
                        live free or die, хули
                        Ответить

                      • ava istem 04.05.2011 22:19 # 0

                        Для меня, как для прожжёного технаря, символ "Ø" полностью аппроксимируется к понятию "Диаметр".
                        (Ноль таки был перечёркнут, но чёрточка не выходила за границы символа)
                        --
                        Nostalgie, мать её за ногу
                        Ответить

                        • ava gegMOPO4 11.05.2011 19:44 # 0

                          При печати книг и журналов иногда использовали именно "Ø" (он и шире цифр, уродство).
                          Ответить

                  • ava gegMOPO4 11.05.2011 19:45 # 0

                    Сдаётся мне, ещё мимо нечего было проходить.
                    Ответить

          • ava Lure Of Chaos 01.05.2011 15:53 # +2

            я лично видел диалекты васика, где гото не нужен
            Ответить

    • ava guest 01.05.2011 00:52 # +1

      багминот, в твоём говнокоде ковычки не верные (не 'lol' a "lol")
      Ответить

    • ava guest 01.05.2011 00:57 # −1

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

    • ava guest 01.05.2011 13:39 # −2

      Где здесь VisualBasic, bugmenot?
      Ответить

    • ava gegMOPO4 11.05.2011 19:46 # 0

      Нормальный код для книг 25-летней давности.
      Ответить

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