DESCRIPCIÒN: El programa consiste en que se le pide un número y el progrma saca
el doble de ese número.
PROGRAMA: %PROGRAMA QUE PIDE EL NUMERO PARA SACAR EL CUADRADO DE DOS FORMAS doble:-nl,write('Dame un numero:'),read(X),procesa(X).
EJEMPLOS
%FORMA DE CORRER: 2 ?- procesa(2).
% Su doble es:-
% 3 ?- doble.
% Dame un numero:2
procesa(X):-X2 is X*2,nl,write(' Su doble es:-->'),write(X2),doble.
procesa(0):-write('Final del programa').