Лабораторная работа: Создание пробной экспертной системы

THEN: prognoz = "b"

RULE: R12

IF: ytd < td & (procstv = "n" or procstv = "N")

THEN: dol = "Курс доллара растёт."

output "Хотите ли вы узнать прогноз об уровне цен на бирже?"

input urcen str using "a" with "(y/n)"

RULE: R13

IF: ytd < td & (procstv = "n" or procstv = "N") & (urcen = "n" or urcen = "N")

THEN: prognoz = "a"

RULE: R14

IF: ytd < td & (procstv = "n" or procstv = "N") & (urcen = "y" or urcen = "Y")

THEN: urc = "Уровень цен на бирже растёт."

prognoz = "c"

VARIABLE: prognoz

FIND: prognoz = "error"

LABEL: прогнозируем курс долара

var: prcs

FIND: prcs = "error"

LABEL: прогноз проц ставки

var: urc

FIND: urc = "error"

LABEL: прогноз уровня цен

VAR: dol

FIND: dol = "error"

LABEL: прогноз доллара

var: ytd

LABEL: вчерашний курс доллара

VAR: td

LABEL: текущий курс доллара