1. 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) RSS

    • ava Cyanide 15.02.2012 23:18 # 0

      Дельфи вообще-то, но пофиг.
      Ответить

      • ava bugmenot 16.02.2012 04:37 # 0

        Delphi 7, на самом деле
        Ответить

      • ava Vasiliy 16.02.2012 09:04 # 0

        Дельфи не язык. Язык "Паскаль".
        Ответить

        • ava SmackMyBitchUp 16.02.2012 09:15 # 0

          Object Pascal
          Ответить

        • ava TarasB 16.02.2012 09:25 # 0

          Официально язык уже с 7й версии.
          Ответить

          • ava Говногость 16.02.2012 10:15 # −1

            Некоторые дельфины кичатся тем, что Delphi 7 признан языком, но может это все от дельфиней гордости? Пруф есть на документ?
            Ответить

            • ava TarasB 16.02.2012 10:35 # −1

              Никто не кичится, мне похрен, как назывется, Обжект Паскаль или Дельфи. Просто я за то, чтобы честно было.
              Вот и читай и ищи документ http://ru.wikipedia.org/wiki/Delphi_(язык_программирования)#cite_note-2
              Ответить

    • ava Steex 17.02.2012 18:33 # 0

      При выводе результата для 7-й области копипаста не поправлена.
      Ответить

    • ava guest 23.03.2012 21:50 # 0

      Вообще-то нельзя использовать идентификаторы, начинающиеся с цифры...
      Ответить

      • ava guest 23.03.2012 21:50 # +1

        Система просто не позволит, должна выкинуть среда с ошибкой
        Ответить

        • ava guest 21.04.2012 12:40 # 0

          Boolean'ы начинаются с буквы "l" (маленькая L)
          Ответить

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