/*      DICCIONARIO      

Para traducir del castellano al ingles y
del ingles al castellano, escriba:
	
	diccionario
Si desea terminar, cuando el programa
le pida un palabra, escriba: fin      

			            Inteligencia Artificial
             			Gonzalo Villarreal Farah

Para Turbo Prolog 2.0 de Borland             	

 */



DATABASE
	
	palabra(symbol,symbol) 

PREDICATES
	
	traduce(symbol)
	diccionario
CLAUSES

	palabra(gato,cat).
	palabra(perro,dog).
	
	traduce(fin):-
		write("la traduccion es end"),nl,nl,!.
	
	traduce(P):-
		palabra(P,Y),makewindow(1,7,135,"INGLES",10,40,10,20),
		write("La traduccion es:"),nl,
		write(Y),nl,nl,
		write("aprete una tecla"),nl,
		write("para continuar"),
		readchar(_),removewindow,
		diccionario. 
		
	traduce(P):-
		palabra(X,P),makewindow(2,7,135,"CASTELLANO",5,30,12,25),
		write("La traduccion es:"),nl,
		write(X),nl,
		write("aprete una tecla"),nl,
		write("para continuar"),
		readchar(_),removewindow,
		diccionario.

	traduce(P):-
		write("no conozco la traduccion de"," ",P),nl,
		write("si me la dice, la recordare"),nl,
		write("escriba la palabra en castellano"),nl,
		readln(C),
		write("escriba la traduccion al ingles"),nl,
		readln(I),
		asserta(palabra(C,I)),
		diccionario.
	

	diccionario:-
		makewindow(1,7,7,"DICCIONARIO",0,0,25,80),
		write("Escriba la palabra que quiere"),nl,
		write("traducir: "),
		nl,
		readln(P),
		traduce(P).