18 02 2013 - Ejercicios en clase

;****************************************
;* Integrante 1:
;* **** Nombre:
;* **** Código:
;* Integrante 2:
;* **** Nombre:
;* **** Código:
;* Archivo
;* **** Nombre: Ejercicios en clase
;* **** fecha de creación: 18 - 02 - 2013
;* **** fecha de última modificacion:
;****************************************

;Desarrolle un programa que calcule la hipitenusa de un triangulo rectangulo
(define (Hipotriangle h b)
  (sqrt (+ (sqr h) (sqr b))))
;Ejemplo
(Hipotriangle 4 3)

;Desarrolle un programa que calcule el perímetro de un cuadrado.
(define (perimetroCuadro L)
  (* 4 L))
;Ejemplo
(perimetroCuadro 2)
;*****Perímetro de un rectangulo
;******Opcion A
(define (perimetroRectangulo l1 l2)
  (* (+ l1 l2) 2))
(perimetroRectangulo 3 5)
;******Opcion B
(define (perimetroRectangle l1 l2)
  (+ (* l1 2)(* l2 2)))
(perimetroRectangle 3 5)

;Desarrolle un programa que determine si un numero es par
(define (NumeroPar N)
  (if (= (expt -1 N) 1) "numero par" "numero impar"))
(NumeroPar 3)
(NumeroPar 115879)
(NumeroPar 2)
(NumeroPar 243246)