Куча говна / Говнокод #4655 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 kotobuben, (Updated )

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

  • ava TarasB # Ссылка на оригинал 0

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

    • ava eth0 # Ссылка на оригинал 0 ⇈

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

      • ava telnet # Ссылка на оригинал 0 ⇈

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

    • ava Nerd # Ссылка на оригинал 0 ⇈

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

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

      • ava Crazyzubr # Ссылка на оригинал 0 ⇈

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

        • ava Nerd # Ссылка на оригинал 0 ⇈

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

          • ava bugmenot # Ссылка на оригинал 0 ⇈

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

              • ava bugmenot # Ссылка на оригинал 0 ⇈

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

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

      • ava TarasB # Ссылка на оригинал 0 ⇈

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

  • ava Анонимус # Ссылка на оригинал 0

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

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

Помни, guest, за тобой могут следить!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓