PC-Shell Program

knowledge base conaobiad
 facets
	single yes;
	czystudent:
		query "Czy jestes studentem:"
		val oneof {"tak","nie"};
	lubizdrowo:
		query "Czy lubisz jesc zdrowo:"
		val oneof {"tak","nie"};
	wege:
		query "Czy jesteś wege:"
		val oneof {"tak","nie"};
	glutenlaktoza:
		query "Czy tolerujesz gluten/laktoze:"
		val oneof {"Nie toleruje glutenu i laktozy","Toleruje gluten i laktoze","Nie toleruje laktozy, ale toleruje gluten","Toleruje laktoze, ale nie toleruje glutenu"};
	kuchnia:
		query "Jaka kuchnie preferujesz:"
		val oneof {"Wloska","Polska","Japonska","Obojetnie"};
	obiad:
		ask no;
 end;
rules
	01:	obiad = "Kebab" if
			czystudent="tak",
			lubizdrowo="nie",
			wege="nie",
			(glutenlaktoza="Toleruje gluten i laktoze" | glutenlaktoza="Nie toleruje laktozy, ale toleruje gluten"),
			kuchnia="Obojetnie";
	02:	obiad = "Warzywa na patelnie z kasza jaglana i kurkuma" if
			lubizdrowo="tak",
			(glutenlaktoza="Nie toleruje glutenu i laktozy" | glutenlaktoza="Toleruje laktoze, ale nie toleruje glutenu"),
			kuchnia="Obojetnie";
	03:	obiad = "Spaghetti Carbonara" if
			lubizdrowo="tak",
			wege="nie",
			glutenlaktoza="Toleruje gluten i laktoze",
			kuchnia="Wloska";
	04:	obiad = "Spaghetti Napoli" if
			lubizdrowo="tak",
			wege="tak",
			glutenlaktoza="Nie toleruje laktozy, ale toleruje gluten",
			kuchnia = "Wloska";
	05:	obiad = "Risotto z pieczarkami" if
			kuchnia="Wloska";
	06:	obiad= "Sushi" if
			czystudent="nie",
			lubizdrowo="tak",
			(wege="tak" | wege="nie"),
			kuchnia="Japonska";
	07:	obiad = "Ramen" if
			(glutenlaktoza="Toleruje gluten i laktoze" | glutenlaktoza="Nie toleruje laktozy, ale toleruje gluten"),
			kuchnia="Japonska";
	08:	obiad = "Pierogi ruskie" if
			glutenlaktoza="Toleruje gluten i laktoze",
			kuchnia="Polska";
	09:	obiad = "Bigos" if
			lubizdrowo="nie",
			wege="nie",
			kuchnia="Polska";
	10:	obiad = "Pomidorowa" if
			lubizdrowo="tak",
			kuchnia="Polska";


end;
control
	run;
	char S1,S2,S3;
	S1:="Wybor obiadu";
	S2:="System wspomagajacy wybor obiadu";
	S2:="Patryk Bozek i Mateusz Kukula";
	vignette( S1,S2,S3 );
	setAppWinTitle("Doradca ds. Obiadu");
	addSolution(yes);
	int Odp;
	Odp:=1;
	menu "Menu"
		1. "Wybor obiadu"
		2. "Exit"
		case 1:
			while(Odp==1)
				begin
					goal("obiad=Obiad");
					confirmBox(0,0,"Kontynuuj","Chcesz wybrac ponownie?",Odp);
					delNewFacts;
				end;
		case 2:
			exit;
		end;
	end;
end;