Создать функцию работы с устройствами ввода-вывода: Узнать какая кнопка нажата, вывести код кнопки

@Константин_2012 · Регистрация: 06.02.2013

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

Люди помогите сделать задание, а то я lisp не сильно понимаю.

Задание: Создать функцию работы с устройствами ввода-вывода: Узнать какая кнопка нажата, вывести код кнопки. Функция должна быть без параметром.

@Catstail · 10.02.2013, 10:25

А в какой среде это надо сделать? Могу в HomeLisp.

@Константин_2012 · 10.02.2013, 16:23 **[ТС]**

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

А в какой среде это надо сделать? Могу в HomeLisp.

ну желательно в mulisp'e, но можно и в home.

А вы не сможете еще реализовать: Умножение всех цифр в списке, список может быть таким (12 -1 пап1 р2ро -2) в mulisp'e

@Catstail · 10.02.2013, 16:47

Сообщение от Константин_2012

А вы не сможете еще реализовать:

по свежим впечатлениям от muLisp-87:

Lisp
1
2
3
4
5
6
(defun prod-list (lst)
  (setq s 1)
  (loop
     ((null lst) s)
     (cond ((numberp (car lst))  (setq s (* s (car lst)))))
     (setq lst (cdr lst))))

@Константин_2012 · 10.02.2013, 16:48 **[ТС]**

Сообщение от Константин_2012

ну желательно в mulisp'e, но можно и в home.

А вы не сможете еще реализовать: Умножение всех цифр в списке, список может быть таким (12 -1 пап1 р2ро -2) в mulisp'e

с умножением я уже разобрался)

@Catstail · 10.02.2013, 16:55

Нажатие кнопок:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
//
//  Программа отображения диалога _Dlg_
//
 
(prog nil
 
      (try (dlgDestroy '_Dlg_) except Nil)
 
      (dlgCreate '_Dlg_ 435 127 "Нажимаем кнопки..." &H8000000F)
 
      (dlgAddControl '_Dlg_ '_BUT_1 _BUTTON 13 13 127 66 '("Tahoma" 8.25 1 0 0) "Кнопка-1")
      (dlgPutPicture '_BUT_1 7)
 
      (dlgAddControl '_Dlg_ '_BUT_2 _BUTTON 150 13 127 65 '("Tahoma" 8.25 1 0 0) "Кнопка-2")
      (dlgPutPicture '_BUT_2 38)
 
      (dlgAddControl '_Dlg_ '_BUT_3 _BUTTON 288 13 127 67 '("Tahoma" 8.25 1 0 0) "Закрыть")
      (dlgPutPicture '_BUT_3 36)
 
      //
      // Пролог загрузки диалога _DLG_
      //
 
      (Prog () 
 
      )
 
      //
      // Обработчик события CLICK для кнопки _BUT_3
      //
 
      (defun _BUT_3_Click  Nil 
 
        (say "Пока!...") 
        (dlgHide '_DLG_)
        (dlgDestroy '_DLG_)
 
      )
 
      //
      //   Назначение процедуры-события _BUT_3_Click  контролу _BUT_3
      //
 
      (dlgSetEvent '_BUT_3 '_BUT_3_Click )
 
      //
      // Обработчик события CLICK для кнопки _BUT_1
      //
 
      (defun _BUT_1_Click  Nil 
 
        (say "Нажата Кнопка-1")
 
      )
 
      //
      //   Назначение процедуры-события _BUT_1_Click  контролу _BUT_1
      //
 
      (dlgSetEvent '_BUT_1 '_BUT_1_Click )
 
      //
      // Обработчик события CLICK для кнопки _BUT_2
      //
 
      (defun _BUT_2_Click  Nil 
 
       (say "Нажата Кнопка-2")
 
      )
 
      //
      //   Назначение процедуры-события _BUT_2_Click  контролу _BUT_2
      //
 
      (dlgSetEvent '_BUT_2 '_BUT_2_Click )
 
      //
      //   Отображение диалога _Dlg_
      //
 
      (dlgShow '_Dlg_)
)

@Константин_2012 · 10.02.2013, 17:13 **[ТС]**

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

Нажатие кнопок:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
//
//  Программа отображения диалога _Dlg_
//
 
(prog nil
 
      (try (dlgDestroy '_Dlg_) except Nil)
 
      (dlgCreate '_Dlg_ 435 127 "Нажимаем кнопки..." &H8000000F)
 
      (dlgAddControl '_Dlg_ '_BUT_1 _BUTTON 13 13 127 66 '("Tahoma" 8.25 1 0 0) "Кнопка-1")
      (dlgPutPicture '_BUT_1 7)
 
      (dlgAddControl '_Dlg_ '_BUT_2 _BUTTON 150 13 127 65 '("Tahoma" 8.25 1 0 0) "Кнопка-2")
      (dlgPutPicture '_BUT_2 38)
 
      (dlgAddControl '_Dlg_ '_BUT_3 _BUTTON 288 13 127 67 '("Tahoma" 8.25 1 0 0) "Закрыть")
      (dlgPutPicture '_BUT_3 36)
 
      //
      // Пролог загрузки диалога _DLG_
      //
 
      (Prog () 
 
      )
 
      //
      // Обработчик события CLICK для кнопки _BUT_3
      //
 
      (defun _BUT_3_Click  Nil 
 
        (say "Пока!...") 
        (dlgHide '_DLG_)
        (dlgDestroy '_DLG_)
 
      )
 
      //
      //   Назначение процедуры-события _BUT_3_Click  контролу _BUT_3
      //
 
      (dlgSetEvent '_BUT_3 '_BUT_3_Click )
 
      //
      // Обработчик события CLICK для кнопки _BUT_1
      //
 
      (defun _BUT_1_Click  Nil 
 
        (say "Нажата Кнопка-1")
 
      )
 
      //
      //   Назначение процедуры-события _BUT_1_Click  контролу _BUT_1
      //
 
      (dlgSetEvent '_BUT_1 '_BUT_1_Click )
 
      //
      // Обработчик события CLICK для кнопки _BUT_2
      //
 
      (defun _BUT_2_Click  Nil 
 
       (say "Нажата Кнопка-2")
 
      )
 
      //
      //   Назначение процедуры-события _BUT_2_Click  контролу _BUT_2
      //
 
      (dlgSetEvent '_BUT_2 '_BUT_2_Click )
 
      //
      //   Отображение диалога _Dlg_
      //
 
      (dlgShow '_Dlg_)
)

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

@Catstail · 10.02.2013, 17:21

Сообщение от Константин_2012

нет, вы не поняли

- не я "не понял", а ты так сформулировал.

@Константин_2012 · 10.02.2013, 17:27 **[ТС]**

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

по свежим впечатлениям от muLisp-87:

Lisp
1
2
3
4
5
6
(defun prod-list (lst)
  (setq s 1)
  (loop
     ((null lst) s)
     (cond ((numberp (car lst))  (setq s (* s (car lst)))))
     (setq lst (cdr lst))))

здесь немного не правильно работает есть я ввожу список (2 hg4 f2f -1 he-2llo), то результат -2 а нужно 32

@Catstail · 10.02.2013, 20:22

Сообщение от Константин_2012

а нужно 32

- и как здесь может получиться 32? Я решал задачу такого содержания: вычислить произведение чисел, входящих в список, элементами которого могут быть числа и произвольные атомы. Перемножаются только числа, атомы опускаются.

Дай точную формулировку задачи.

@Catstail · 10.02.2013, 20:59

Вот пробник клавиатуры для HomeLisp. Отлавливает коды клавиш и нажатие Ctrl, Alt, Shift:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
(prog (k w r)
      (grwCreate 'w 316 100 "Пробник клавиатуры" _WHITE)
      (grwShow 'w)
      (grwFont 'w "Courier" 22 T Nil)
      (grwPrint 'w 5 30 "Нажмите что-нибудь" _RED)
@get  (setq k (grwinkey 'w 100))
      (cond
            ((= k 0) (go @get))
            ((= k 27) (return (grwDestroy 'w)))
      )
      (setq r (strCat (fix2str (% k 256)) " "))
      (if (neq (logand (fix2bit k) &H100) &H0) (setq r (strCat r " Ctr ")) (setq r (strCat r "     ")))
      (if (neq (logand (fix2bit k) &H200) &H0) (setq r (strCat r " Shift ")) (setq r (strCat r "       ")))
      (if (neq (logand (fix2bit k) &H400) &H0) (setq r (strCat r " Alt ")) (setq r (strCat r "     ")))
      (say r)
 
      (go @get)
)

@Константин_2012 · 10.02.2013, 21:09 **[ТС]**

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

- и как здесь может получиться 32? Я решал задачу такого содержания: вычислить произведение чисел, входящих в список, элементами которого могут быть числа и произвольные атомы. Перемножаются только числа, атомы опускаются.

Дай точную формулировку задачи.

Задание: Посчитать произведение цифр во всем списке. Список может быть любой (2 р5р к-2 -1кпи) =>20
Выполнить в mulisp87:
1) с помощью цикла
2) с помощью рекурсии

@Catstail · 10.02.2013, 21:24

Вот решение (HomeLisp):

Lisp
1
2
3
4
5
6
7
8
9
(defun prod-list (lst)
 (apply '*
   (remove-if #'(lambda (x) (not (numberp x))) (apply 'append (mapcar 'explode lst)))))
 
==> prod-list
 
(prod-list '(a s ss d 1 2 h34d))
 
==> 24

Ограничение - только для положительных

Добавлено через 4 минуты
Доработка:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(defun prod-list (lst)
 (apply '*
   (remove-if #'(lambda (x) (not (numberp x)))
     (mapcar #'(lambda (y) (if (eq y '-) -1 y))
       (apply 'append (mapcar 'explode lst))))))
 
==> prod-list
 
(prod-list '(a s ss d 1 -2 h34d))
 
==> -24
 
(prod-list '(a s ss d 1 -2 h3-4d))
 
==> 24

@Константин_2012 · 11.02.2013, 00:06 **[ТС]**

у меня ошибка в remove-if

Lisp
1
2
3
4
5
 (defun prod-list (lst)
 (apply '*
   (remove-if #'(lambda (x) (not (numberp x)))
     (mapcar #'(lambda (y) (if (eq y '-) -1 y))
       (apply 'append (mapcar 'explode lst))))))

как ещё с помощью рекурсии реализовать?

@_sg · 11.02.2013, 01:24

Lisp
1
2
3
4
5
6
7
(defun prod-digits (w &aux (a (car w)) (d (cdr w)))
  (cond ((null w) 1)
        ((symbolp a) (* (apply #'* (mapcar #'digit-char-p (remove-if-not #'digit-char-p (coerce (string a) 'list)))) (prod-digits d)))
        ((* (abs a) (prod-digits d)))))
 
> (prod-digits '(a s ss d 1 -2 h3-4d))
24

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
(defun prod-digits (w &aux (a (car w)) (d (cdr w)))
  (cond ((null w) 1)
        ((numberp a) (* (abs a) (sum-digits d)))
        ((* (apply #'* (mapcar #'digit-char-p
                               (remove-if-not
                                #'digit-char-p
                                (coerce (string a) 'list))))
            (prod-digits d)))
        ((* (abs a) (prod-digits d)))))
 
> (prod-digits '(a s ss d 1 -2 h3-4d))
24

@Константин_2012 · 11.02.2013, 01:28 **[ТС]**

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

Lisp
1
2
3
4
5
6
7
(defun prod-digits (w &aux (a (car w)) (d (cdr w)))
  (cond ((null w) 1)
        ((symbolp a) (* (apply #'* (mapcar #'digit-char-p (remove-if-not #'digit-char-p (coerce (string a) 'list)))) (prod-digits d)))
        ((* (abs a) (prod-digits d)))))
 
> (prod-digits '(a s ss d 1 -2 h3-4d))
24

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
(defun prod-digits (w &aux (a (car w)) (d (cdr w)))
  (cond ((null w) 1)
        ((numberp a) (* (abs a) (sum-digits d)))
        ((* (apply #'* (mapcar #'digit-char-p
                               (remove-if-not
                                #'digit-char-p
                                (coerce (string a) 'list))))
            (prod-digits d)))
        ((* (abs a) (prod-digits d)))))
 
> (prod-digits '(a s ss d 1 -2 h3-4d))
24

Lisp
1
2
3
EVFUN: Не найдена функция SYMBOLP
Функция: symbolp Аргументы: (a)
==> ERRSTATE

что мне делать?

@_sg · 11.02.2013, 01:31

Lisp
1
2
3
4
5
6
7
8
9
10
11
(defun prod-digits (w &aux (a (car w)) (d (cdr w)))
  (cond ((null w) 1)
        ((numberp a) (* (abs a) (prod-digits d)))
        ((* (apply #'* (mapcar #'digit-char-p
                               (remove-if-not
                                #'digit-char-p
                                (coerce (string a) 'list))))
            (prod-digits d)))))
 
> (prod-digits '(a s ss d 1 -2 h3-4d))
24

@Константин_2012 · 11.02.2013, 02:36 **[ТС]**

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

Lisp
1
2
3
4
5
6
7
8
9
10
11
(defun prod-digits (w &aux (a (car w)) (d (cdr w)))
  (cond ((null w) 1)
        ((numberp a) (* (abs a) (prod-digits d)))
        ((* (apply #'* (mapcar #'digit-char-p
                               (remove-if-not
                                #'digit-char-p
                                (coerce (string a) 'list))))
            (prod-digits d)))))
 
> (prod-digits '(a s ss d 1 -2 h3-4d))
24

у меня ошибка: не найдена функция digit-char-p.
Может какие то файлы новые поставить нужно? не поможете?

@Catstail · 11.02.2013, 10:50

Сообщение от Константин_2012

у меня ошибка в remove-if

- возьми последнюю версию (просто замени файлы и настрой библиотеку). Заработает исходный вариант.

@Константин_2012 · 11.02.2013, 12:48 **[ТС]**

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
quote=Catstail;4117368](defun prod-list (lst)
(apply '*
  (remove-if #'(lambda (x) (not (numberp x)))
  (mapcar #'(lambda (y) (if (eq y '-) -1 y))
  (apply 'append (mapcar 'explode lst))))))
 
==> prod-list
 
(prod-list '(a s ss d 1 -2 h34d))
 
==> -24
(prod-list '(a s ss d 1 -2 h3-4d))
 
==> 24

Вы не могли бы написать комментарии для кода? пожалуйста

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@Константин_2012 55 / 56 / 37 Регистрация: 06.02.2013 Сообщений: 257 Записей в блоге: 1

	Создать функцию работы с устройствами ввода-вывода: Узнать какая кнопка нажата, вывести код кнопки 09.02.2013, 21:51. Показов 2512. Ответов 21 Метки нет (Все метки) Люди помогите сделать задание, а то я lisp не сильно понимаю. Задание: Создать функцию работы с устройствами ввода-вывода: Узнать какая кнопка нажата, вывести код кнопки. Функция должна быть без параметром. 0

@Catstail Супер-модератор 38177 / 21112 / 4307 Регистрация: 12.02.2012 Сообщений: 34,716 Записей в блоге: 14
	10.02.2013, 10:25
	А в какой среде это надо сделать? Могу в HomeLisp. 0