in Scheme programmieren

Natascha · Anmeldungsdatum: 10.11.2005 Beiträge: 3

Hi, ich hab ein riesengroßes Problem, hat einer von euch ne Ahnung von Scheme?

Es sind sie Gleichungen:
ax² + bx +c= 0 gegeben

mit den Lösungen

x =

D := b² - 4ac

a

0

und dazu soll ich eine SCHEME-Funktion, die für gegebene a, b, c

Z
die Lösungen in R bestimmt oder "nicht lösbar" ausgibt. Wäre super, wenn ihr mir helfen könntet
Danke[/code]

Gast

(define (D a b c)

(- (* b b) (* 4 a c)))

(define (e1 a b c)

(/ (+ (- b) (sqrt (D a b c))) (* 2 a)))

(define (e2 a b c)

(/ (- (- b) (sqrt (D a b c))) (* 2 a)))

(define (lösung a b c)

(cond ((< (D a b c) 0) 'nicht_lösbar)

((= (D a b c) 0) (e1 a b c))

(else (list (e1 a b c) (e2 a b c)))))