prolog

start :-
    write('Program pomagajacy w udzieleniu pierwszej pomocy poszkodowanemu'), nl,
    write('zadawaj pytania i powiadom program jaką odpowiedź otrzymałeś'), nl,
    write('T (tak)  lub N (nie) oraz postepuj zgodnie z zaleceniami'), nl, usun_his , wyswietl.


wyswietl :- diagnoza(X), odpowiedz(X), fail.
wyswietl.

:-dynamic(zapisana/2).

otrzymana_odp(P,O) :- zapisana(P,O).

otrzymana_odp(P,O) :- \+  zapisana(P,_), nl,
                            zadaj_pytanie(P),
                            tak_nie(X),
                            asserta(zapisana(P,X)),
                            X=O.


tak_nie(X) :- get(Char),   %wyczytanie odpowiedzi
              get0(_),
              to(Char,X), ! .

tak_nie(X) :- write_ln('Wpisz T/N'), tak_nie(X).

to(84,tak).
to(116,tak).
to(78,nie).
to(110,nie).

usun_his :- retract(zapisana(_,_)), fail.
usun_his.

diagnoza(jeden_odp) :- otrzymana_odp(pierwsze, tak), otrzymana_odp(drugie, tak).

diagnoza(dwa_odp) :- otrzymana_odp(pierwsze,tak), otrzymana_odp(drugie,nie),
                       otrzymana_odp(trzecie,tak).

diagnoza(trzy_odp):- otrzymana_odp(pierwsze,tak), otrzymana_odp(drugie,nie),
                       otrzymana_odp(trzecie,nie),otrzymana_odp(czwarte,tak).

diagnoza(cztery_odp):- otrzymana_odp(pierwsze,tak), otrzymana_odp(drugie,nie),
                       otrzymana_odp(trzecie,nie),otrzymana_odp(czwarte,nie),
                       otrzymana_odp(piate,tak).

diagnoza(piec_odp):- otrzymana_odp(pierwsze,tak), otrzymana_odp(drugie,nie),
                       otrzymana_odp(trzecie,nie),otrzymana_odp(czwarte,nie),
                       otrzymana_odp(piate,nie), otrzymana_odp(szoste,tak).

diagnoza(szesc_odp):- otrzymana_odp(pierwsze,tak), otrzymana_odp(drugie,nie),
                       otrzymana_odp(trzecie,nie),otrzymana_odp(czwarte,nie),
                       otrzymana_odp(piate,nie), otrzymana_odp(szoste,nie),
                       otrzymana_odp(siodme, tak).

diagnoza(siedem_odp):- otrzymana_odp(pierwsze,tak), otrzymana_odp(drugie,nie),
                       otrzymana_odp(trzecie,nie),otrzymana_odp(czwarte,nie),
                       otrzymana_odp(piate,nie), otrzymana_odp(szoste,nie),
                       otrzymana_odp(siodme, nie).


diagnoza(dwa_odp) :- otrzymana_odp(pierwsze,nie), otrzymana_odp(osme,tak),
                       otrzymana_odp(trzecie,tak).

diagnoza(trzy_odp):- otrzymana_odp(pierwsze,nie), otrzymana_odp(osme,tak),
                       otrzymana_odp(trzecie,nie),otrzymana_odp(czwarte,tak).

diagnoza(cztery_odp):- otrzymana_odp(pierwsze,nie), otrzymana_odp(osme,tak),
                       otrzymana_odp(trzecie,nie),otrzymana_odp(czwarte,nie),
                       otrzymana_odp(piate,tak).

diagnoza(piec_odp):- otrzymana_odp(pierwsze,nie), otrzymana_odp(osme,tak),
                       otrzymana_odp(trzecie,nie),otrzymana_odp(czwarte,nie),
                       otrzymana_odp(piate,nie), otrzymana_odp(szoste,tak).

diagnoza(szesc_odp):- otrzymana_odp(pierwsze,nie), otrzymana_odp(osme,tak),
                       otrzymana_odp(trzecie,nie),otrzymana_odp(czwarte,nie),
                       otrzymana_odp(piate,nie), otrzymana_odp(szoste,nie),
                       otrzymana_odp(siodme, tak).

diagnoza(siedem_odp):- otrzymana_odp(pierwsze,nie), otrzymana_odp(osme,tak),
                       otrzymana_odp(trzecie,nie),otrzymana_odp(czwarte,nie),
                       otrzymana_odp(piate,nie), otrzymana_odp(szoste,nie),
                       otrzymana_odp(siodme, nie).

diagnoza(osiem_odp) :- otrzymana_odp(pierwsze, nie), otrzymana_odp(osme, nie),
                       otrzymana_odp(dziewiate,tak).

diagnoza(dziewiec_odp) :- otrzymana_odp(pierwsze, nie), otrzymana_odp(osme, nie),
                       otrzymana_odp(dziewiate,nie), otrzymana_odp(dziesiate,nie),
                        otrzymana_odp(jedenaste,nie).

diagnoza(dziesiec_odp) :- otrzymana_odp(pierwsze, nie), otrzymana_odp(osme, nie),
                       otrzymana_odp(dziewiate,nie), otrzymana_odp(dziesiate,tak),
                        otrzymana_odp(dwunaste,tak).

diagnoza(jedenascie_odp) :- otrzymana_odp(pierwsze, nie), otrzymana_odp(osme, nie),
                       otrzymana_odp(dziewiate,nie), otrzymana_odp(dziesiate,tak),
                        otrzymana_odp(dwunaste,nie).

diagnoza(dwanascie_odp) :- otrzymana_odp(pierwsze, nie), otrzymana_odp(osme, nie),
                       otrzymana_odp(dziewiate,nie), otrzymana_odp(dziesiate,nie),
                        otrzymana_odp(jedenaste,tak), otrzymana_odp(trzynaste,nie),
                        otrzymana_odp(szesnaste,tak).

diagnoza(dwanascie_odp) :- otrzymana_odp(pierwsze, nie), otrzymana_odp(osme, nie),
                       otrzymana_odp(dziewiate,nie), otrzymana_odp(dziesiate,nie),
                        otrzymana_odp(jedenaste,tak), otrzymana_odp(trzynaste,tak),
                         otrzymana_odp(czternaste,nie),otrzymana_odp(pietnaste,_),otrzymana_odp(szesnaste,tak).

diagnoza(dwanascie_odp) :- otrzymana_odp(pierwsze, nie), otrzymana_odp(osme, nie),
                       otrzymana_odp(dziewiate,nie), otrzymana_odp(dziesiate,nie),
                        otrzymana_odp(jedenaste,tak), otrzymana_odp(trzynaste,tak),
                         otrzymana_odp(czternaste,tak),otrzymana_odp(szesnaste,tak).



diagnoza(trzynascie_odp) :- otrzymana_odp(pierwsze, nie), otrzymana_odp(osme, nie),
                       otrzymana_odp(dziewiate,nie), otrzymana_odp(dziesiate,nie),
                        otrzymana_odp(jedenaste,tak), otrzymana_odp(trzynaste,nie),
                        otrzymana_odp(szesnaste,nie).

diagnoza(trzynascie_odp) :- otrzymana_odp(pierwsze, nie), otrzymana_odp(osme, nie),
                       otrzymana_odp(dziewiate,nie), otrzymana_odp(dziesiate,nie),
                        otrzymana_odp(jedenaste,tak), otrzymana_odp(trzynaste,tak),
                         otrzymana_odp(czternaste,nie),otrzymana_odp(pietnaste,_),otrzymana_odp(szesnaste,nie).

diagnoza(trzynascie_odp) :- otrzymana_odp(pierwsze, nie), otrzymana_odp(osme, nie),
                       otrzymana_odp(dziewiate,nie), otrzymana_odp(dziesiate,nie),
                        otrzymana_odp(jedenaste,tak), otrzymana_odp(trzynaste,tak),
                         otrzymana_odp(czternaste,tak),otrzymana_odp(szesnaste,nie).

zadaj_pytanie(pierwsze) :-  write('Podejdz do osoby poszkodowanej, zapytaj czy osoba Cię słyszy?'),nl.

zadaj_pytanie(drugie) :- write('Zapytaj czy moze wstac?'),nl.

zadaj_pytanie(trzecie) :- write('Czy spożywał alkohol?'), nl.

zadaj_pytanie(czwarte) :- write('Czy upadł z dużej wysokości lub potrącił go samochód?'), nl.

zadaj_pytanie(piate) :- write('Czy ma zawroty głowy?'), nl.

zadaj_pytanie(szoste) :- write('Czy ma promieniujący ból w klatce piersiowej?'), nl.

zadaj_pytanie(siodme) :- write('Czy choruje na coś przewlekle?'), nl.

zadaj_pytanie(osme) :- write('Lekko szturchnij poszkodowaną osobę w ramię, czy reaguje?'),nl.

zadaj_pytanie(dziewiate) :- write('Czy są podstawy, aby myśleć, że poszkodowany spadł z wysokości lub został potrącony?'), nl,
                   write(' (Pobliska droga, blok, budowa) '),nl.

zadaj_pytanie(dziesiate) :- write('Sprawdź czy oddycha'),nl.

zadaj_pytanie(jedenaste) :- write('Ustaw poszkodowanego w pozycji leżącej na plecach. Udało się?'),nl.

zadaj_pytanie(dwunaste) :- write('Przyjżyj się poszkodowanej osobie czy krwawi?'),nl.

zadaj_pytanie(trzynaste) :- write('Sprawdź czy ma coś w gardle?'),nl.

zadaj_pytanie(czternaste) :- write('Dobrze, więc RAZ spróbuj usunąć to PALCEM, czy udało się?'),nl.

zadaj_pytanie(pietnaste) :- write('Wdmuchni powietrze w usta, to na pewno pomoże'),nl.

zadaj_pytanie(szesnaste) :- write('Przejdź do resuscytacji, czy umiesz to wykonać?'),nl.


odpowiedz(jeden_odp) :-  write_ln('Pomóż wstać oraz odprowadz w bezpieczne miejsce'),nl.


odpowiedz(dwa_odp) :- write_ln('Wysyłamy na miejsce policję'),nl.

odpowiedz(trzy_odp) :- write_ln('Każ mu się nie ruszać, poszkodowany prawodopobonnie'),
               write_ln('ma uszkodzony kręgosłup, wysyłamy karetkę na wskazany adres').

odpowiedz(cztery_odp) :- write_ln('Podejrzewamy, że dostał udaru słonecznego, wysyłamy karetkę').

odpowiedz(piec_odp) :- write_ln('Prawdopobonie osoba ma zawał, ułóż tą osobę w pozycji'),
               write_ln('przeciwzawałowej, wysyłamy karetkę'), pozycja.

odpowiedz(szesc_odp) :- write_ln('To wynik choroby, karetka juz w drodze').

odpowiedz(siedem_odp) :- write_ln('Prawdopoobnie jest to chwilowe osłabienie, pomóż wstać tej osobie'),
               write_ln('oraz postaraj się odprowadzić do domu lub wezwać bliską osobę').

odpowiedz(osiem_odp) :- write_ln('Pozostaw osobę w danej pozycji, gdy jest możliwe uszkodzenie'),
               write_ln('kręgosłupa można tylko zaszkodzić. Poczekaj na karetkę').

odpowiedz(dziewiec_odp):- write_ln('Niestety już nie pomożesz, poczekaj na karetkę i spróbuj wezwać'),
              write_ln('kogoś z okolicy, może ta osoba będzie wiedzieć co zrobić').


odpowiedz(dziesiec_odp) :- write_ln('Zatamuj czymś krawawienie, ustaw osobę w pozycji bocznej ustalonej'),
               write_ln('oraz poczekaj na karetkę.').

odpowiedz(jedenascie_odp) :- write_ln('Ustaw osobe w pozycji bocznej ustalone i poczekaj na karetkę').

odpowiedz(dwanascie_odp) :- write_ln('Prowadz resuscytacje aż do momentu przyjazdu pogotowia lub'),
               write_ln('do momentu odzyskania oddechu przez osobe poszkodowana'),  nl, nl,nl,resuscytacja.

odpowiedz(trzynascie_odp) :- write_ln('Szybko znajdź osobę, która umie, skorzystaj z podpowiedzi, karetka juz w drodze'), nl, nl,nl,resuscytacja.

resuscytacja() :- write_ln(' Połóż nadgarstek jednej ręki na środku klatki piersiowej poszkodowanego, drugą rękę połóż na już ułożonej. '),
                 write_ln('Spleć palce obu rąk i upewnij się, czy nie będziesz wywierać nacisku na żebra poszkodowanego. '),
                 write_ln(' Pochyl się nad poszkodowanym, wyprostowane ramiona ustaw prostopadle do mostka i uciskaj na 4-5 cm'),
                 write_ln('Powtarzaj uciśnięcia z częstotliwością 100 na minutę. '),
                 write_ln('Po wykonaniu 30 uciśnięć, udrożnij drogi oddechowe, odginając głowę i unosząc żuchwę'),
                 write_ln(' Zaciśnij skrzydełka nosa poszkodowanego używając palca wskazującego i kciuka. '),
                 write_ln('Pozostaw usta delikatnie otwarte. Weź wdech i obejmij szczelnie swoimi ustami usta poszkodowanego.'),
                 write_ln(' Wdmuchnij powoli powietrze do ust poszkodowanego. '),
                 write_ln('Ponów tę czynność. '),
                 write_ln('Ponownie ułóż ręce w prawidłowej pozycji na mostku i wykonaj kolejnych 30 uciśnięć klatki piersiowej. '),
                 write_ln('Wymienione czynność powtarzaj dopóki poszkodowany nie zacznie prawidłowo oddychać'),
                 write_ln( 'W innym przypadku nie przerywaj resuscytacji. ').




 pozycja():- write_ln('Pozycja przeciwzawałowa- pozycja półsiedząca lub boczna ustalonej').