Mathematica
Mathematica
Datos personales
apache Flex
miércoles, 13 de abril de 2011
PROLOG: Suma de los numeros de 1 a N (versión 2)
1:38 | 
Publicado por
a8a
Este programa calcula la suma de los primeros N números enteros:
my_sum(I, I, R, R):- !.
my_sum(I, N, R, F):-
I1 is I+1,
R1 is R+I1,
my_sum(I1, N, R1, F).
Para ejecutar el programa:
?- my_sum(0, 6, 0, S).
Y el resultado es:
S = 21
martes, 12 de abril de 2011
PROLOG: Suma de los numeros de 1 a N
Este programa calcula la suma de los primeros N números enteros:
my_sum(0, 0):- !.
my_sum(N, R):-
N1 is N-1,
my_sum(N1, R1),
R is R1+N.
Para ejecutar el programa:
?- my_sum(6, S).
Y el resultado es:
S = 21
domingo, 10 de abril de 2011
PROLOG: Devuelve el mayor de dos numeros (versión 2)
Este programa devuelve el mayor de dos números dados:
my_max(X, Y, X):-
X >= Y,
!.
my_max(_, Y, Y).
Para ejecutar el programa:
?- my_max(5, 3, Max).
Y el resultado es:
Max = 5
Para ejecutar el programa:
?- my_max(4, 8, Max).
Y el resultado es:
Max = 8
Para ejecutar el programa:
?- my_max(4, 8, 3).
Y el resultado es:
no
PROLOG: Devuelve el mayor de dos numeros
Este programa devuelve el mayor de dos números dados:
my_max(X, Y, X):-
X >= Y.
my_max(X, Y, Y):-
X < Y.
Para ejecutar el programa:
?- my_max(5, 3, Max).
Y el resultado es:
Max = 5
Para ejecutar el programa:
?- my_max(4, 8, Max).
Y el resultado es:
Max = 8
Para ejecutar el programa:
?- my_max(4, 8, 3).
Y el resultado es:
no
sábado, 9 de abril de 2011
PROLOG: Division de numero por otro
Este programa divide un numero en otro:
my_div_num(_, 0, _):-
write('Error al dividir por cero'),
!.
my_div_num(A, B, C):-
C is A / B.
Para ejecutar el programa:
?- my_div_num(12, 4, C).
Y el resultado es:
C = 3
Para ejecutar el programa:
?- my_sum_num(12, 0, C).
Y el resultado es:
Error al dividir por cero
Para ejecutar el programa:
?- my_sum_num(12, 4, 3).
Y el resultado es:
yes
Para ejecutar el programa:
?- my_sum_num(12, 4, 5).
Y el resultado es:
no
miércoles, 6 de abril de 2011
PROLOG: Suma de dos numeros
Este programa suma dos números:
my_sum_num(A, B, C):-
C is A + B.
Para ejecutar el programa:
?- my_sum_num(3, 4, C).
Y el resultado es:
C = 7
Para ejecutar el programa:
?- my_sum_num(3, 4, 5).
Y el resultado es:
no
Para ejecutar el programa:
?- my_sum_num(3, 4, 7).
Y el resultado es:
yes
martes, 5 de abril de 2011
PROLOG: Convenciones
Para los programas en Prolog vamos a usar las siguiente convenciones:
VARIABLE: Representa un valor simple.
Ejemplo: X = 5
VARIABLEs: Variable con letra "s" al final representa una lista de elementos.
Ejemplo: Ls = [1,2,3,4]
Suscribirse a:
Entradas (Atom)
Wolfram Programming Lab
