Pcs2d

Toma de decisiones - Uso de condicionales - Incompleto

Oct 1st, 2014
255
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 1.03 KB | None | 0 0
  1. ;Determinar si un numero es par
  2. (define (numberopar n)
  3.   (if (= (remainder n 2) 0)
  4.       true
  5.       false))
  6.  
  7. ;Determiar si en un grupo de numeros hay un numero par
  8. (define (numerospares nA nB nC)
  9.   (if (numberopar nA)
  10.       true
  11.       (if (numberopar nB)
  12.           true
  13.           (if (numberopar nC)
  14.               true
  15.               false))))
  16.  
  17. ;Determinar el valor absoluto de un numero
  18. (define (valorabsoluto n)
  19.   (if (> n 0)
  20.       n
  21.       (* -1 n)))
  22.  
  23. ;ompaniadg
  24. (define (cotizacionCompra nCompu)
  25.   (cond
  26.     [(> 20 nCompu)(* nCompu 3000000)]
  27.     [(< 40 nCompu)(* nCompu 2150000)]
  28.     [else (* nCompu 2740000)]))
  29.  
  30. ;8
  31. (define (salarioHoras horas)
  32.   (* horas 2328))
  33. (define (salarioTotal horas ventas)
  34.   (cond
  35.     [(> ventas 200)(+ (salarioHoras horas)
  36.                       (/ (* (salarioHoras horas) 60) 100))]
  37.     [(< ventas 100)(salarioHoras horas)]
  38.     [else (+ (salarioHoras horas)
  39.                       (/ (* (salarioHoras horas) 40) 100))]))
  40. (salarioTotal 40 80)
  41. (salarioTotal 40 101)
  42. (salarioTotal 40 247)
Advertisement
Add Comment
Please, Sign In to add comment