/*
Olvassuk be az osztálynaplót, majd szimuláljuk a használatát:
a tanár feleltethesse azt, akit akar (vagyis a kiválasztott név esetén olvassuk be az osztályzatot), 
ill. a diák bármikor megkérdezhesse a pillanatnyi átlagát.

(Természetesen a tanár egy diákot többször is feleltethet, de az is előfordulhat, hogy egy diák még egyszer 
sem felelt. Ezeket az eseteket kezelje "tisztességesen".)

Irja meg a hiányzó részeket! 


Csinálhatja másképp is, de egy javasolt ötlet:

használja a diak(Nev, Jegyosszeg, Jegyszam) adatbázisszerkezetet

(vagyis a név mellett tárolja az eddigi jegyek összegét és az eddigi jegyek darabszámát, ebből ugyanis 
könnyen számolhat átlagot. Induláskor a jegyek összege is és darabszáma is nulla.)

Az új felelés után a régi adatot ki kellene törölni, és beszúrni az újat.

*/


start :- nevsorbe, ellenorzes, menu.


nevsorbe :- egy adatfájlból olvassa be a diákok névsorát és hozza létre a szükséges
	   adatbázisszerkezetet.


ellenorzes :- writeln('Az osztálynévsor:'), irassa vissza a neveket


menu :- writeln('Naplószimuláció\n'), 
       	writeln('1. feleltetés'),
	writeln('2. kiváncsiskodás'),
	writeln('3. kilépés'),
	write('válasszon! '), read(V), menu(V).

menu(1) :- feleltetes, menu.
menu(2) :- erdeklodes, menu.
menu(3) :- writeln('Viszontlátásra').
menu(_) :- writeln('hibás választás'), menu.


feleltetes :- write('Ki felel? '), read(Nev),
	      retract(diak(Nev,Eddig,Db)),
	      write('Jegye: '), read(Jegy),
	      Uj is Eddig + Jegy,
	      Ujdb is Db+1,
	      assert(diak(Nev,Uj,Ujdb)).
feleltetes :- writeln('Nincs ilyen ember').


Irja meg a hiányzó eljárásokat!



/*
Továbbfejlesztések, módosítások:

1. 
A feleltetés, kiváncsiskodás ne csak egy emberre vonatkozzon, hanem lehessen folytatni
a menüponton belül.

2. 
a/ Le lehessen kérdezni az adott átlag fölöttiek (két átlag közöttiek) névsorát. 
b/ Állapítsa meg azt is, hogy hány ilyen ember van.

3. 
Ki az osztályelső?

4. 
Átlag szerint rendezve irassuk ki az osztálynévsort (átlaggal együtt).

*/ 