/*
Néhány beolvasási lehetőség

*/

billentyuzetrol1 :- writeln('Kérem a diákok névsorát! "vege" végjelig'), nevbe(Nevek), 
		    writeln('Kérem a pontszámokat!'), pontbe(Nevek,Pontok),
		    writeln('Az adatok: '), kiir(Nevek,Pontok).


nevbe([Nev|T]) :- write('neve: '), read(Nev), Nev\=vege, nevbe(T).
nevbe([]).

pontbe([Nev|Tn],[Pont|Tp]) :- writef('%w pontja: ', [Nev]), read(Pont), pontbe(Tn,Tp).
pontbe([],[]).


kiir([Nev|Tn],[Pont|Tp]) :- writef('%w\t%w\n', [Nev,Pont]), kiir(Tn,Tp).
kiir([],[]).	


/* -------------------- */


billentyuzetrol2 :- writeln('Kérem a diákok névsorát! "vege" végjelig'), nevbe(Nevek), 
		    writeln('Kérem a pontszámokat!'), pontbe2(Nevek,Nevsor),
		    writeln('Az adatok: '), kiir(Nevsor).


pontbe2([Nev|Tn],[Nev,Pont|T]) :- writef('%w pontja: ', [Nev]), read(Pont), pontbe2(Tn,T).
pontbe2([],[]).


kiir([Nev,Pont|T]) :- writef('%w\t%w\n', [Nev,Pont]), kiir(T).
kiir([]).	



/* -------------------- */


fajlbol1 :- see('adatok.dat'), nevbef(Nevek),seen, 
	    writeln('Kérem a pontszámokat!'), pontbe(Nevek,Pontok),
	    writeln('Az adatok: '), kiir(Nevek,Pontok).


nevbef([Nev|T]) :- read(Nev), Nev\=end_of_file, nevbef(T).
nevbef([]).



/* -------------------- */


fajlbol2 :- see('adatok.dat'), nevbef(Nevek),seen, 
	    writeln('Kérem a pontszámokat!'), pontbe2(Nevek,Nevsor),
	    writeln('Az adatok: '), kiir(Nevsor).




/*---------------------*/


fajlbol3 :- see('adatok2.dat'), adatbef(Nevsor),seen, 
	    writeln('Az adatok: '), kiir(Nevsor).

adatbef([Nev,Pont|T]) :- read(Nev), Nev\=end_of_file, read(Pont), adatbef(T).
adatbef([]).



/* Természetesen lehetne még variálni, de ennyi példa alapján már bármilyen beolvasást
ki tud találni.*/