Usuario:Sergiores:En Dr Scheme:Ejemplo 3.1.3

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