1. Pascal / Говнокод #19190

    −45

    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
    (*
 * Исходный вариант паскалевских текстов Кисы взят
 * с сайта http://hottabych.net/kisa/.
 * Адаптирован к Gnu Pascal и Free Pascal
 * Сергеем Вакуленко, [email protected].
 *)
program kisa;
var
	input_length, mood, nm: integer;
	input, lastmess: string;
	question, reply_needed: boolean;
	baza: array [1..301] of string;
	qz: array [1..20] of integer;

procedure init;
var
	kj: integer;
begin
	{Если пусто или 1 символ}
	kj := 1;	baza[kj] := 'Ну, венец природы, не стесняйся.';
	kj := kj+1;	baza[kj] := 'Балуешься?';
	kj := kj+1;	baza[kj] := 'Скажи уже что-нибудь.';
	kj := kj+1;	baza[kj] := 'А у Вас Enter запало :-)';
	kj := kj+1;	baza[kj] := 'Тебе нечего сказать?';
	kj := kj+1;	baza[kj] := 'Одно и тоже(.';
	kj := kj+1;	baza[kj] := 'Не стесняйся!';
	kj := kj+1;	baza[kj] := 'Ты любишь мультики? Какие?';
	kj := kj+1;	baza[kj] := 'Не бойся!';
	kj := kj+1;	baza[kj] := 'Сколько тебе лет?';
	kj := kj+1;	baza[kj] := 'У тебя на клавиатуре только одна кнопка?';
	kj := kj+1;	baza[kj] := 'Я терпеливая, а ты?';
	kj := kj+1;	baza[kj] := 'Поговори со мной!';
	kj := kj+1;	baza[kj] := 'Испытываешь моё терпение?';
	kj := kj+1;	baza[kj] := 'С тобой так интересно ;-)';
	kj := kj+1;	{kj=16}

    Я просто оставлю это здесь.

    Запостил: inkanus-gray, 16 Декабря 2015

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

    • ava Dummy00001 16.12.2015 10:55 # +1

      kisa воробьянинов.
      Ответить

      • ava KEKC 26.12.2015 23:45 # 0

        Хм...
        PROCEDURE InitArray(VAR m: TArray);
VAR i: INTEGER;
  PROCEDURE AddValue(s: String);
  BEGIN  m[i] := s;  INC(i);  END;
BEGIN
  i := 0;
  AddValue('Ну, венец природы, не стесняйся.');
  AddValue('Балуешься?');
  AddValue('Скажи уже что-нибудь.');
  (* ... *)
END;
        Ответить

    • ava 3_14dar 27.12.2015 05:02 # 0

      Массивов строк нет?
      Ответить

      • ava bormand 27.12.2015 08:12 # +2

        baza: array [1..301] of string;
        Ответить

        • ava MasterJoda 06.09.2018 07:45 # 0

          Если на турбопаскаль, то можно описвть в разделе const:
          const
    baza: array [1..301] of string = (
        "one", " two", "three", ...
          FreePascal позволяет инициаоизировать в разделе var, на счет GNU не знаю.

          csrf verification error!!!
          Ответить

    • ava kegdan 27.12.2015 14:00 # +2

      >> Адаптирован к Gnu Pascal и Free Pascal

      Прям интересно стало, а как он раньше выглядел, до адаптации
      Ответить

    • ava Desktop 06.09.2018 00:40 # 0

      > kisa
      keep it simple, adorable?
      Ответить

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