start:- retractall(olimpiady(_)),retractall(poza_lekcyjne(_)),retractall(samorzad(_)),retractall(nieobecnosci(_)),retractall(ilosc_uwag(_)), write('System ekspertowy oceniajacy zachowanie uczniow, aby odpowiedziec na pierwsze pytanie wpisz pytanie1.'),nl.
pytanie1 :-write('Ile uczen mial nieobecnosci?, wybierz 1 jesli od 0 do 10 ,2 jesli 10 do 20, 3 jesli powyzej 20'),nl,read(Term),
    (Term = 1 -> doA1, !;
    (Term = 2 -> doB1, !;
    (Term = 3 -> doC1))).
doA1 :-assert(nieobecnosci('0 do 10')),write('aby przejsc do kolejnego pytania uzy komendy: pytanie2.').
doB1 :-assert(nieobecnosci('10 do 20')),write('aby przejsc do kolejnego pytania uzy komendy: pytanie2.').
doC1 :-assert(nieobecnosci('powyzej 20')),write('aby przejsc do kolejnego pytania uzy komendy: pytanie2.').

pytanie2 :-write('Ile uczen mial uwag?, wybierz 1 jesli od 0 do 3 ,2 jesli 3 do 7, 3 jesli powyzej 7'),nl,read(Term),
    (Term = 1 -> doA2, !;
    (Term = 2 -> doB2, !;
    (Term = 3 -> doC2))).
doA2 :-assert(ilosc_uwag('0 do 3')),write('aby przejsc do kolejnego pytania uzy komendy: pytanie3.').
doB2 :-assert(ilosc_uwag('3 do 7')),write('aby przejsc do kolejnego pytania uzy komendy: pytanie3.').
doC2 :-assert(ilosc_uwag('powyzej 7')),write('aby przejsc do kolejnego pytania uzy komendy: pytanie3.').



pytanie3 :-write('Jezeli uczen nalezy do samorzadu wybiez 1 jesli nie wybiez 2'),nl,read(Term),
    (Term = 1 -> doA3, !;
    (Term = 2 -> doB3)).
doA3 :-assert(samorzad('Tak')),write('aby przejsc do kolejnego pytania uzy komendy: pytanie4.').
doB3 :-assert(samorzad('Nie')),write('aby przejsc do kolejnego pytania uzy komendy: pytanie4.').




pytanie4 :-write('Zaangazowanie w zajecia pozalekcyjne, wybierz 1 jesli brak ,2 jesli male, 3 jesli srednie, 4 jesli duze'),nl,read(Term),
    (Term = 1 -> doA4, !;
    (Term = 2 -> doB4, !;
    (Term = 3 -> doC4, !;
    (Term = 4 -> doD4)))).
doA4 :-assert(poza_lekcyjne('brak')),write('aby przejsc do kolejnego pytania uzy komendy: pytanie5.').
doB4 :-assert(poza_lekcyjne('male')),write('aby przejsc do kolejnego pytania uzy komendy: pytanie5.').
doC4 :-assert(poza_lekcyjne('srednie')),write('aby przejsc do kolejnego pytania uzy komendy: pytanie5.').
doD4 :-assert(poza_lekcyjne('duze')),write('aby przejsc do kolejnego pytania uzy komendy: pytanie5.').


pytanie5 :-write('sukcesy w olimpiadach wybierz 1 jesli brak ,2 jesli male, 3 jesli srednie, 4 jesli duze'),nl,read(Term),
    (Term = 1 -> doA5, !;
    (Term = 2 -> doB5, !;
    (Term = 3 -> doC5, !;
    (Term = 4 -> doD5)))).
doA5 :-assert(olimpiady('brak')),write('aby uzyskac ocene wpisz: ocena_z_zachowania(X).').
doB5 :-assert(olimpiady('male')),write('aby uzyskac ocene wpisz: ocena_z_zachowania(X).').
doC5 :-assert(olimpiady('srednie')),write('aby uzyskac ocene wpisz: ocena_z_zachowania(X).').
doD5 :-assert(olimpiady('duze')),write('aby uzyskac ocene wpisz: ocena_z_zachowania(X).').


podejscie_do_regulaminu('zle') :-
        nieobecnosci('powyzej 20');
        ilosc_uwag('powyzej 7').

podejscie_do_regulaminu('srednie') :-
        nieobecnosci('10 do 20'),
        ilosc_uwag('0 do 3').

podejscie_do_regulaminu('srednie') :-
        nieobecnosci('10 do 20'),
        ilosc_uwag('3 do 7').

podejscie_do_regulaminu('dobre') :-
        nieobecnosci('0 do 10'),
        ilosc_uwag('0 do 3').

podejscie_do_regulaminu('dobre') :-
        nieobecnosci('0 do 10'),
        ilosc_uwag('3 do 7').

zaangazowanie_wszkole('slabe') :-
        samorzad('Nie'),
        poza_lekcyjne('brak').

zaangazowanie_wszkole('slabe') :-
        samorzad('Nie'),
        poza_lekcyjne('male').

zaangazowanie_wszkole('srednie') :-
        samorzad('Nie'),
        poza_lekcyjne('srednie').

zaangazowanie_wszkole('duze') :-
        samorzad('Tak');
        poza_lekcyjne('duze').




ocena_z_zachowania('naganne') :-
        podejscie_do_regulaminu('zle'),
        zaangazowanie_wszkole('slabe'),
        olimpiady('brak').

ocena_z_zachowania('nieodpowiednie') :-
        podejscie_do_regulaminu('srednie'),
        zaangazowanie_wszkole('slabe'),
        olimpiady('brak').

ocena_z_zachowania('poprawne') :-
        podejscie_do_regulaminu('dobre'),
        zaangazowanie_wszkole('slabe'),
        olimpiady('brak').

ocena_z_zachowania('nieodpowiednie') :-
        podejscie_do_regulaminu('zle'),
        zaangazowanie_wszkole('srednie'),
        olimpiady('brak').

ocena_z_zachowania('poprawne') :-
        podejscie_do_regulaminu('srednie'),
        zaangazowanie_wszkole('srednie'),
        olimpiady('brak').

ocena_z_zachowania('dobre') :-
        podejscie_do_regulaminu('dobre'),
        zaangazowanie_wszkole('srednie'),
        olimpiady('brak').

ocena_z_zachowania('nieodpowiednie') :-
        podejscie_do_regulaminu('zle'),
        zaangazowanie_wszkole('duze'),
        olimpiady('brak').

ocena_z_zachowania('dobre') :-
        podejscie_do_regulaminu('srednie'),
        zaangazowanie_wszkole('duze'),
        olimpiady('brak').

ocena_z_zachowania('bardzo dobre') :-
        podejscie_do_regulaminu('dobre'),
        zaangazowanie_wszkole('duze'),
        olimpiady('brak').

ocena_z_zachowania('nieodpowiednie') :-
        podejscie_do_regulaminu('zle'),
        zaangazowanie_wszkole('slabe'),
        olimpiady('male').

ocena_z_zachowania('poprawne') :-
        podejscie_do_regulaminu('srednie'),
        zaangazowanie_wszkole('slabe'),
        olimpiady('male').

ocena_z_zachowania('dobre') :-
        podejscie_do_regulaminu('dobre'),
        zaangazowanie_wszkole('slabe'),
        olimpiady('male').

ocena_z_zachowania('nieodpowiednie') :-
        podejscie_do_regulaminu('zle'),
        zaangazowanie_wszkole('srednie'),
        olimpiady('male').

ocena_z_zachowania('dobre') :-
        podejscie_do_regulaminu('srednie'),
        zaangazowanie_wszkole('srednie'),
        olimpiady('male').

ocena_z_zachowania('bardzo dobre') :-
        podejscie_do_regulaminu('dobre'),
        zaangazowanie_wszkole('srednie'),
        olimpiady('male').

ocena_z_zachowania('nieodpowiednie') :-
        podejscie_do_regulaminu('zle'),
        zaangazowanie_wszkole('duze'),
        olimpiady('male').

ocena_z_zachowania('dobre') :-
        podejscie_do_regulaminu('srednie'),
        zaangazowanie_wszkole('duze'),
        olimpiady('male').

ocena_z_zachowania('wzorowe') :-
        podejscie_do_regulaminu('dobre'),
        zaangazowanie_wszkole('duze'),
        olimpiady('male').

ocena_z_zachowania('poprawne') :-
        podejscie_do_regulaminu('zle'),
        zaangazowanie_wszkole('slabe'),
        olimpiady('srednie').

ocena_z_zachowania('dobre') :-
        podejscie_do_regulaminu('srednie'),
        zaangazowanie_wszkole('slabe'),
        olimpiady('srednie').

ocena_z_zachowania('bardzo dobre') :-
        podejscie_do_regulaminu('dobre'),
        zaangazowanie_wszkole('slabe'),
        olimpiady('srednie').

ocena_z_zachowania('poprawne') :-
        podejscie_do_regulaminu('zle'),
        zaangazowanie_wszkole('srednie'),
        olimpiady('srednie').

ocena_z_zachowania('bardzo dobre') :-
        podejscie_do_regulaminu('srednie'),
        zaangazowanie_wszkole('srednie'),
        olimpiady('srednie').

ocena_z_zachowania('wzorowe') :-
        podejscie_do_regulaminu('dobre'),
        zaangazowanie_wszkole('srednie'),
        olimpiady('srednie').

ocena_z_zachowania('poprawne') :-
        podejscie_do_regulaminu('zle'),
        zaangazowanie_wszkole('duze'),
        olimpiady('srednie').

ocena_z_zachowania('dobre') :-
        podejscie_do_regulaminu('srednie'),
        zaangazowanie_wszkole('duze'),
        olimpiady('srednie').

ocena_z_zachowania('wzorowe') :-
        podejscie_do_regulaminu('dobre'),
        zaangazowanie_wszkole('duze'),
        olimpiady('srednie').

ocena_z_zachowania('poprawne') :-
        podejscie_do_regulaminu('zle'),
        zaangazowanie_wszkole('slabe'),
        olimpiady('duze').

ocena_z_zachowania('dobre') :-
        podejscie_do_regulaminu('srednie'),
        zaangazowanie_wszkole('slabe'),
        olimpiady('duze').

ocena_z_zachowania('wzorowe') :-
        podejscie_do_regulaminu('dobre'),
        zaangazowanie_wszkole('slabe'),
        olimpiady('duze').

ocena_z_zachowania('poprawne') :-
        podejscie_do_regulaminu('zle'),
        zaangazowanie_wszkole('srednie'),
        olimpiady('duze').

ocena_z_zachowania('bardz dobre') :-
        podejscie_do_regulaminu('srednie'),
        zaangazowanie_wszkole('srednie'),
        olimpiady('duze').

ocena_z_zachowania('wzorowe') :-
        podejscie_do_regulaminu('dobre'),
        zaangazowanie_wszkole('srednie'),
        olimpiady('duze').

ocena_z_zachowania('poprawne') :-
        podejscie_do_regulaminu('zle'),
        zaangazowanie_wszkole('duze'),
        olimpiady('duze').

ocena_z_zachowania('dobre') :-
        podejscie_do_regulaminu('srednie'),
        zaangazowanie_wszkole('duze'),
        olimpiady('duze').

ocena_z_zachowania('wzorowe') :-
        podejscie_do_regulaminu('dobre'),
        zaangazowanie_wszkole('duze'),
        olimpiady('duze').