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

    Всего: 2

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

    +87

    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
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    var
x,y,R:real;
l11,l12,l1,l21,l22,l2,l3,l41,l42,l4,l51,l52,l5,l6,l71,l72,l7:boolean;
begin
x:= StrToFloat(edit1.text);
y:= StrToFloat(edit2.text);
R:=StrToFloat(edit3.text);
l11:=(y<x) and (x*x+y*y<R*R) and (y>0);
l12:=(x*x+y*y<r*r) and (x<0)and (y>0);
l1:=l11 or l12;
l21:=(y>0) and (x*x+y*y<R*R)and (y>x);
l22:= ( x*x+y*y<R*R)and (y>x) and (x<0);
l2:= l21 or l22;
l3:=(y<0) and ( x*x+y*y<R*R)and (y>x);
l41:= (x>0) and ( x*x+y*y<R*R)and (y<x);
l42:= (x<-1) and ( x*x+y*y>R*R)and (y>x);
l4:= l41 or l42;
l51:= (x>1) and ( x*x+y*y>R*R)and (y<x);
l52:= (x>-1) and ( x*x+y*y>R*R)and (y<x);
l5:= l51 or l52;
l6:= (y>0) and ( x*x+y*y<R*R)and (y>x);
l71:= (x>0) and (x*x+y*y>R*R) and (y<0);
l72:= (y<0) and (x*x+y*y>R*R) and (y<x) and (x<0);
l7:= l71 or l72;
if l1= true then
begin
edit4.text:='T принадлежит 1 области';
end
else
begin
edit4.text:='T не принадлежит 1 области';
end;
if l2= true then
begin
edit4.text:='T принадлежит 2 области';
end
else
begin
edit4.text:='T не принадлежит 2 области'
end;
if l3= true then
begin
edit4.text:='T принадлежит 3 области'
end
else
begin
edit4.text:='T не принадлежит 3 области'
end;
if l4= true then
begin
edit4.text:='T принадлежит 4 области'
end
else
begin
edit4.text:='T не принадлежит 4 области'
end;
if l5= true then
begin
edit4.text:='T принадлежит 5 области'
end
else
begin
edit4.text:='T не принадлежит 5 области'
end;
if l6= true then
begin
edit4.text:='T принадлежит 6 области'
end
else
begin
edit4.text:='T не принадлежит 6 области'
end;
if l4= true then
begin
edit4.text:='T принадлежит 7 области'
end
else
begin
edit4.text:='T не принадлежит 7 области'
end;
end;

end.

    ...

    Cyanide, 15 Февраля 2012

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

  3. PHP / Говнокод #3625

    +161

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    function mysql_prep($value)
{
    if(get_magic_quotes_gpc()){
        $value = stripslashes($value);
    } else {
        $value = addslashes($value);
    }
    return $value;
}

    "Heres a hassle free function to use to check your query string and before its handed to the db. It will add/remove slashes according to the get_magic_quotes_gpc state"

    http://lt.php.net/manual/en/function.addslashes.php

    Cyanide, 02 Июля 2010

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