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

    • ava 3.14159265 10.06.2010 17:32 # 0

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

    • ava Stalker 10.06.2010 21:54 # 0

      Это жесть. Кровельная.
      Ответить

    • ava ganja_boy 11.06.2010 07:43 # 0

      goto - это очень вкусно и полезно.
      фтопку
      Ответить

    • ava bugmenot 15.06.2010 19:43 # +1

      memo1.items? WTF?
      Ответить

    • ava CepbIu 19.07.2010 06:40 # +1

      а мне понравился код) просто протрезвел от него, может он ещё и с бодуна лечит???
      Ответить

    • ava adli__82 17.08.2010 10:19 # 0 

      Begin ... end;
      -ом кода не испортиш
      LOL
      Ответить

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