Areas dr scheme

Solo disponible en BuenasTareas
  • Páginas : 5 (1060 palabras )
  • Descarga(s) : 0
  • Publicado : 13 de septiembre de 2010
Leer documento completo
Vista previa del texto
1. Construir un programa que permita calcular el area de un triangulo
;; funcion calcula el area de un triangulo
;; base * altura / 2
(define (area-triangulo b h)
(/ (* b h) 2))
(define (lec-a-triangulo)
(display "asignar la base y la altura")
(area-triangulo (read) (read)))

2. Construir un programa que permita calcular el area de n triangulos iguales
;; funcion calcula elarea de n triangulos iguales
;; (base * altura / 2) * n
(define (area-n-triangulos n)
(* (lec-a-triangulo) n))
(define (lec-a-n-triangulo)
(display "asignar valor a n")
(area-n-triangulos (read)))

3. Construir un programa que permita calcular el area de 3 triangulos con diferente base y la misma altura
;; funcion calcula el area de 3 trinagulos con diferente base y misma latura
;;suma del área de los 3 triangulos
(define (area-3-triangulos-db b1 b2 b3 h)
(+ (area-triangulo b1 h) (area-triangulo b2 h) (area-triangulo b3 h)))
(define (lec-3-triangulos-db)
(display "asignar valor a base1 base2 base3 y la aaltura")
(area-3-triangulos-db (read) (read) (read) (read)))

4. Construir un programa que permita calcular el area de 3 triangulos con diferentebase y diferente altura
;; funcion calcula el area de 3 triangulos de diferente base y diferente altura
;; suma del area de los tres triangulos
(define (area-3-triangulos-db-dh b1 b2 b3 h1 h2 h3)
(+ (area-triangulo b1 h1) (area-triangulo b2 h2) (area-triangulo b3 h3)))
(define (lec-3-triangulos-db-dh)
(display " asignar valor a base1 base2 base3 altura1 altura2 altura3")(area-3-triangulos-db-dh (read) (read) (read) (read) (read) (read)))

5. Construir un programa que calcule el área de un circulo
;; funcio calcula el area de un circulo
;; multiplicacion de 3.14 por el radio
(define pi 3.14)
(define (area-circulo radio)
(* pi (* radio radio)))
(define (lec-area-circulo)
(display "asignar valor a el radio")
(area-circulo (read)))

6. Construir un programaque calcule el área de un anillo
;; funcio calcula el area de un anillo
;; (area1*area1)-(area2*area2)*3.14
(define pi 3.14)
(define (area-anillo x y)
(* (- (* x x) (* y y))))
(define (lec-a-anillo)
(display "asignar valor a x y y")
(area-anillo (read) (read)))

7. Construir un programa que calcule el área de un cilindro
;; funcion calcula el area de un cilindro
;;2*3.14*radio*altura
(define pi 3.14)
(define (area-cilindro radio altura)
(* 2 pi radio altura))
(define (lec-a-cilindro)
(display "asignar valor a el radio y la altura")
(area-cilindro (read) (read)))

8. Construir un programa que calcule el volumen de un cilindro hueco
;; funcion calcula el volumen de un cilindro hueco
;; (radio *radio)*3.14*altura
(define pi3.14)
(define (vol-cilindro radio altura)
(* (* radio radio) pi altura))
(define (lec-vol-cilindro)
(display "asignar valor a radio y altura")
(vol-cilindro (read) (read)))

9. Construir un programa que calcule el volumen de n cilindros huecos
;; funcion calcula el volumen de n cilindros
;; volumen del cilindro * n
(define (vol-n-cilindros n)
(* (lec-vol-cilindro)n))
(define (lec-vol-n-cilindros)
(display "asignar el numero de cilindros")
(vol-n-cilindros (read)))

10. Construir un programa que calcule el volumen de 3 cilindros huecos con diferente altura
;; funcion calcula el volumen de 3 cilondros con diferente altura
;; se suma el volumen de los 3 cilindros
(define (vol-3-cilindro-dh radio altura1 altura2 altura3)
(+(vol-cilindro radio altura1) (vol-cilindro radio altura2) (vol-cilindro radio altura3)))
(define (lec-vol-3-cilindro-dh)
(display "asignar valor a radio altura1 altura2 altura3")
(vol-3-cilindro-dh (read) (read) (read) (read)))

11. Construir un programa que permita calcular el area de un rectángulo
;; funcion para calcular el area de un rectangulo
;; area = base * altura
(define...
tracking img