Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Aphton,
25. Jul 2009
Du kannst mit Length die Anzahl der Lösungen bestimmen:
X := SolveQuadraticEquation( 1.0, 2.0, 1.0 );
ShowMessage( 'Anzahl der Lösungen: ' + IntToStr( Length(X) ) );
Natürlich kann man da noch einen eigenen Typen (wie folgt) definieren
TQuadraticEquationResults = record
ResultCount: Byte;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Aphton,
24. Jul 2009
Wenn wir schon dabei sind
type
TDoubleArr = Array of Double;
function SolveQuadraticEquation( A, B, C: Double ): TDoubleArr;
var
d: Double; // diskriminante (das was unter SQRT steht)
begin