Advertisement
cardel

Untitled

Jun 4th, 2019
906
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Racket 0.73 KB | None | 0 0
  1. ;;.
  2.  
  3. ;;Autor: Carlos A Delgado
  4. ;;Fecha: 04 de Junio de 2019
  5.  
  6. ;;g: numero-> numero
  7. ;;Descripción: recibe un numero y calcula su cuadrado
  8. ;;Ejemplos (g 5) -> 25
  9. (define (g w)
  10.   (sqr w))
  11.  
  12. ;;h: numero -> numero
  13. ;;Descripción: recibe un numero y calcula el cuadrado y lo divide entre dos
  14. ;;Ejemplos (h 5) -> 12.5
  15. (define (h a)
  16.   (/ (g a) 2))
  17.  
  18. ;;i: numero -> numero
  19. ;;Descripción: Calcula el cubo del numero y lo divide entre 8
  20. ;;Ejemplos (i 8) -> 64
  21. (define (i p)
  22.   (/ (expt p 3) 8))
  23.  
  24. ;;Contrato: f: numero, numero -> numero
  25. ;;Descripción: Recibe dos argumentos y calcula una formula
  26. ;;Ejemplo (f 1 1) ->0.846153   (f 3 5) -> 0.73
  27. (define (f x y)
  28.   (/ (+ (g x) (h y) (- (i x)) ) (+ (g x) (h y) (i x)  ))
  29. )
  30.  
  31. (f 1 1)
  32. (f 3 5)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement