Kvadratická rovnice v SCHEME
Inu v dnešní době budu už psát všechny algoritmy jen ve scheme...ujíždím na něm,takže nečekejte žádné céčko či visual basic..už jeen scheme!!
(define kvad
(lambda (a b c)
(cond
((< (- (* b b) (* 4 a c)) 0)
(display "nelze"))
(else( display (/ (+ (* b -1) (sqrt (- (* b b) (* 4 a c))) (* 2 a))))
(newline)
( display (/ (- (* b -1) (sqrt (- (* b b) (* 4 a c)))) (* 2 a)))))))