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

    −51

    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
    uses crt;
    const mx = 80;
          my = 25;
    var s : string;
        x,y,c1,c2 : integer;
        vx,vy : boolean;
    function len(s:string):integer;
    begin
         len := ord(s[0]);
    end;
    begin
         s := 'Alvor`a в президенты!!1';
         vx := true;
         vy := true;
         randomize;
         repeat
               textcolor(random(16));
               textbackground(random(16));
               clrscr;
               if vx
               then begin
                   if x < mx - len(s)
                   then x := x + 1
                   else vx := false;
               end
               else begin
                    if x > 1
                    then x := x - 1
                    else vx := true;
               end;
               if vy
               then begin
                    if y < my
                    then y := y + 1
                    else vy := false;
               end
               else begin
                    if y > 1
                    then y := y - 1
                    else vy := true;
               end;
               gotoxy(x,y);
               textbackground(random(16));
               write(s);
               sleep(125);
         until keypressed;
    end.

    Мне было скучно, а под рукой был только Pascal ABC

    Запостил: unn4m3d, 18 Ноября 2015

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

    • чорд, про переменные c1 и c2 забыл
      Ответить
    • Большой скандал разразился вокруг снятия с президентской гонки кандитатуры под псевдонимом Alvor. По заключениям экспертов, агитационные материалы, выходящие в эфир по всем телевизионным каналам, содержат в себе техники сублингвистического программирования с использованием цветового кодирования. Выяснено, что специальным образом меняющиеся цвета вызывает особое действие на подсознание, сходное с приемом "25-й кадр". По неподтвержденным данным, реклама кандидата также может провоцировать приступ у людей, склонных к эпилепсии.
      Кроме того, производится проверка экономической деятельности кандидата. Есть подозрение, что финансирование создания компьютерной системы генерации видеоряда проводилась с нарушением законодательства. В настоящее время аудиторы выясняют происхождение средств, затраченных на разработку.
      Ответить
    • >> Мне было скучно, а под рукой был только Pascal ABC
      Девочка? У мальчиков, когда скучно, есть ещё варианты поинтереснее паскаля.
      Ответить
      • А у девочек нету?
        Ответить
        • У девушек вариантов побольше так то
          Ответить
          • а у челнодевушек ещё того больше
            имеются в виду героини kantai collection
            Ответить
            • Будь я такой девушкой я бы и не женился
              Ответить
            • Кстати, а про тянко-танки тоже поди есть аниме?
              Ответить
        • Знать не знаю - со мной девочки никогда не скучают
          Ответить
      • нет, не девочка
        Ответить
        • А хочешь стать, няша?
          Ответить
          • Поди дешевле самолёт купить, чем стать девочкой?
            Ответить
            • Это зависит от того какой девочкой хочешь стать. Коррекция фигуры, форморование груди, удаление волос и удаления кодыка - дорогие удовольствия. А если просто пипиську отрезать - могу за 2000 рублей кухонным ножом
              Ответить
              • В России перед сменой пола необходимо встать на учёт в психиатрической больнице, пройти тщательное обследование и находиться под наблюдением психиатра около 2 лет. По истечении этого срока пациент проходит специальную комиссию, в которую входит не меньше 3 врачей и получает справку с диагнозом "транссексуализм".
                Ответить
                • Это, кстати, самый простой этап. У нас врачи привыкли верить пациентам, иначе не было бы стольких откосивших от армии по дурке.
                  Ответить
                  • > самый простой этап
                    Самая жопа, наверное, документы обновлять. Эти бюрократы и так то не особо дружелюбны...
                    Ответить
                    • не думаю. Фамилию относительно легко сменить, думаю и пол - тоже
                      Ответить
                      • Дык я не про то, можно ли. Конечно можно, справка про TS же есть на руках. Я про то, как при этом на тебя смотреть сами бюрократы и очередь. А менять же не только паспорт, а все доки.

                        Ну и самое весёлое, что всю эту смену надо сделать до операции и ещё год ходить мужиком с бабскими доками ;)
                        Ответить
                        • ну да, побегать придется. А работники гос учереждений все равно смотрят на всех как на говно
                          Ответить
                          • А самое интересное, что после того, как придумали МФЦ, бегать приходится всем. Сотрудники ещё толком не знают, кто что должен делать, и футболят клиентов друг от друга.

                            Нормальным людям приходится в очереди стоять, а тут ещё эти транссексуалы заполонили планету.
                            Ответить
                      • Тыхуууй хууууй
                        Ответить
                • Ну тогда за 5000

                  Меня больше тревожит, что ты уже все разведал и прощупал почву
                  Ответить
                  • А что, зато у кого-нибудь из программистов потом будет понимающая жена.
                    Ответить
                    • главное что бы любимый не догадался
                      Ответить
                      • > главное что бы любимый не догадался
                        Хентай, тентакли, brainfuck, J, perl, ночи правки конфигов, 50 оттенков ЭКМАСкрипта?
                        Нда, главное, чтобы не догадался, а то ещё умрёт от радости.
                        Ответить
                        • так то и настоящие женщины такие есть

                          У меня такая знакомая, правда она замужем, но я уже работаю над этим
                          Ответить
                  • Ну а как ты думаешь, зачем я устроился на работу с большей зарплатой? :3
                    Ответить
                    • https://ru.wikipedia.org/wiki/%D0%9F%D1%80%D0%B5%D0%BA%D1%80%D0%B0%D1%81%D0%BD%D1%8B%D0%B9_%D0%B1%D0%BE%D0%BA%D1%81%D1%91%D1%80
                      Ответить
              • > Коррекция фигуры
                > форморование груди

                Это как раз проще всего. Нужно принимать эстраген и эстрадиол, входящие в состав оральных контрацептивов, которые можно купить в аптеке без рецепта. Курс обойдётся далеко не 2000 рублей, но всё дешевле, чем официальный™.

                Ещё можно злоупотреблять пивом. Алкалоиды хмеля дают эффект, аналогичный женским гормонам. Правда, печень посадишь чуть раньше, чем начнут расти сиськи, но некоторых это не останавливает.
                Ответить
                • > печень посадишь
                  Да гормонами поди тоже, их же всю жизнь потом пить?
                  Ответить
                  • ессесно, яичники то не отрастут
                    Ответить
                    • > ессесно

                      https://vc.ru/p/kak-feysbuk-monitorit-lichnyie-soobshheniya-vseh-polzovateley
                      Ответить
                      • Большое внимание уделяется словам, которые обычно употребляются сексуальными маньяками и убийцами ("имхо", "есессно", "лол" и другие).

                        Лол.
                        Ответить
                      • Лол, имхо это ессесно
                        Ответить
                        • -- лоли привет
                          -- Привет, дядя Педобир, что нового?
                          -- имхо нам ессесно нужно встретицца
                          -- Ну дядя, это как-то неестественно, найди уже себе кого-то своего возраста.
                          -- лол имхо это ессесно
                          Ответить
            • «Птенец-2» российского производства стоит около миллиона рублей. Плюс нужно пройти курс обучения. Плюс каждые полгода нужно обновлять карты, иначе ПВО даст пизды. Плюс горючее...

              Стоимость смены пола я не знаю, но в интернетах пишут, что в Таиланде есть подпольные клиники, где могут всё сделать дешевле, чем у нас.
              Ответить
          • Комикс в тему: http://nhentai.net/g/70941/1/
            Ответить
            • Доступ к запрашиваемому вами ресурсу ограничен!

              Возможные причины ограничения доступа:
              1. По требованию правоохранительных органов в соответствии законодательством и/или на основании решения суда.
              2. Адрес сайта внесён в Единый Реестр доменных имен сайтов, содержащих информацию, распространение которой в Российской Федерации запрещено.
              Получить данные о нахождении в Едином реестре запрашиваемого вами ресурса можно на сайте http://eais.rkn.gov.ru/.
              3. Адрес сайта внесён в Реестр доменных имен сайтов, содержащих информацию, распространяемую с нарушением исключительных прав.
              Получить данные о принятии мер по ограничению доступа к информационным ресурсам можно на сайте http://nap.rkn.gov.ru/reestr/.

              Узнать причину ограничения доступа


              Искомый адрес внесен в реестр на основаниях, предусмотренных статьей 15.1 Федерального закона от 27 июля 2006 года No 149-ФЗ
              дата основания номер основания орган, принявший решение дата внесения в реестр
              внесения в реестр   внесения в реестр о внесении в реестр
              14.05.2015	61301-URL-on	Роскомнадзор	20.05.2015
              14.05.2015	61302-URL-on	Роскомнадзор	20.05.2015
              07.09.2015	76916-URL-on	Роскомнадзор	11.09.2015
              16.10.2015	82969-URL-on	Роскомнадзор	22.10.2015
              Ответить
              • Русню ебет собственное правительство?
                Ответить
              • Судя по предыдущей ссылке на рисованных няш от пользователя Stallman, могу сказать, что РКН всё правильно сделал.
                Ответить
                • заинтриговал, надо подождать, пока все отвернутся
                  Ответить
                  • Нечего там смотреть. Где сиськи? Где тентакли? Где волшебное превращение?

                    В общем, РКН всё правильно сделал.
                    Ответить
                    • > Нечего там смотреть.
                      Да ещё и с цензурой.
                      Ответить
                      • Сколько там той цензуры? Зато какая няшенька-то!
                        Ответить
            • Ну я бы не сказал, что он в тему
              Ответить
              • А что там?
                Ответить
                • Еще одна пидорашка.
                  Ответить
                • Мальчика снарядили девочкой и ашкарьме керьме в задницу шкареме!!!
                  Ответить
                • Ответ на вопрос "Как стать девочкой". Выше это как раз обсуждалось.
                  Ответить
                  • Там было обсуждение смены пола, а тут меняют не пол, а ориентацию в пространстве несколько раз, и так его и так...
                    Ответить

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