# Quadratische Gleichung - Diskriminante

## Problembeschreibung

******************************************
Dokumentnummer: D1117
Quelle: Johann Weilharter,
             Funktionen
******************************************

Es soll ermittelt werden, wie viele reelle Lösungen eine quadratische
Gleichung hat, das ist dieselbe Frage, wie viele Nullstellen die zuge-
hörige quadratische Funktion hat.

## Problemlösung

EINGABE

g:read("Gib eine quadratische Gleichung ein");

VERARBEITUNG

g:expand(lhs(g)-rhs(g));

a:coeff(g,x,2);

b:coeff(g,x,1);

c:coeff(g,x,0);

d:b**2-4*a*c;

l:realroots(g);

AUSGABE

if d > 0 then print("Die Funktion hat 2 Nullstellen")
             else if d = 0 then print("Die Funktion hat 1 Nullstelle")
                                  else print("Die Funktion hat keine Nullstellen")$

print("Reelle Lösungen der Gleichung sind",l)$