1. Список говнокодов пользователя dvdking

    Всего: 1

  2. Pascal / Говнокод #7961

    +107

    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
    for i:=1 to 8 do
     begin
     case i of
     1 : begin
         xx := 0;
         yy := -LUCH_LEN;
         end;
     2 : begin
         xx := round(LUCH_LEN/sqrt(2));;
         yy := -round(LUCH_LEN/sqrt(2));;
         end;
     3 : begin
         xx := LUCH_LEN;
         yy := 0;
         end;
     4 : begin
         xx := round(LUCH_LEN/sqrt(2));;
         yy := round(LUCH_LEN/sqrt(2));;
         end;
     5 : begin
         xx := 0;
         yy := LUCH_LEN;
         end;
     6 : begin
         xx := -round(LUCH_LEN/sqrt(2));;
         yy := round(LUCH_LEN/sqrt(2));;
         end;
     7 : begin
         xx := -LUCH_LEN;
         yy := 0;
         end;
     8 : begin
         xx := -round(LUCH_LEN/sqrt(2));
         yy := -round(LUCH_LEN/sqrt(2));
         end;
     end;

    вот такое странное сочетание...

    dvdking, 23 Сентября 2011

    Комментарии (11)