Advertisement
cardel

Juego RKT

Jan 18th, 2021
3,241
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Racket 0.98 KB | None | 0 0
  1. ;;Autor: Carlos A Delgado
  2. ;;Fecha: 18 de Enero de 2020
  3. ;;Contrato: chequear-diferencia: numero, numero -> simbolo
  4. ;;Propósito: Es indicar mediante un mensaje que tan cerca estamos de un número
  5. ;;Si son iguales retorna 'igual
  6. ;;Si la diferencia es mayor que 0 y menor o igual a 100 'pequeña
  7. ;;Si la diferencia es mayor que 100 y menor o igual a 1000 'mediana
  8. ;;Si la diferencia es mayor que 1000 'grande
  9. ;;Ejemplos
  10. ;;numA = 10 numB = 90 'pequeña
  11. ;;numA = 100 numB = 800 'mediana
  12. ;;numA = 15000 numB = 32000 'grande
  13. (define (chequear-diferencia numA numB)
  14.   (cond
  15.     [(= numA numB) 'igual]
  16.     [(and (> (abs (- numA numB)) 0) (<= (abs (- numA numB)) 100)) 'pequeña]
  17.     [(and (> (abs (- numA numB)) 100) (<= (abs (- numA numB)) 1000)) 'mediana]
  18.     [else 'grande]
  19.     ))
  20.  
  21. (check-expect (chequear-diferencia 10 90) 'pequeña)
  22. (check-expect (chequear-diferencia 100 800) 'mediana)
  23. (check-expect (chequear-diferencia 15000 32000) 'grande)
  24.  
  25.  
  26. (guess-with-gui chequear-diferencia)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement