1. Куча / Говнокод #4655

    +144

    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
    program hurma_by_kotobuben;
uses crt;
var a,b,c,d:integer;
begin
a:=0;
writeln('Тест: "ЛЮБИТЕ ЛИ ВЫ ХУРМУ?');
writeln(' ');
writeln('Вам кажется, что вы отвратительно выглядите, но тут кто-то делает вам комплимент. Ваша реакция?');
writeln('1. Вздрагиваете от неожиданности. Ведь вы думали, что находитесь в комнате в одиночестве.');
writeln('2. Вам приятно, но вы постараетесь это скрыть под напускным эпилептическим припадком');
writeln('3. Вы начинаете покрывать страстными поцелуями свое прекрасное тело');
read(d);
clrscr;
if d=1 then begin
a:=a+1
end;
if d=2 then begin
b:=b+1
end;
if d=3 then begin
c:=c+1
end;
writeln('Вам оторвало голову пропеллером самолета. Как вы поступите?');
writeln('1.Упадете на взлетное поле, обливаясь кровью');
writeln('2.Смешно побежите прочь от самолета, махая руками, словно безголовая курица');
writeln('3.Постараетесь сохранять спокойствие');
   read(d);
clrscr;
if d=1 then begin
a:=a+1
end;
if d=2 then begin
b:=b+1
end;
if d=3 then begin
c:=c+1
end;
writeln('Вы принимаете душ и вдруг слышыте телефонный звонок. Ваши действия?');
writeln('1.Вы продолжаете мытся в душе, делая вид, будто намыливаете подмышки');
writeln('2.Смешно выбегаете из душа, размахивая руками');
writeln('3.Спрашиваете совета окружающих');
  read(d);
clrscr;
if d=1 then begin
a:=a+1
end;
if d=2 then begin
b:=b+1
end;
if d=3 then begin
c:=c+1
end;
writeln('У вас большые оттопыреные уши. Какой пункт вы выберете?');
writeln('1.Пункт 1');
writeln('2.Пункт 2');
writeln('3.Пункт 3');
   read(d);
clrscr;
if d=1 then begin
a:=a+1
end;
if d=2 then begin
b:=b+1
end;
if d=3 then begin
c:=c+1
end;
writeln('ПОДВЕДЕМ ИТОГИ');
writeln();
if a>(b+c)/2 then begin
writeln('Вы независимы, мнение других о хурме для вас ничего не значит');
end;
if b>(a+c)/2 then begin
writeln('В непривычной ситуации вы можете растерятся и смешно побежать, размахивая руками');
end;
if c>(a+b)/2 then begin
writeln('Вы сангвиник, что бы это ни значило');
end;
end.

    Паскаль
    Решил сделать тест по мотивам одноименного теста найденного в интернетах

    Запостил: kotobuben, 16 Ноября 2010

    Комментарии (14) RSS

    • ava TarasB 16.11.2010 22:35 # +1

      Сам насрал, сам людей позвал: "сморите, смотрите!". А в чём тут прикол, где тут нестандартный ход или ещё что?
      Ответить

      • ava eth0 16.11.2010 22:41 # +1

        Обычная школьная птеросня, ИМХО. Скоро забудется, как кошмарный сон.
        Ответить

        • ava telnet 17.11.2010 06:05 # 0

          Почему как кошмарный? Было бы из-за чего переживать.
          Ответить

      • ava Nerd 16.11.2010 23:49 # 0

        >А в чём тут прикол, где тут нестандартный ход или ещё что?
        Ну, например, можно использовать массив, и тогда проверка уберется сама собой:
        writeln('Вам кажется, что вы отвратительно выглядите, но тут кто-то делает вам комплимент. Ваша реакция?');
writeln('1. Вздрагиваете от неожиданности. Ведь вы думали, что находитесь в комнате в одиночестве.');
writeln('2. Вам приятно, но вы постараетесь это скрыть под напускным эпилептическим припадком');
writeln('3. Вы начинаете покрывать страстными поцелуями свое прекрасное тело');
read(d);
arr[d]:=arr[d]+1;

        И в конце проверка тупо индексам массива. Или нэ?
        Ответить

        • ava Crazyzubr 17.11.2010 08:55 # 0

          что в вашем примере , что в примере выше не проверяется ввод. Есть большая уверенность в том что в в окажется число? и оно будет либо 1, либо 2, либо 3 ??
          Ответить

          • ava Nerd 17.11.2010 14:28 # 0

            Да вы правы, проверки нет ни там, ни в мое коде. Это все-таки на совести разработчика сего кода. Я же просто предложил, на мой взгляд, более оптимальный вариант.
            И если уж на то пошло, то в консоль так русские символы не выведутся (выведутся иероглифы), и неплохо бы было написать для этого отдельную функцию.
            Ответить

            • ava bugmenot 17.11.2010 14:51 # 0

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

              • ava Nerd 17.11.2010 15:37 # 0

                стандартная лицуха это уже китайское?Оо.
                Ответить

                • ava bugmenot 17.11.2010 15:53 # 0

                  а вы думали, что Мелинда Гейтс в белом фартучке эти болванки штампует? :-)

                  я про китайскую локализацию, в которой растровые шрифты с иероглифами
                  Ответить

        • ava TarasB 17.11.2010 10:24 # 0

          Я в курсе, что так можно.
          Когда я делал тест в 10 классе, у меня вопросы грузились из внешнего файла.
          Но в этом коде где прикол?
          Ответить

    • ava kotobuben 16.11.2010 22:42 # 0

      понял что я гусь
      больше не буду
      Ответить

    • ava Lure Of Chaos 16.11.2010 22:48 # +2

      хуйма
      Ответить

    • ava Анонимус 17.11.2010 10:40 # +3

      Молодой человек, свои твореня лучше показывать одноклассникам и учителю информатики.
      А потом уже сюда
      Ответить

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