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

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

Author24 — интернет-сервис помощи студентам

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

@Catstail · 10.04.2014, 11:17

Угадывание выполняется простым перебором?

Файл base.txt

Код

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

Lisp

(defun task-1 (fname att)
  (let ((fi (gensym 'fi))
        (base nil)
        (word nil))
    (filOpen fi fname _INPUT)
    (loop
      (when (filEOF fi) (return t))
      (push (input (filGetLine fi)) base))
    (filClose fi)
    (dotimes (a att 'Число_попыток_исчерпано)
      (printsline "Введите слово")
      (setq word (read))
      (when (member word base) (return 'Угадали!)))))
      
==> task-1
 
(task-1 "base.txt" 3)
 
Введите слово
собака
Введите слово
машина
Введите слово
кошка
 
==> Угадали!
 
(task-1 "base.txt" 3)
 
Введите слово
корабль
Введите слово
автомобиль
Введите слово
компьютер
 
==> Число_попыток_исчерпано

@Nastyha · 15.06.2014, 14:48

допустим у нас есть слова
1 строчка: "кошка",
2 строчка: "мышка",
3 строчка: "паук"
когда мы первый раз вызываем функцию, правильный ответ должен быть "кошка", а не мышка или паук
когда мы второй раз вызываем функцию, ответ должен быть "мышка", а не остальные слова
как такое можно сделать?

@Catstail · 15.06.2014, 21:50

Вот так (с замыканием):

Lisp

(let ((c 0)) 
   (defun next-c nil (setq c (+ c 1)))
   (defun reset-c nil (setq c 0)))
 
(defun task-1 (fname att)
  (let ((fi (gensym 'fi))
        (base nil)
        (word nil)
        (k 0)
        (p (next-c)))
    (filOpen fi fname _INPUT)
    (loop
      (when (filEOF fi) (reset-c) (setq k 0 p (next-c)) (filClose fi) (filOpen fi fname _INPUT))
      (setq base (input (filGetLine fi)) k (+ 1 k))
      (when (= k p) (return t)))
    (filClose fi)
    (dotimes (a att 'Число_попыток_исчерпано)
      (printsline "Введите слово")
      (setq word (read))
      (when (eq word base) (return 'Угадали!)))))

Входной файл wds.txt

Код

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

Запуск:

Lisp

1	(task-1 "wds.txt" Число_попыток)

@PERCHINKA21 · 17.06.2014, 18:25 **[ТС]**

Что это значит ... после запуска программы выдает , что часть входного выражения игнорируется

@Catstail · 17.06.2014, 20:17

Это вот что: сначала нужно ввести (let ***), а потом определение task-1

@Nastyha · 11.07.2014, 14:52

подскажите пожалуйста можно ли сделать так, что бы в 1-ой строке был вопрос, во 2-ой строке ответ на этот вопрос, и чтоб в документе было примерно 5-10 вопросов? И как можно интерфейс сделать?

@Catstail · 11.07.2014, 15:16

В файл можно занести сколько угодно строк, а число попыток задается при запуске (2-й параметр).

@Nastyha · 19.08.2014, 11:10

если с замыканием делать, то при первом и последующих вызовах функции отгадывается одно и тоже слово

, а хотелось что бы слова шли по списку

(может у меня что то не то) или может это все можно объединить т.е. если он угадал первое слово, то тогда игрок начинает отгадывать второе слово, а если он первое не угадал конец игры

@Владимир798546 · 01.09.2014, 17:48

как увеличить количество попыток и ,например, на каждой третьей попытке выдавать подсказку (напр. случайную букву из заданного слова). Когда слово отгадано - выдавать информацию о том с какого раза оно угадано???????

@Catstail · 01.09.2014, 20:06

Сообщение от Владимир798546

как увеличить количество попыток

- у функции task-1 второй параметр это и есть число попыток.

Добавлено через 13 минут
Вот:

Lisp

(let ((c 0)) 
   (defun next-c nil (setq c (+ c 1)))
   (defun reset-c nil (setq c 0)))
 
 
==> reset-c
(defun task-1 (fname att)
  (let ((fi (gensym 'fi))
        (base nil)
        (word nil)
        (k 0)
        (p (next-c))
        (ccc 0)
        (lb  0))
    (filOpen fi fname _INPUT)
    (loop
      (when (filEOF fi) (reset-c) (setq k 0 p (next-c)) (filClose fi) (filOpen fi fname _INPUT))
      (setq base (input (filGetLine fi)) k (+ 1 k))
      (when (= k p) (return t)))
    (filClose fi)
    (dotimes (a att 'Число_попыток_исчерпано)
      (setq ccc (+ 1 ccc))
      (printsline "Введите слово")
      (setq word (read))
      (when (eq word base) (return (strCat "Угадали c " (fix2str ccc) "-й попытки")))
      (when (zerop (% ccc 3))
        (let* ((lll (explode base)))
               (prints "В слове есть буква ")
               (printline (nth (rnd (length lll)) lll)))))))
 
==> task-1
 
(task-1 "wds.txt" 10)
 
Введите слово
yuyu
Введите слово
lklkl
Введите слово
aaaas
В слове есть буква а
Введите слово
xxx
Введите слово
c
Введите слово
vvvvv
В слове есть буква а
Введите слово
бабка
 
==> "Угадали c 7-й попытки"

@Владимир798546 · 01.09.2014, 20:21

ввел код, который вы прислали, выдает
==> task-1

(task-1 "wds.txt" 7)
Введите слово
дерево
Введите слово
слива
Введите слово
дом
В слове есть буква
Внутри LET: Внутри LET: EVFUN: Не найдена функция NTH
==> ERRSTATE

@Catstail · 01.09.2014, 20:38

В этой нити лежит последняя версия ядра (а ниже - последняя версия библиотеки). Замени - заработает.

Другой вариант - введи функцию nth:

Lisp

(DEFUN nth (n lst) 
    (COND ((= n 0) (CAR lst)) 
              ((NULL lst) NIL) 
              (T (nth (- n 1) (CDR lst)))))

и перезапусти.

@Владимир798546 · 01.09.2014, 20:46

отлично, все получилось, спасибо!

@Anko · 20.09.2014, 15:52

подскажите пожалуйст ,какая будет блок схема к этой программе

\

@Anko · 20.09.2014, 16:11

к ней

@Nastyha · 20.09.2014, 22:22

Anko, это уже можно и самим подумать)))

@Anko · 20.09.2014, 23:12

не получается, так что очень нужна помощь (((

@Catstail · 21.09.2014, 09:28

Сообщение от Anko

какая будет блок схема к этой программе

- не рисую блок-схем, т.к. считаю их анахронизмом.

@Anko · 21.09.2014, 15:07

Не могли бы вы рассказать последовательность действий вашей программы

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

@Nastyha 3 / 3 / 0 Регистрация: 15.06.2014 Сообщений: 8
	15.06.2014, 14:48	3
	допустим у нас есть слова 1 строчка: "кошка", 2 строчка: "мышка", 3 строчка: "паук" когда мы первый раз вызываем функцию, правильный ответ должен быть "кошка", а не мышка или паук когда мы второй раз вызываем функцию, ответ должен быть "мышка", а не остальные слова как такое можно сделать? 0

@PERCHINKA21 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 27
	17.06.2014, 18:25 [ТС]	5
	Что это значит ... после запуска программы выдает , что часть входного выражения игнорируется Миниатюры 0

@Catstail Модератор 37302 / 20736 / 4272 Регистрация: 12.02.2012 Сообщений: 34,126 Записей в блоге: 14
	17.06.2014, 20:17	6
	Это вот что: сначала нужно ввести (let ***), а потом определение task-1 0

@Nastyha 3 / 3 / 0 Регистрация: 15.06.2014 Сообщений: 8
	11.07.2014, 14:52	7
	подскажите пожалуйста можно ли сделать так, что бы в 1-ой строке был вопрос, во 2-ой строке ответ на этот вопрос, и чтоб в документе было примерно 5-10 вопросов? И как можно интерфейс сделать? 0

@Catstail Модератор 37302 / 20736 / 4272 Регистрация: 12.02.2012 Сообщений: 34,126 Записей в блоге: 14
	11.07.2014, 15:16	8
	В файл можно занести сколько угодно строк, а число попыток задается при запуске (2-й параметр). 0

@Nastyha 3 / 3 / 0 Регистрация: 15.06.2014 Сообщений: 8
	19.08.2014, 11:10	9
	если с замыканием делать, то при первом и последующих вызовах функции отгадывается одно и тоже слово, а хотелось что бы слова шли по списку (может у меня что то не то) или может это все можно объединить т.е. если он угадал первое слово, то тогда игрок начинает отгадывать второе слово, а если он первое не угадал конец игры 0

@Владимир798546 0 / 0 / 0 Регистрация: 01.09.2014 Сообщений: 3
	01.09.2014, 17:48	10
	как увеличить количество попыток и ,например, на каждой третьей попытке выдавать подсказку (напр. случайную букву из заданного слова). Когда слово отгадано - выдавать информацию о том с какого раза оно угадано??????? 0

@Владимир798546 0 / 0 / 0 Регистрация: 01.09.2014 Сообщений: 3
	01.09.2014, 20:21	12
	ввел код, который вы прислали, выдает ==> task-1 (task-1 "wds.txt" 7) Введите слово дерево Введите слово слива Введите слово дом В слове есть буква Внутри LET: Внутри LET: EVFUN: Не найдена функция NTH ==> ERRSTATE 0

@Владимир798546 0 / 0 / 0 Регистрация: 01.09.2014 Сообщений: 3
	01.09.2014, 20:46	14
	отлично, все получилось, спасибо! 0

@Anko 0 / 0 / 0 Регистрация: 20.09.2014 Сообщений: 9
	20.09.2014, 16:11	16
	к ней Миниатюры 0

@Anko 0 / 0 / 0 Регистрация: 20.09.2014 Сообщений: 9
	20.09.2014, 15:52	15
	подскажите пожалуйст ,какая будет блок схема к этой программе \ 0

@Nastyha 3 / 3 / 0 Регистрация: 15.06.2014 Сообщений: 8
	20.09.2014, 22:22	17
	Anko, это уже можно и самим подумать))) 0

@Anko 0 / 0 / 0 Регистрация: 20.09.2014 Сообщений: 9
	20.09.2014, 23:12	18
	не получается, так что очень нужна помощь ((( 0

@Catstail Модератор 37302 / 20736 / 4272 Регистрация: 12.02.2012 Сообщений: 34,126 Записей в блоге: 14
	21.09.2014, 09:28	19
	Сообщение от Anko какая будет блок схема к этой программе - не рисую блок-схем, т.к. считаю их анахронизмом. 0

@Anko 0 / 0 / 0 Регистрация: 20.09.2014 Сообщений: 9
	21.09.2014, 15:07	20
	Не могли бы вы рассказать последовательность действий вашей программы 0