Ejercicio 1
Enunciado: Un restaurante ofrece un descuento del 10% para consumos de hasta $ 100. y un Descuento de hasta 20% para consumos mayores. En ambos casos se aplica un impuesto del 19%.
- Determinar el total a pagar.
Análisis: Para la solución de este problema, se requiere que el usuario ingrese el consumo.
Entrada: Consumo. <Numero>
Salida: Total a Pagar. <Numero>
Código
; ===========================================================================
; Autor: Jorge isaac peña caceres
; Fecha: 09/11/2018
; Contrato: costo-total: numero -> numero
; Proposito: dar un descuento segun la cantidad dada y aplicar el 19% iva al resultado
;-------------------------------------------------------------------------------------
;; NOTA: funcion auxiliar para calcular iva al 19%
(define (aux-iva x)
(/ (* x 19) 100))
;; NOTA: funcion auxiliar para calcular descuento
;(y = el valor al que se le hara un descuento)
;(z = porcentaje a descontar)
(define (aux-descuento y z)
(- y (/ (* y z) 100)))
;; funcion principal
(define (costo-total n)
(cond
[(<= n 100) (+ (aux-descuento n 10) (aux-iva (aux-descuento n 10)))]
[(> n 100) (+ (aux-descuento n 20) (aux-iva (aux-descuento n 20)))]
[else "dato no numerico"]
))
; ===========================================================================
Ejercicio 2
Enunciado: Debido a los excelente resultado, para promociones especiales de fin de mes el restaurante decide ampliar sus ofertas de acuerdo a la siguiente escala de consumo..
Consumo - Descuento
- Hasta 100 - 13%
- Mayor a 100 - 25%
- Mayor a 300 - 30%
- Mayor a 1000 - 50%
Código
; ===========================================================================
; Autor: Jorge isaac peña caceres
; Fecha: 14/11/2018
; Contrato: costo-total: numero -> numero
; Proposito: dar un descuento segun la cantidad dada y aplicar el 19% iva al resultado
;-------------------------------------------------------------------------------------
;; NOTA: funcion auxiliar para calcular iva al 19%
(define (aux-iva x)
(/ (* x 19) 100))
;; NOTA: funcion auxiliar para calcular descuento
;(y = el valor al que se le hara un descuento)
;(z = porcentaje a descontar)
(define (aux-descuento y z)
(- y (/ (* y z) 100)))
;; funcion principal
(define (costo-total n)
(cond
[(<= n 100) (+ (aux-descuento n 13) (aux-iva (aux-descuento n 13)))]
[(and (> n 100)(< n 300)) (+ (aux-descuento n 25) (aux-iva (aux-descuento n 25)))]
[(and (>= n 300) (< n 1000)) (+ (aux-descuento n 30) (aux-iva (aux-descuento n 30)))]
[(>= n 1000) (+ (aux-descuento n 50) (aux-iva (aux-descuento n 50)))]
[else "dato no numerico"]
))
; ===========================================================================
Ejercicio 3
Enunciado: Al ingresar el valor de la temperatura, obtener el tipo de clima según la siguiente tabla.
Entrada: Temperatura
Salida: Clima
Temperatura - Tipo de clima
Temp < 10 = Frió
Entre 10 y 20 = Nublado
Entre 21 y 30 = Calor
Temp > 30
Entrada: Temperatura
Salida: Clima
Código
; ===========================================================================
; Autor: Jorge isaac peña caceres
; Fecha: 14/11/2018
; Contrato: clima-hoy: numero -> texto
; Proposito: deducir el tipo de clima dependiendo de la temperatura ingresada
;-------------------------------------------------------------------------------------
;; funcion principal
(define (clima-hoy temp)
(cond
[(< temp 10) "Frio"]
[(and (>= temp 10) (<= temp 20)) "Nublado"]
[(and (>= temp 21) (<= temp 30)) "Calor"]
[(> temp 30) "Tropical"]
[else "dato no numerico"]
))
; ===========================================================================
