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

    +104

    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
    procedure TForm1.save_to_file_coordinates;
    label
    f,d;
    begin
     f:begin
     if str1=0 then
      begin
       memo1.items.Strings[0]:=memo3.Lines.Strings[0];
       str1:=str1+1;
      end;
     if str1=b then
      begin
        goto d;
      end;
     begin
       memo1.items.Strings[strtoint(floattostr(str1))]:=memo3.Lines.Strings[strtoint(floattostr(str1))];
       str1:=str1+1;
     end;
     goto f;
     end;
      d:begin
          begin
             if b=i then
              begin
                exit;
              end;
              begin
                memo2.items.Strings[strtoint(floattostr(str2))]:=memo3.Lines.Strings[strtoint(floattostr(b))];
                b:=b+1;
                str2:=str2+1;
                end;
      goto d;
    end;
    end;
    
    end;

    Запостил: mistmax, 10 Июня 2010

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

    • вот хороший пример как можно изготовить говно в языке изначально задумывавшимся как обучающий стилю структурного кодинга.
      за такое надо не по рукам, а по морде бить
      Ответить
    • Это жесть. Кровельная.
      Ответить
    • goto - это очень вкусно и полезно.
      фтопку
      Ответить
    • memo1.items? WTF?
      Ответить
    • а мне понравился код) просто протрезвел от него, может он ещё и с бодуна лечит???
      Ответить
    • Begin ... end;
      -ом кода не испортиш
      LOL
      Ответить

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