# Diskriminante

## Problembeschreibung

******************************************
Dokumentnummer: D1010
Quelle: http://www.edhelper.com
******************************************

Gegeben sei eine quadratische Gleichung. Die Dikriminante
ist zu bestimmen.

## Problemlösung

EINGABE

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

VERARBEITUNG

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

a:coeff(f,x,2);

b:coeff(f,x,1);

c:coeff(f,x,0);

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

AUSGABE

print("Die Diskriminante ist",d)$