Tomek.Korgól
Dołączył: 25 Lut 2009
Posty: 135
Przeczytał: 0 tematów
Pomógł: 2 razy Ostrzeżeń: 0/5
|
Wysłany: Nie 8:16, 14 Cze 2009 Temat postu: zadania z instrukcji 7 i 6 |
|
|
zadanie obliczajace pierwiastki
Kod: |
(define (fun a b c)
(let ((delta (- (* b b) (* (* a c) 4))))
(cond( (zero? delta) (list (/ (- b) (* 2 a))))
((> delta 0) (list (/ (- (- b) (sqrt delta)) (* 2 a))
(/ (+ (- b) (sqrt delta)) (* 2 a))))
(else "nie ma pierwiastkow"))))
|
Post został pochwalony 0 razy
|
|