Taller 1 - 18 02 2013

;****************************************
;* Integrante 1:
;* **** Nombre:
;* **** Código:
;* Integrante 2:
;* **** Nombre:
;* **** Código:
;* Archivo
;* **** Nombre:
;* **** fecha de creación:
;* **** fecha de última modificacion:
;****************************************



; Desarrolle en Scheme un programa que calcule los grados Fahrenheit partiendo de los grados Celsius dados.
(define (cent-fahre n)
  (+ (* n 9/5) 32))
(cent-fahre 100)
;fin punto 1

; Desarrolle en Scheme un programa que indique si el número ingresado es impar o no.
(define (numeroPar x)
  (if (= (expt -1 x) 1) "El numero es par"
      "El numero es impar"))
(numeroPar 5)
(numeroPar 65453)
(numeroPar -564568)
;fin punto 2

; Desarrolle una función que calcule el área de un polígono regular dados la longitud de uno de sus lados, y la cantidad de lados. Si n es el número de lados y s la longitud de un lado, el área de un polígono regular es igual a:
;---> (1/4).n.s^2.(1 / tan pi/n)
(define (AreaPoligono n s)
  (* (* 1/4 (* n (expt s 2))) (/ 1 (tan (/ pi n)))))
(AreaPoligono 4 5646)
(AreaPoligono 3 54)
(AreaPoligono 5 3)
(AreaPoligono 897 564)
;Fin punto 3

;asdfg pumto 4

(define (encuentro VelA VelB Dist)
(/ Dist (+ VelA VelB)))
(encuentro 30 15 3557)
(encuentro 545 654 2157)
(encuentro 4 45 54654567)
(encuentro 12 345 455454)
;asdfg fin punto 4

;El Sr. Pérez desea empujar una roca hasta la cima de una colina. La distancia es d metros. En un minuto el Sr Pérez empuja la roca 30 metros, pero esta se desliza hacia abajo 4 metros mientras toma aliento. Cuando el Sr. Pérez haya alanzado los d metros la roca ya no se desliza. Desarrolle un programa en scheme que permita calcular cuánto tiempo tarda el Sr. Pérez en subir la roca a una colina. La entrada es d que representa  la  distancia que debe ser empujada la roca.

(define (señorPerez D)
  (/ D (/ (- 30 4) 1)))
(señorPerez 26)
(señorPerez 30)
(señorPerez 65)
(señorPerez 15)

;fin del punto 5