; ========================================================== (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) ; ==========================================================
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.