Mathematica
Mathematica
Datos personales
apache Flex
lunes, 18 de abril de 2011
PROLOG: N primeros numeros de la serie Fibonacci
1:47 | 
Publicado por
a8a
Este programa calcula los N primeros t茅rminos de la serie de Fibonacci:
my_fibonacci(_, _, 0).
my_fibonacci(A, B, N):-
write(A),
write(' '),
N1 is N-1,
C is A + B,
my_fibonacci(B, C, N1).
Para ejecutar el programa:
?- my_fibonacci(0, 1, 10).
Y el resultado es:
0 1 1 2 3 5 8 13 21 34 yes
viernes, 15 de abril de 2011
PROLOG: Factorial (versi贸n 2)
Este programa calcula el factorial de un n煤mero:
my_factorial(1,F,F):- !.
my_factorial(N, T, F):-
N2 is N-1,T2 is T * N,
my_factorial(N2, T2, F).
Para ejecutar el programa:
?- my_factorial(5, 1, F).
Y el resultado es:
F = 120
PROLOG: Factorial
Este programa calcula el factorial de un n煤mero:
my_factorial(1,1):- !.
my_factorial(N, F):-
N2 is N-1,
my_factorial(N2, F2),
F is F2*N.
Para ejecutar el programa:
?- my_factorial(5, X).
Y el resultado es:
F = 120
mi茅rcoles, 13 de abril de 2011
PROLOG: Suma de los numeros de 1 a N (versi贸n 2)
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:
Comentarios (Atom)
Wolfram Programming Lab
