De Wikilibros, la colección de libros de texto de contenido libre.
; Ejercicio 3.1.4. Después de estudiar el costo del show, el propietario
;descubre algunas formas de bajar el costo. Como resultado de sus reformas, el
;propietario ya no paga un costo fijo. Ahora simplemente paga $1.50 por
;asistente. Modifica ambos programas y prueba de nuevo con los precios del
;tiquete de $3.00, $4.00 y $5.00, y compara los resultados.
; Con "How to design a program":
; ganancia : número -> número
; determina la ganancia como la diferencia entre ingresos y costos con el
;precio del tiquete
; (define (ganancia precio-tiquete) ...)
; ingresos: número -> número
; calcula los ingresos a partir del precio del tiquete
; (define (ingresos precio-tiquete) ...)
; costo : número -> número
; obtiene el costo mediante el precio del tiquete
; (define (costo precio-tiquete) ...)
; asistentes : número -> número
; determina el número de asistentes y recibe el precio del tiquete
; (define (asistentes precio-tiquete) ...)
(define (ganancia precio-tiquete)
(- (ingresos precio-tiquete)
(costo precio-tiquete)))
(define (ingresos precio-tiquete)
(* (asistentes precio-tiquete) precio-tiquete))
(define (costo precio-tiquete)
(* 1.50 (asistentes precio-tiquete)))
(define (asistentes precio-tiquete)
(+ 120
(* (/ 15 .10) (- 5.00 precio-tiquete))))
(ganancia 3.00)
(ganancia 4.00)
(ganancia 5.00)
;Con "How not to design a program":
; GANANCIA : número -> número
; determina la ganancia y recibe el precio del tiquete
; (define (GANANCIA precio) ...)
(define (GANANCIA precio)
(- (* (+ 120
(* (/ 15 .10)
(- 5.00 precio)))
precio)
(* 1.50
(+ 120
(* (/ 15 .10)
(- 5.00 precio))))))
(GANANCIA 3.00)
(GANANCIA 4.00)
(GANANCIA 5.00)
; Para maximizar la ganancia del teatro el mejor precio del tiquete es $4.00 y
;la ganancia es $675
Si desea ver la versión en DrPython de este ejercicio haga click aquí.
Si desea ir a el índice de programación donde están referenciados todos los ejercicios haga click aquí.