[Tutorial] Quadratische Gleichungen vollständig lösen

[sx2008]

Zitat von stoxx:

ich finde dieses Beispiel als Lehrbeispiel sehr, sehr, sehhr ungeeignet, weil direkt mit den Editfeldern in den Berechnungen gearbeitet wird.
Besser wäre es, die Ausgabe immer von den Berechnungen zu trennen.
Erst Modul Eingabe, dann alle Werte zur Berechnung .. dann wieder zurück und dann Ausgabe. ..
Daten von der Visualiserung trennen

Das war auch mein erster Gedanke. Eine saubere Funktion wird hier benötigt:
function SolvePolynom2ndOrder(a,b,c: extended; var x1,x2:extended):Integer; Über die Namen der Ein- und Ausgabeparameter kann natürlich verhandelt werden.
Die Funktion selbst liefert 0=keine Lösung, 1=Doppelte Nullstelle, 2=x1 und x2 enthalten die Nullstellen.
Und ich bin mit Englisch schon sehr verseucht; man darf auch deutsche Funktionsnamen (NullstellenQuadGleichung()) verwenden.