En esta ocasión les traemos el siguiente
ejercicio en el idioma DrRacket:
Ir a clases
dependiendo del día usando define-struct
Requerimientos: El programa debe pedir
el día actual y true o false si hay o no bloqueo y dependiendo de ello si el día
actual es igual a miércoles o sábado y no hay bloqueo el usuario si ira a
clases de cálculo, lo contrario no hay
clase de cálculo.
Toma de pantalla del código:
Código:
;programa que me permita saber si vamos a Clase de Calculo,
;Si hoy es miércoles o sábado y no hay bloqueo
(define-struct Clase (dia bloqueo))
(define-struct Dia (nombre))
(define Dia1 (make-Dia 'Domingo ))
(define Dia2 (make-Dia 'Lunes ))
(define Dia3 (make-Dia 'Martes ))
(define Dia4 (make-Dia 'Miercoles ))
(define Dia5 (make-Dia 'Jueves ))
(define Dia6 (make-Dia 'Viernes ))
(define Dia7 (make-Dia 'Sabado ))
(define (IrClaseCalculo dias bloqueo)
(cond
[ ( and (boolean=? bloqueo false)
(or (symbol=? dias (Dia-nombre Dia4) ) (symbol=? dias (Dia-nombre Dia7))))
"hay clase hoy"
]
[else "Hoy no hay clase de Calculo"])
)
;prueba
(IrClaseCalculo 'Sabado false)
(IrClaseCalculo 'Viernes true)
(IrClaseCalculo 'Viernes false)
(IrClaseCalculo 'Sabado true)
