De Wikilibros, la colección de libros de texto de contenido libre.
; Ejercicio 3.3.1. Los Estados Unidos usan el Sistema Inglés de medidas. El resto del
; mundo usa el sistema métrico. Por lo tanto, personas que viajan al extranjero y
; compañías que comercian con socios extrajeros usualmente necesitan convertir de medidas
; inglesas a las métricas y viceversa. La siguiente tabla muestra las 6 unidades
; principales medidas de longitud del Sistema Inglés:
; Inglés Métrico
; 1 inch = 2.54 cm
; 1 foot = 12 in.
; 1 yard = 3 ft.
; 1 rod = 5(1/2) yd.
; 1 furlong = 40 rd.
; 1 mile = 8 fl.
; Crear las funciones inches->cm, feet->inches, yards->feet, rods->yards, furlongs->rods,
; and miles->furlongs.
; Luego desarrolla las funciones feet->cm, yards->cm, rods->inches, and miles->feet.
(define INCH 2.54)
(define FOOT 12)
(define YARD 3)
(define ROD 5.05)
(define FURLONG 40)
(define MILE 8)
; inches->cm : número -> número
; recibe pulgadas y retorna el equivalente en centímetros
; (define (inches->cm inches) ...)
(define (inches->cm inches)
(* inches INCH) )
; feet->inches : número -> número
; recibe pies y retorna el equivalente en pulgadas
; (define (feet->inches feet) ...)
(define (feet->inches feet)
(* feet FOOT) )
; yards->feet : número -> número
; recibe yardas y retorna el equivalente en pies
; (define (yards->feet yards) ...)
(define (yards->feet yards)
(* yards YARD) )
; rods->yards : número -> número
; recibe "rods" y retorna el equivalente en yardas
; (define (rods->yards rods) ...)
(define (rods->yards rods)
(* rods ROD) )
; furlongs->rods : número -> número
; recibe "furlongs" y retorna su equivalente en "rods"
; (define (furlongs->rods furlongs) ...)
(define (furlongs->rods furlongs)
(* furlongs FURLONG) )
; miles->furlongs : número -> número
; recibe millas y retorna el equivalente en "furlongs"
; (define (miles->furlongs miles) ...)
(define (miles->furlongs miles)
(* miles MILE) )
(define (feet->cm feet)
(inches->cm (feet->inches feet)))
(define (yards->cm yards)
(inches->cm (feet->inches (yards->feet yards))))
(define (rods->inches rods)
(feet->inches (yards->feet (rods->yards rods))))
(define (miles->feet miles)
(yards->feet (rods->yards (furlongs->rods (miles->furlongs miles)))))
; Ejemplos:
(inches->cm 1)
(feet->inches 1)
(yards->feet 1)
(rods->yards 1)
(furlongs->rods 1)
(miles->furlongs 1)
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í
