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

    +101

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    ....
    for i:=1 to 4 do for j:=1 to 4 do begin a[i,j]:=b; b:=b-1; end;
    for i:=1 to 4 do for j:=1 to 4 do if a[i,j]=16 then begin k:=i;l:=j; end;
    for i:=1 to 4 do
    for j:=1 to 4 do
    begin
    gotoxy(5+3*i,5+2*j);
    write(a[i,j]);
    end; 
    ....

    http://otvet.mail.ru/question/52501602/

    Запостил: 1_and_0, 02 Февраля 2011

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

    • лапоть
      Ответить
    • да это ж старый добрый паскаль))))
      пятнашки чтоли реализовывал?
      Ответить
    • т.е. непонятно кто форматирование изговнякал
      write('Apasati
      апасрати
      Ответить
    • Как любая программа на Паскале - она абсолютно непонятна, пока не увидишь задачу, к которой это писалось.
      Ответить
      • непонятно только похапешникам :р
        Ответить
        • Перед вами бывший и нынешний Паскалист.
          Ответить
        • эх, сюда бы мои древние паскалевские демки накидать))) говнокод на говнокоде, ностальгия)
          Ответить
          • Не надо.
            Я тоже могу, но говно там унылое в основном.
            Ответить
            • да все мы можем:)
              Ответить
              • тех, кто не может, намного меньше тех, кто может )
                Ответить
                • у меня где-то должен быть фортрановский говнокод на 5,25 дискетах...
                  Ответить
                  • > на 5,25 дискетах
                    2,5 человека
                    Ответить
                    • помнится, только восьмидюймовые дискеты имели маркировку целым числом. Эх, молодёжь!
                      Ответить
              • Я не могу. Мне совесть не позволит.
                Ответить

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