Usuario:Pilonieta:Heuristica:DrScheme:Ejercicio 3.1.3
;Determinar la ganancia que el propietario del cine hace con $3.00,$4.00 y $5.00 usando las
;definiciones del programa en dos columnas.
; Con "How to design programs:
; ganancia : número -> número
; determina la ganancia como la diferencia entre ingresos y costos, recibiendo 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) (+ 180 (* .04 (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 programs:
; 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)(+ 180(* .04(+ 120(* (/ 15 .10)(- 5.00 precio)))))))
(GANANCIA 3.00)
(GANANCIA 4.00)
(GANANCIA 5.00)