Ir al contenido

Usuario:Pilonieta:Heuristica:DrScheme:Ejercicio 3.1.4

De Wikilibros, la colección de libros de texto de contenido libre.
; 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


Version Python