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

    +126

    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
    uses
crt;
var
  chasov,
 minutov,
sekundov :byte;
tekushchiy_sekund:word;
begin
clrscr;
write('   chasov ');
read(     chasov);
if chasov=9
           then
               begin
                    clrscr;
                    halt;
               end;
write('  minutov ');
read(    minutov);
write(' sekundov ');
read(   sekundov);
clrscr;
for tekushchiy_sekund:=1
to sekundov+60*minutov+3600*chasov do
  begin
       if keypressed then
                         if readkey=#27
                                       then halt;
       delay(50000);
  end;
sound(300);
readkey;
nosound;
end.

    УГАДАЙТЕ

    Запостил: dos, 11 Июля 2011

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

    • ava gegMOPO4 12.07.2011 00:49 # +24

      Паскал. Савсэм паскал.
      Ответить

    • ava kipar 12.07.2011 09:42 # +1

      отступы отвратительны.
      Delay в 50 раз больше чем надо.
      sound(300) подозреваю черезчур низкий (хотя могу и ошибкаться).
      Ответить

      • ava guest 12.07.2011 11:25 # +20

        А вы ценитель...

        >Delay в 50 раз больше чем надо.
        Делай в паскале зависит от скорости машины, так что зависит от того, на какой машине запускается.
        Ответить

        • ava inkanus-gray 13.07.2011 11:12 # +11

          От скорости машины не очень зависит. Модуль Crt просто вылетает с Runtime 200: Division by zero во время инициализации, если частота процессора больше 300 МГц. С переписанным Crt, если заменить одну переменную с Word на LongInt, то Delay работает более-менее нормально.

          Я написал: «не очень зависит». Зависит не столько от скорости машины, сколько от текущего состояния конвейера и от наличия многозадачной среды.
          Ответить

    • ava Yurik 12.07.2011 11:52 # +18

      Секундов и менутов это какой падеж?
      Ответить

    • ava guest 12.07.2011 12:07 # +2

      Будильник, блин.
      Хотелось бы узнать, почему для девяти часов такое исключение сделано?

      И задолбали подключать crt только для clrscr.
      Ответить

      • ava 7ion 12.07.2011 12:42 # +16

        >И задолбали подключать crt только для clrscr.
        А как еще экран чистить?
        Ответить

        • ava guest 12.07.2011 12:49 # +4

          exec('cls', ''); :D
          Ответить

        • ava gegMOPO4 12.07.2011 13:54 # +20 

          for i:=1 1 to 25 do writeln;
          Ответить

          • ava SmackMyBitchUp 12.07.2011 14:07 # +15

            ошибка
            Ответить

            • ava gegMOPO4 12.07.2011 14:32 # +27

              Это всё из-за того, что на говнокоде не работает автоматическая подсветка ошибок.
              Ответить

          • ava 7ion 12.07.2011 19:21 # +14

            Окей, ты победил.
            Ответить

          • ava guest 13.07.2011 02:07 # +3

            Я установил разрешение экрана vga text mode 80x43. Не работает ваш метод очистки.
            Ответить

          • ava SadKo 13.07.2011 12:39 # +19

            Блин, опередил :)
            Ответить

          • ava 3.14159265 13.07.2011 22:48 # +3

            лол. я мало какими детскими ошибками, будучи нубом, грешил.
            но как только начинал асм учить, то по незнанию так и чистил.
            Ответить

            • ava bugmenot 13.07.2011 23:23 # +4

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

        • ava TarasB 12.07.2011 13:57 # +4

          Нахуй его чистить?
          Ответить

          • ava SmackMyBitchUp 12.07.2011 14:08 # +16

            этика - посрал смысл.
            Ответить

            • ava TarasB 12.07.2011 14:20 # +5

              Понятно, в командной строке ты не работал.
              Особенность командной строки в том, что важно и то, что вывели предыдущие программы.
              Некоторые преподы готовы уже пиздить детей за очистку экрана.
              Даже модуль придумали, чтобы быстро вписать в конец uses и перекомпилировать http://govnokod.ru/4943
              Ответить

              • ava gegMOPO4 12.07.2011 14:33 # +3

                Только готовы? Пусть начинают, правое дело.
                Ответить

              • ava SmackMyBitchUp 12.07.2011 14:39 # +1

                >Понятно, в командной строке ты не работал.

                Ваши выводы унылы, мой друг.
                Ответить

                • ava TarasB 12.07.2011 14:46 # +2

                  Слив засчитан.
                  Ответить

                  • ava SmackMyBitchUp 12.07.2011 14:58 # +2

                    Дак мне незачем кому-то что-то доказывать ^^)
                    Вам же я смотрю надо. Доказывайте, а не несите необоснованную хуйню. Объективнее, Тораско.
                    Ответить

                  • ava guest 13.07.2011 02:22 # +2

                    >Понятно, в командной строке ты не работал.
                    >Слив засчитан.
                    Тролль...
                    http://lurkmore.ru/Правила_демагога наизусть выучил?
                    Ответить

                    • ava TarasB 13.07.2011 09:10 # +6

                      А какое именно правило?
                      Я основывался на другом приёме, взятом из форумов - обвинить оппонента в том, что он чего-то не знает, и сказать после этого что-то очевидное, мало имеющее отношение к делу, с чем оппонент и не собирался спорить.
                      Я называю это "говнокэп".
                      Ответить

              • ava Esper 12.07.2011 15:24 # +15

                Некоторые дети готовы пиздить преподов за то, что те и в XXI веке обучают их паскальной живописи.
                Ответить

            • ava gegMOPO4 12.07.2011 22:04 # +3

              Чистить нужно не до вывода, а после.
              Ответить

        • ava Tronix 14.07.2011 09:03 # +2

          asm mov ax,3; int 10h end;
          Ответить

          • ava guest 14.07.2011 19:42 # +1

            Функция установки видео режима? Очень производительно...
            Ответить

      • ava dos 13.07.2011 02:10 # +17

        crt нужен для sound, nosound, delay, readkey, keypressed.
        Ответить

        • ava guest 13.07.2011 02:19 # +12

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

        • ava 7ion 14.07.2011 12:58 # −20

          показать все, что скрытоCrt? Для delay? Да ну. И для readkey?
          По-моему это все в стандартной библиотеке есть.
          Ответить

          • ava inkanus-gray 14.07.2011 15:02 # +17

            Нет в системе delay. Он в Crt сидит. Опубликовать здесь пруфы system.pas и crt.pas? Дерьмо в них есть, поэтому для говнокода подойдут.
            Ответить

            • ava 7ion 14.07.2011 19:16 # +17

              Публикуй только дерьмо :)
              Ответить

              • ava inkanus-gray 14.07.2011 22:10 # +5

                На всякий случай опубликую рецепт экстракта дерьма из исходников Turbo Vision.
                1. Берём исходники Turbo Vision из Borland Pascal 7.0.
                2. Берём исходники Turbo Vision из Borland Pascal 7.01.
                3. diff -u на всех файлах.
                4. ?????
                5. PROFIT!!!

                Продолжение в этом комментарии писать не буду, ибо это будет всё равно, что сказать, что убийца — дворецкий. Лучше будет опубликовать отдельными говнокодами.

                Но самый интересный — модуль Graph для DOS. Я даже догадываюсь, почему Борланд так и не опубликовал его исходников.
                Ответить

                • ava guest 15.07.2011 01:55 # +2

                  >Лучше будет опубликовать отдельными говнокодами.
                  Наложите нам немного.
                  Ответить

                • ava TarasB 20.07.2011 12:54 # +3

                  > Но самый интересный — модуль Graph для DOS.

                  Что в нём такое?
                  Ответить

    • ava Lure Of Chaos 12.07.2011 15:59 # +19

      тэкушчый сэкунд такой тэкушчый
      Ответить

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