Школоло / Говнокод #19037 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 unn4m3d, (Updated )

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

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

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

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

                Меня больше тревожит, что ты уже все разведал и прощупал почву
                Ответить
            • > Коррекция фигуры
              > форморование груди

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

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

            Стоимость смены пола я не знаю, но в интернетах пишут, что в Таиланде есть подпольные клиники, где могут всё сделать дешевле, чем у нас.
            Ответить
          • Доступ к запрашиваемому вами ресурсу ограничен!

            Возможные причины ограничения доступа:
            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, могу сказать, что РКН всё правильно сделал.
              Ответить
              • заинтриговал, надо подождать, пока все отвернутся
                Ответить
                • Нечего там смотреть. Где сиськи? Где тентакли? Где волшебное превращение?

                  В общем, РКН всё правильно сделал.
                  Ответить

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

Переведи на "PHP", guest!

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


    8