Advertisement
Guest User

Racket - metody

a guest
Jan 3rd, 2018
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Racket 0.75 KB | None | 0 0
  1. (define (sude_nebo_liche cislo) (if (= (modulo cislo 2) 0) "Jde o sudé číslo." "Jde o liché číslo."))
  2. (sude_nebo_liche 10)
  3.  
  4. (define (je_vetsi cisloa cislob) (if (> cisloa cislob) cisloa cislob))
  5. (je_vetsi 10 20)
  6.  
  7. (define (je_vetsi_z_trojice cisloa cislob cisloc) (if (> cisloa cislob) (if (> cisloa cisloc) cisloa cisloc) (if (> cislob cisloc) cislob cisloc)))
  8. (je_vetsi_z_trojice 150 350 180)
  9.  
  10. (define (faktorial cislo) (if (< cislo 0) "Faktoriál nemůže být menší než 0!" (if (= cislo 1) 1 (* (faktorial (- cislo 1)) cislo))))
  11. (faktorial 6)
  12.  
  13. (define (absolutni_hodnota cislo) (if (>= cislo 0) cislo (+ cislo (* cislo -2))))
  14. (absolutni_hodnota -50)
  15.  
  16. (define (signum cislo) (cond ((> cislo 0) 1) ((= cislo 0) 0) (else -1)))
  17. (signum -1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement