Запрос, к какому врачу направить в зависимости от болезни

@JustMike · Регистрация: 14.03.2010

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

Помогите написать запрос, к какому врачу направить в зависимости от болезни. Я не очень разбираюсь в прологе, написал базу как смог и не уверен что она подойдёт под такой запрос даже. Пишу на SWI-prolog. Но может кто сможет помочь ,спасибо заранее))

Prolog
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
% Рабочие
рабочий('Александр',ангина).
рабочий('Дмитрий',здоров).
рабочий('Антон',силикоз).
рабочий('Антон',ангина).
рабочий('Гена',силикоз).
рабочий('Виктор',пародонтит).
рабочий('Андрей',пульпит).
рабочий('Владимир',здоров).
рабочий('Иван',дерматит).
рабочий('Иван',экзема).
рабочий('Михаил',отит).
рабочий('Евгений',здоров).
 
% Болезни
болен(ангина).
болен(силикоз).
болен(пародонтит).
болен(пульпит).
болен(дерматит).
болен(экзема).
болен(отит).
 
% Врачи
врач('Терапевт').
врач('Офтальмолог').
врач('Кардиолог').
врач('Невропатолог').
врач('Дерматолог').
врач('Стоматолог').
врач('Пульмонолог').
врач('Оториноларинголог').
 
больной(X,Y):- рабочий(X,Y), болен(Y). % Больной - это тот, кто болен одной из болезней.

@keidin · 14.01.2014, 16:06

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

@JustMike · 14.01.2014, 16:08 **[ТС]**

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

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

А если врач лечит 2 болезни просто через запятую перечислить их?
врач('Стоматолог',пародонтит,,пульпит). как то так?

@keidin · 14.01.2014, 16:19

Сделать этот параметр списком, и проверять принадлежность болезни пациента этому списку. ('Стоматолог',[пародонтит,пульпит])

@JustMike · 14.01.2014, 18:13 **[ТС]**

у меня есть запрос

Prolog
1
2
здоровый(Имя,Болезнь):-рабочий(Имя,Болезнь),not(болен(Болезнь)).% Здоровый - это тот, кто не болен.
допускается_работать(Y,Имя):-здоровый(Имя,Y).

Вот хотел бы объединить его...типа если здоровый следовательно допускается на работать. Как это написать?
Просто хотелось бы чтобы в одном запросе сразу писал ,Типа Паша, здоров, допускается работать.)

@keidin · 14.01.2014, 18:24

Определяем по имени работает человек или на больничном

Prolog
1
2
допускается_работать(Имя):-рабочий(Имя,здоров),write(Имя), write(' Допущен к работе').
допускается_работать(Имя):-рабочий(Имя,Болезнь),болен(Болезнь),write(Имя), write(' Болен, не работает').

@JustMike · 14.01.2014, 19:15 **[ТС]**

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

Определяем по имени работает человек или на больничном

Prolog
1
2
допускается_работать(Имя):-рабочий(Имя,здоров),write(Имя), write(' Допущен к работе').
допускается_работать(Имя):-рабочий(Имя,Болезнь),болен(Болезнь),write(Имя), write(' Болен, не работает').

Спасибо огромное, и можно последний вопрос. я чуть изменил...мне просто нужно по результату болен или нет направить на лечение к врачу, и вот я вроде написал, но чтото не так...

Prolog
1
2
3
допускается_работать(Имя):-рабочий(Имя,здоров),write(Имя), write(' Допущен к работе').
допускается_работать(Имя):-рабочий(Имя,Болезнь),болен(Болезнь),write(Имя), write(' Напрвить на лечение').
направление_на_лечение(Врач):-врач(Врач,Болезнь),болен(Болезнь),write('Направление на лечение к...').

@keidin · 14.01.2014, 20:27

Ну так и почему не сделать это сразу?

Prolog
1
2
допускается_работать(Имя):-рабочий(Имя,Болезнь),болен(Болезнь),врач(Врач,Болезнь),
                           write(Имя), write(' Направить на лечение к '), write(Врач).

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@keidin 99 / 99 / 14 Регистрация: 07.02.2013 Сообщений: 128
	14.01.2014, 16:06
	Добавьте к описанию врача болезни которые он лечит, тогда на основе сопоставления будет выдаваться нужный результат. 0

@keidin 99 / 99 / 14 Регистрация: 07.02.2013 Сообщений: 128
	14.01.2014, 16:19
	Сделать этот параметр списком, и проверять принадлежность болезни пациента этому списку. ('Стоматолог',[пародонтит,пульпит]) 1