Scheme / Dr Racket - cobro del iva en alquiler de motos

Enunciado: Una compañía dedicada al alquiler de motos cobra un valor fijo de $100.000 para los primeros 100 Km de recorrido. Para más de 100 Km y hasta 500 Km, cobra un valor adicional de $3000 por cada kilómetro en exceso sobre 100 KM. Para más de 500 Km. cobra un monto adicional de $ 1000 por cada kilómetro en exceso sobre 500 KM. Los precios NO incluyen el 16% del IVA. Diseñe un algoritmo que determine el valor a pagar por el alquiler de la moto  con el IVA.



ejercicios en scheme





; ==========================================================
(define (alquiler km)
  (cond
    [(<= km 100) (+ (/ (* 16 100000) 100) 100000)]
    [ (and (> km 100) (<= km 500))  (+ (* (- km 100 ) 3000) (/ (* 16 (+ (* (- km 100 ) 3000) 100000)) 100) 100000)]
    [ (> km 500)  (+ (* (- km 500) 1000) (/ (* 16 (+ (* (- km 100 ) 3000) 100000)) 100) 100000)]
    [else "dato no valido"]))
;prueba
(alquiler 90)
(alquiler 120)
(alquiler 520)
; ==========================================================
Compartir en facebook twitter Google tumblr pinterest

Entradas similares

0 Comentarios