Контрольная работа по предмету интеллектуальные информационные системы на тему: Создать программу на swi-prolog

Предметная область. Отношения, необходимые для начисления стипендии принятия студента на работу. 1. Студент получает стипендию, если его средний балл больше 4. 2. Студента принимают на работу в компанию, если его средний балл больше или равен минимального бала фирмы. Листинг программы: % Строим базу знаний % Факты, представленные в процедуре stud % устанавливают соответствие студентов и их средних баллов % stud(N, Sr) stud('Ivanov', 4.3). stud('Pupkin', 3.2). stud('Vetrov', 4.8). stud('Petrov', 3.9). stud('Levchenko', 4.7). stud('Sidorov', 5.0). stud('Semenov', 4.3). stud('Pashin', 3.2). stud('Andreev', 4.8). stud('Grigorev', 3.9). stud('Smirnow', 4.7). stud('Leontev', 5.0). % Составляем правило "Стипендия" % N - имя студента % Результат вызова этого правила: % 1. если параметром передать конкретное имя Prolog-система даст ответ % true если студент имеет стипендию или fail если не имеет. % 2. если параметром передать переменную, то будет выведен список студентов, % которые имеют стипендию stipen(N) :- stud(N, Sr), Sr > 4. % Определим еще одну пролог-процедуру comp % Эта процедура будет определять минимальный средний балл, % необходимый студенту для работы в данной компании % comp(Z, Min) comp('Microsoft', 5.0). comp('Apple', 4.1). comp('IBM', 4.8). comp('IT', 4.4). comp('Service',3.2). comp('Android', 5.0). comp('Linux', 4.0). comp('Java', 4.7). comp('Si', 4.5). comp('Serwer',3.4). % Составим правило "может ли студент работать в компании" % Здесь тоже можно вводить конкретные значения для ответа "да-нет" % либо переменные для получения списка компаний или студентов. isAbleToWork(N, Z) :- student(N,Sr), company(Z,Min), Sr>=Min.

Нет