Programa Simulador de Robot en Prolog(Incompleto)
Este programa muestra a un robot dirigiéndose a alguna coordenada dada por el usuario o quien maneje el robot , la esencia del programa es la manera de evitar obstáculos automáticamente sin que el usuario le indique que están ahí, y que al final llegue al punto dado inicialmente. goal:- assert(incrementos(1,1)), assert(incrementos(-1,1)), assert(incrementos(1,-1)), assert(incrementos(1,0)), assert(incrementos(0,1)), assert(incrementos(-1,-1)), assert(incrementos(0,-1)), assert(incrementos(0,0)), borrar, comenzar. comenzar:- cursor(0,0), write("introdusca programa :"),nl, obtener_programa(_), borrar, retract(posicionxy(_,_)), assert(posicion(0,0)), ejecutar. /*ejcutar el programa */ ejecutar:- analiazar. ejecutar:- purgar_xy, purgar_programa, purgar_incrementos, purgar_almacenarprograma, cursor(22,0), write("ejecucion completa"),nl. /*introducir programa*/ obtener_programa(P):- write(": "), r