Ensayo

RAFAEL OBREGON CANTOR
EJERCICIOS EXAMEN FINAL PROGRAMACION LINEAR

1. Definir una función que pida un numero por consola, determinar si este numero es primo,
si es primo mostrar el mensaje “Elnumero es primo”, de lo contrario mostrar “No es
primo”, después de esto mostrar un mensaje “desea salir S/N”, si selecciona “N” vuelve a
repetir el proceso hasta que de la opción de salir “S”.(defun ej() (do ((h 'n))
((eq h 's) 'FIN)
(Format t "DIGITE UN NUMERO: ")
(setq x (read))(setq ind 0)
(if (or (= x 0) (= x 1)) (Format t "~&NUMEROS ESPECIALES") (do ((i 2 (1+ i)))((or (= i x) (= ind 1)) (if (= ind 1) (format t "~&EL_NUMERO_NO_ES_PRIMO") (format t "~&EL_NUMERO_ES_PRIMO")))
(if (=(mod x i) 0) (setq ind 1) (setq ind 0))
))
(Format t "~&DESEA SALIR S/N?")
(setq h (read))
)
)
2. Realizar un programa que mepida n números por consola, Crear una lista con los números
Positivos y otra con los numero negativos.
(defun ej()(format t "Cuanto Numeros Desea Digitar? ")
(setq n (read))(setq pos (list))
(setq neg (list))
(do ((i 0 (1+ i)))
((= n i) (format t "Lista Final de Positivios:~a Negativos: ~a" pos neg))
(format t "Digite Un Numero: ")
(setq x (read))
(if (< x 0) (setq neg (cons x neg))...