1950082822

rower = "BMX z oponami terenowymi" if jazda = "skatepark", teren = "tak";

rower = "skonsultuj się ze sprzedawcą" if //reguła "zabezpieczająca"

(jazda = "inne")

I

(jazda = "góry", trudna = "tak", amortyzatory = "nie", hamulce = "nie");

end; //koniec bloku reguł

control //początek |>rograinu PC-Shell

run; //uruchomienie programu

vignette("Wybór typu roweru", "Baza wiedzy\n\nAutor:\n Zbigniew Kędzior","Wersja 1.0"); setAppWinTitle("System wspomagający wybór typu roweru");

menu "Menu" //tworzy menu z podpunktami

1.    "Wybór typu roweru"

2.    'Wyjście"

case 1://wykonanie pierwszego podpunktu menu

goal("rower=Rower");    //inicjacja wnioskowania wstecz w celu potwierdzenia hipotezy

delNewFacts;    //usunięcie nowych faktów z bazy wiedzy

case 2: //wykonanie drugiego podpunktu menu exit; //wyjście end; //zamknięcie menu end; //zamknięcie programu end; //zamknięcie bazy wiedzy

Baza wiedzy „rower.bw” składa się składa się z następujących bloków:

Blok faset - zawiera wszystkie atrybuty używane w systemie wraz z deklaracją zbioru wartości dla każdego atrybutu.

Blok reguł - zawiera deklarację reguł składających się z konkluzji oraz części warunkowej.

Program PC-Shell - zawiera informację o autorze bazy wiedzy oraz instrukcje odpowiedzialne za działanie programu.