Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;Determinar si un numero es par
- (define (numberopar n)
- (if (= (remainder n 2) 0)
- true
- false))
- ;Determiar si en un grupo de numeros hay un numero par
- (define (numerospares nA nB nC)
- (if (numberopar nA)
- true
- (if (numberopar nB)
- true
- (if (numberopar nC)
- true
- false))))
- ;Determinar el valor absoluto de un numero
- (define (valorabsoluto n)
- (if (> n 0)
- n
- (* -1 n)))
- ;ompaniadg
- (define (cotizacionCompra nCompu)
- (cond
- [(> 20 nCompu)(* nCompu 3000000)]
- [(< 40 nCompu)(* nCompu 2150000)]
- [else (* nCompu 2740000)]))
- ;8
- (define (salarioHoras horas)
- (* horas 2328))
- (define (salarioTotal horas ventas)
- (cond
- [(> ventas 200)(+ (salarioHoras horas)
- (/ (* (salarioHoras horas) 60) 100))]
- [(< ventas 100)(salarioHoras horas)]
- [else (+ (salarioHoras horas)
- (/ (* (salarioHoras horas) 40) 100))]))
- (salarioTotal 40 80)
- (salarioTotal 40 101)
- (salarioTotal 40 247)
Advertisement
Add Comment
Please, Sign In to add comment