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)