ISABEL GARCIA MENDEZ PROG


1.- realiza una función llamada resultado donde muestre los sig. Mensajes:
6 no acreditado
7 aprobado regular
8 aprobado bien
9 aprobado muy bien
10 excelenteacreditado
(DEFUN resultado (N)
(COND ((= N 6) 'no_acreditado)
((= N 7) 'aprobado_regular)
((= N 8) 'aprobado_bien)
((= N 9) 'aprobado_muy_bien)
((= N 10)'excelente_acreditado))))














2.- realizar una función días que cuando se muestre el número, muestre el nombre del día

(DEFUN dias (N)
(COND ((= N 1) 'LUNES)((= N 2) 'MARTES)
((= N 3) 'MIERCOLES)
((= N 4) 'JUEVES)
((= N 5) 'VIERNES)
((= N 6) 'SABADO)
((= N 7) 'DOMINGO))))

















3.- realizar una función mesque cuando se muestre el número, muestre el nombre del mes-
(DEFUN MES (N)
(COND ((= N 1) 'ENERO)
((= N 2) 'FEBRERO)
((= N 3) 'MARZO)
((= N 4) 'ABRIL)
((= N 5)'MAYO)
((= N 6) 'JUNIO)
((= N 7) 'JULIO)
((= N 8) 'AGOSTO)
((= N 9) 'SEPTIEMBRE)
((= N 10) 'OCTUBRE)
((= N 11) 'NOVIEMBRE)
((= N 12) 'DICIEMBRE))))







4.- Funciónque muestre el máximo de una lista declarada

(max 5 6 73 1 59)



Función que muestre el mínimo de una lista declarada

(min -4 67 2 1 90 0)





Realiza unafunción que pregunte la base y la altura y que obtenga el área de un triangulo

(defun area ()
(FORMAT T "~%ESCRIBE LA BASE: ")
(SETQ base (READ))
(FORMAT T "~%ESCRIBELA ALTURA: ")
(SETQ altura (READ))
(FORMAT T"~%EL AREA ES: ~D"(/ (* base altura) 2))))






















Escribir los arboles binarios de las siguienteslistas
1.- ((AB) C (DE))
2.- (defun suma (X Y) (+ X Y))
Y encontrar:
1.- CADDR
2.- CADADDR

(caddr ’(( AB) C (DE)))



(caddr '(defun suma (X Y) (+ X Y)))