Приложение 2

Листинг исходного кода ЭС «Выбор банка»

GOAL: KBANK

INITIAL:

E.LSTR=80

E.RIGR="A"

KBank=UNKNOWN

NADBANK=UNKNOWN

KASSRD=UNKNOWN

SBITD=UNKNOWN

ZAKD=UNKNOWN

PFORM="наличная"

PSRPLAT=3

PSRVOZ=5

PPROC=10

PPROCVK=20

INPUT TFORM STR WITH "В какой форме вы бы хотели произвести расчёты?"

INPUT TSRPLAT INT WITH "С какой срочностью вам требуется произвести расчёты?"

INPUT TSERVIS STR WITH "Обязателен ли для вас высокий сервис обслуживания?+/-"

INPUT TSRVOZ INT WITH "Требуемая срочность возврата кредита?"

INPUT TPROC INT WITH "Требуемая процентная ставка по кредиту?"

INPUT TPROCVK INT WITH "Требуемый процент по вкладам?"

INPUT REIT STR WITH "Вам обязателен высокий рейтинг банка?+/-"

INPUT EXPER INT WITH "Банк с каким опытом работы вы бы предпочли?"

INPUT GARAN STR WITH "Требуются ли вам гарантии банка?+/-"

DO:

?"Рекомендуем вам воспользоваться услугами банка:",KBank

?"Коэффициент надежности:",cfv(NADBANK,true)

RULE: R1

IF: KASSRD=TRUE AND SBITD=TRUE AND ZAKD=TRUE AND NADBANK=TRUE

THEN: KBank="ЦБРоссии"

RULE: R2

IF: KASSRD=TRUE AND NADBANK=TRUE

THEN: KBank="Мончебанк+ЦБРоссии"

RULE: R3

IF: SBITD=TRUE AND NADBANK=TRUE

THEN: KBank="ЦБанкРоссии+Альфа-Банк"

RULE: R4

IF: ZAKD=TRUE AND NADBANK=TRUE

THEN: KBank="Менатеп+ЦБРоссии"

RULE: R5

IF: KASSRD=TRUE AND SBITD=TRUE AND NADBANK=TRUE

THEN: KBank="ВнешэкономБанк+ЦБРоссии"

RULE: R6

IF: SBITD=TRUE AND ZAKD=TRUE AND NADBANK=TRUE

THEN: KBank="Банк№534+ЦБРоссии"

RULE: R7

IF: KASSRD=TRUE AND ZAKD=TRUE AND NADBANK=TRUE

THEN: KBank="Банк№701+ЦБРоссии"

RULE: R8

IF: PSrPlat<=TSrPlat and PFORM=TFORM

THEN: KASSRD+=TRUE cf 80

RULE: R9

IF: PSrPlat>TSrPlat and PFORM<>TFORM

THEN: KASSRD+=FALSE cf 20

RULE: R10

IF: TSERVIS="+"

THEN: KASSRD+=TRUE cf 40

RULE: R11

IF: TSERVIS="-"

THEN: KASSRD+=FALSE cf 60

RULE: R12

IF: PSRVOZ<=TSRVOZ

THEN: SBITD+=TRUE cf 70

RULE: R13

IF: PSRVOZ>TSRVOZ

THEN: SBITD+=FALSE cf 30

RULE: R14

IF: TPROC<=PPROC

THEN: SBITD+=TRUE cf 50

RULE: R15

IF: TPROC>PPROC

THEN: SBITD+=FALSE cf 50

RULE: R16

IF: PPROCVK>=TPROCVK

THEN: ZAKD+=TRUE CF 70

RULE: R17

IF: PPROCVK<TPROCVK

THEN: ZAKD+=FALSE CF 30

RULE: R18

IF: GARAN="+"

THEN: NADBANK+=TRUE CF 60

RULE: R19

IF: GARAN="-"

THEN: NADBANK+=FALSE CF 50

RULE: R20

IF: REIT="+"

THEN: NADBANK+=TRUE CF 70

RULE: R21

IF: REIT="-"

THEN: NADBANK+=FALSE CF 40

RULE: R22

IF: EXPER<3

THEN: NADBANK+=FALSE CF 30

RULE: R23

IF: EXPER>=3

THEN: NADBANK+=TRUE CF 70

END: