Home

Archivos

Buscar

Categorías

Feeds:

RSS / Atom

Programacion - HDTP Capitulo 3· 14. December 2007, 00:04

Hoy sólo hice ejercicios del capítulo 3 de HDTP aquí van algunos:

;;Ejercicio 3.3.2
;; volume-cylinder: number,number->number
(define PI 3.14)
(define (area-circle radius)
  (* PI (sqr radius)))

(define (area-face-cylinder radius height)
  (* 2 (* radius (* PI height))))

(define (volume-cylinder radius height)
  (* height (area-circle radius)))

;;Ejercicio 3.3.3
;; area-cylinder : number,number->number
(define (area-cylinder radius height)
  (+ (* 2 (area-circle radius)) (area-face-cylinder radius height)))

;;Ejercicio 3.3.4
;;area-pipe : number,number,number->number
;;es el area de la pared externa mas el area de la pared interna mas dos veces el area del circulo externo menos el area del circulo interno
(define (area-pipe inner-radius height thickness)
  (+ (+ (area-cylinder inner-radius height) (area-cylinder (+ inner-radius thickness) height)) (* 2 (- (area-circle (+ inner-radius thickness)) (area-circle inner-radius)))))

;;Ejercicio 3.3.5
;;height : number,number->number
;;velocidad=aceleracion * tiempo (+ velocidad inicial que es 0)
;;distancia=velocidad * tiempo / 2
(define (speed aceleration time)
  (* aceleration time))

(define (height accel time)
  ( * 1/2 (* time (speed accel time))))