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

╙───────R14

╟───────YTD

╟───────TD

╟───────(PROCSTV)

╙───────(URCEN)

Листинг экспертной системы

GOAL: prognoz

INITIAL:

clear

release variable /* УБИРАЕМ НЕНУЖНЫЕ НАМ ПЕРЕМЕННЫЕ */

e.lstr = 500 /* МАКСИМАЛЬНАЯ ДЛИНА СТРОКИ */

E.DECI = 2 /* кол-во знаков после точки */

output " ДЕНЬ ДОБРЫЙ, МИСТЕР (МИССИС)."

output " Вы хотите совершить прогноз цен на бирже? "

output " Тогда вы обратились по адресу. :) "

output " Данная ЭС поможет вам в этом... "

output " ИТАК, НАЧНЕМ ..."

ytd = "0"

td = 0

output " Введите вчерашний курс доллара"

input ytd num using "dddd"

output "Введите нынешний курс долара"

input td num using "dddd"

DO:

clear

output "НА ОСНОВЕ ДАННОЙ ИНФОРМАЦИИ:"

output

test prognoz

case "a"