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

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

THEN: prognoz = "b"

RULE: R5

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

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

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

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

RULE: R6

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

THEN: prognoz = "a"

RULE: R7

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

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

prognoz = "c"

RULE: R8

IF: ytd < td

THEN: output "Хотите ли вы узнать прогноз о процентных ставках?"

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

RULE: R9

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

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

prcs = " Процентные ставки падают. "

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

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

RULE: R10

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

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

prognoz = "d"

RULE: R11