Разработать программу для игры «Угадывание слова»

@PERCHINKA21 · Регистрация: 07.06.2012

Слова для угадывания хранятся в файле. Предусмотреть подсчет числа попыток и ограничить их количество. Программа должна работать в режиме «человек-машина» и «машина-человек».

@Catstail · 01.06.2014, 18:11

Файл "wds.txt"

Код

дедка
бабка
внучка
жучка
кошка
мышка
репка

Lisp

(defun Угадай-ка (fname &optional (k 3))
  (let* ((fi (gensym 'fi)) (base nil) (word nil))
    (filOpen fi fname _INPUT)
    (loop
       (if (filEOF fi) (return nil))
       (push (filGetLine fi) base))
    (filClose fi)
    (setq word (nth (rnd (length base)) base))
    (dotimes (i k (strCat "Не угадали. Слово " word))
      (printsline "Ваше предположение: ")
      (when (eq word (read)) (return 'ok!)))))  
 
==> Угадай-ка
 
(угадай-ка "wds.txt")
Ваше предположение: 
"кошка"
Ваше предположение: 
"жучка"
Ваше предположение: 
"репка"
 
==> ok!
 
(угадай-ка "wds.txt")
Ваше предположение: 
"репка"
Ваше предположение: 
"дедка"
Ваше предположение: 
"бабка"
 
==> "Не угадали. Слово внучка"

@PERCHINKA21 · 01.06.2014, 18:17 **[ТС]**

в какой программе вы пишите ?

@Catstail · 01.06.2014, 18:17

HomeLisp

@PERCHINKA21 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 27
		1
	Разработать программу для игры «Угадывание слова» 01.06.2014, 14:53. Показов 1464. Ответов 3 Метки нет (Все метки) Слова для угадывания хранятся в файле. Предусмотреть подсчет числа попыток и ограничить их количество. Программа должна работать в режиме «человек-машина» и «машина-человек». __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@PERCHINKA21 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 27
	01.06.2014, 18:17 [ТС]	3
	в какой программе вы пишите ? 0

@Catstail Модератор 33865 / 18894 / 3979 Регистрация: 12.02.2012 Сообщений: 31,676 Записей в блоге: 13
	01.06.2014, 18:17	4
	HomeLisp 0

Опции темы