De Wikilibros, la colección de libros de texto de contenido libre.
; Ejercicio 3.2.1. Proporciona definiciones de variables para todas las
;constantes que aparecen en el programa de ganancias de la figura 5 y reemplaza
;las constantes con sus nombres.
(define COSTOSHOW 180)
; Costo de cada presentación
(define AUMENTOCOSTO 0.04)
; Con más de 120 asistentes el costo de la presentación aumenta en 0.04
(define ASISTENCIA 120)
; Asistentes = 120, Precio del tiquete = $5.00
(define AUMENTOASISTENCIA 15)
; Si el precio del tiquete disminuye 0.10 asisten 15 personas más
(define PRECIO 0.10)
; Decremento del precio del tiquete
(define TIQUETE 5.00)
; Precio del tiquete = $5.00, Asistentes = 120
;Con "How to design programs":
(define (ganancia precio-tiquete)
(- (ingresos precio-tiquete)
(costo precio-tiquete)))
(define (ingresos precio-tiquete)
(* (asistentes precio-tiquete) precio-tiquete))
(define (costo precio-tiquete)
(+ COSTOSHOW
(* AUMENTOCOSTO (asistentes precio-tiquete))))
(define (asistentes precio-tiquete)
(+ ASISTENCIA
(* (/ AUMENTOASISTENCIA PRECIO) (- TIQUETE precio-tiquete))))
;Con "How not to design programs":
(define (GANANCIA precio)
(- (* (+ ASISTENCIA
(* (/ AUMENTOASISTENCIA PRECIO)
(- TIQUETE precio)))
precio)
(+ COSTOSHOW
(* AUMENTOCOSTO
(+ ASISTENCIA
(* (/ AUMENTOASISTENCIA PRECIO)
(- TIQUETE precio)))))))
; PRUEBAS:
(asistentes 3.00)
(costo 3.00)
(ingresos 3.00)
(ganancia 3.00)
(GANANCIA 3.00)
- Si desea ver la versión del ejercicio en DrPython haga click aquí
- Si desea ir a la página de enunciados de los ejercicios realizados en DrPython haga click aquí
- Si desea ir a la página de enunciados de los ejercicios realizados en DrScheme haga click aquí