Advertisement
cardel

Ejemplo Clase 14 Dic FDP

Dec 14th, 2020
3,192
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Racket 1.00 KB | None | 0 0
  1. ;;Autor: Carlos A Delgado
  2. ;;Fecha 14 de Diciembre de 2020
  3. ;;Contrato: verificar-edad: numero->texto
  4. ;;Propósito: Esta función recibe un número que indica la edad de una persona y de acuerdo a la edad emite un mensaje
  5. ;;Ejemplo
  6. ;;(verificar-edad 1) "Eres un niño"
  7. ;;(verificar-edad 5) "Eres un niño grande"
  8. ;;(verificar-edad 10) "Eres un adolescente"
  9. ;;(verificar-edad 20) "Eres un adulto"
  10. ;;(verificar-edad -10) Debe emitir un error
  11. (define (verificar-edad edad)
  12.   (cond
  13.     [(and (>= edad 0) (< edad 5)) "Eres un niño"]
  14.     [(and (>= edad 5) (< edad 10)) "Eres un niño grande"]
  15.     [(and (>= edad 10) (< edad 20)) "Eres un adolescente"]
  16.     [(>= edad 20) "Eres un adulto"]
  17.     [else (error "Debes ingresar una edad mayor o igual a 0")]
  18.     ))
  19.  
  20. (check-expect (verificar-edad 1) "Eres un niño")
  21. (check-expect (verificar-edad 5) "Eres un niño grande")
  22. (check-expect (verificar-edad 10) "Eres un adolescente")
  23. (check-expect (verificar-edad 20) "Eres un adulto")
  24. (check-error (verificar-edad -10))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement