(printout t "-----------------------------------------" crlf)
(printout t "                   C++                   " crlf)
(printout t "                           	      " crlf)
(printout t "              Michal Michalski           " crlf)
(printout t "                                         " crlf)
(printout t "        Informatyka i Ekonometria        " crlf)
(printout t "          Systemy Informatyczne          " crlf)
(printout t "-----------------------------------------" crlf)

(defrule char
   (initial-fact)
   =>
   (printout t "Czym jest zmienna typu: char (0)typem znakowym czy (1)liczba calkowita " 0/1 crlf)
   (bind ?f1 (read))
   (if (= ?f1 0)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule int
   =>
   (printout t "Czym jest zmienna typu: int (0)typem znakowym czy (1)liczba calkowita " 0/1 crlf)
   (bind ?f2 (read))
   (if (= ?f2 1)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule short
   =>
   (printout t "Czym jest zmienna typu: short (0)liczby calkowite krotkie czy (1)liczby calkowite dlugie " 0/1 crlf)
   (bind ?f3 (read))
   (if (= ?f3 0)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule long
   =>
   (printout t "Czym jest zmienna typu: long (0)liczby calkowite dlugie czy (1)liczby calkowite krotkie " 0/1 crlf)
   (bind ?f4 (read))
   (if (= ?f4 0)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule wint
   =>
   (printout t "Jaka jest wielkosc w bajtach zmiennej typu: int (0)1 lub 3 (1)2 lub 4 " 0/1 crlf)
   (bind ?f5 (read))
   (if (= ?f5 1)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule wshort
   =>
   (printout t "Jaka jest wielkosc w bajtach zmiennej typu: short (0)2 (1)4 " 0/1 crlf)
   (bind ?f6 (read))
   (if (= ?f6 0)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule wlong
   =>
   (printout t "Jaka jest wielkosc w bajtach zmiennej typu: long (0)4 (1)6 " 0/1 crlf)
   (bind ?f7 (read))
   (if (= ?f7 0)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule wfloat
   =>
   (printout t "Jaka jest wielkosc w bajtach zmiennej typu: float (0)2 (1)4 " 0/1 crlf)
   (bind ?f8 (read))
   (if (= ?f8 1)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule wdouble
   =>
   (printout t "Jaka jest wielkosc w bajtach zmiennej typu: double (0)6 (1)8 " 0/1 crlf)
   (bind ?f9 (read))
   (if (= ?f9 1)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule wldouble
   =>
   (printout t "Jaka jest wielkosc w bajtach zmiennej typu: long double (0)10 (1)16 " 0/1 crlf)
   (bind ?f10 (read))
   (if (= ?f10 0)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule cin
   =>
   (printout t "Jaka komenda wczytuje sie zmienne przez uzytkownika (0)cin (1)cout " 0/1 crlf)
   (bind ?f11 (read))
   (if (= ?f11 0)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule rok
   =>
   (printout t "Kiedy zostal stworzony c++ (0)1983 (1)1985 " 0/1 crlf)
   (bind ?f12 (read))
   (if (= ?f12 0)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule minecraft
   =>
   (printout t "Czy gra minecraft zostala stworzona w c++ (0)nie (1)tak " 0/1 crlf)
   (bind ?f13 (read))
   (if (= ?f13 1)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule cpp
   =>
   (printout t "Co oznacza ++ w nazwie c++ (0)dodac dwa (1)dodac jeden " 0/1 crlf)
   (bind ?f14 (read))
   (if (= ?f14 1)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule tworca
   =>
   (printout t "Jak ma na imie twórca c++ (0)Bill Gates (1)Bjarne Stroustrup " 0/1 crlf)
   (bind ?f15 (read))
   (if (= ?f15 1)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule rek
   =>
   (printout t "co to jest rekurencja (0)funkcja wywolujaca sama siebie (1)funkcja wywolujaca funkcje " 0/1 crlf)
   (bind ?f16 (read))
   (if (= ?f16 0)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule fstream
   =>
   (printout t "ktora biblioteka sluzy do obslugi plikow tekstowych (0)cstdlib (1)fstream " 0/1 crlf)
   (bind ?f17 (read))
   (if (= ?f17 1)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule overload
   =>
   (printout t "czy dozwolone jest przeciazanie funkcji (0)nie (1)tak " 0/1 crlf)
   (bind ?f18 (read))
   (if (= ?f18 1)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule tworca
   =>
   (printout t "co to jest wskaznik (0)zmienna przechowujaca elementy tabeli (1)zmienna przechowujaca adres pamieci " 0/1 crlf)
   (bind ?f19 (read))
   (if (= ?f19 1)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule size
   =>
   (printout t "jakiego operatora trzeba uzyc w celu okreslenia ilosci pamieci zajmowanej przez zmienna (0)sizeof (1)lenght " 0/1 crlf)
   (bind ?f20 (read))
   (if (= ?f20 0)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule iteracja
   =>
   (printout t "iteracja to  (1)jednokrotne wykonanie petli " 0/1 crlf)
   (bind ?f21 (read))
   (if (= ?f21 1)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule wzmien
   =>
   (printout t "czy wielkosc liter w nazwie zmiennych ma znacznie (0)nie (1)tak " 0/1 crlf)
   (bind ?f22 (read))
   (if (= ?f22 1)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule dziel
   =>
   (printout t "operator dzielenia ma postac (0)/ (1)\ " 0/1 crlf)
   (bind ?f23 (read))
   (if (= ?f23 0)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule void
   =>
   (printout t "jak zadeklarowac funkcje typu void bez argumentow (0)void()nazwa; (1)void nazwa(); " 0/1 crlf)
   (bind ?f24 (read))
   (if (= ?f24 1)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule std
   =>
   (printout t "jak wyglada instrukcja przestrzeni nazw dla std (0)using namespace std; (1)namespace std; " 0/1 crlf)
   (bind ?f25 (read))
   (if (= ?f25 0)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule endl
   =>
   (printout t "co robi endl (0)przechodzi do nastepnej lini (1)konczy program " 0/1 crlf)
   (bind ?f26 (read))
   (if (= ?f26 0)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))
(defrule wzmien
   =>
   (printout t "czy wielkosc liter w nazwie zmiennych ma znacznie (0)nie (1)tak " 0/1 crlf)
   (bind ?f27 (read))
   (if (= ?f27 1)
      then
      (printout t "Dobra odpowiedz!" crlf)
      else
      (printout t "Zla odpowiedz!" crlf)
))