/* 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).