Zitat von
gammatester:
Das ist keine saubere Lösung. Es wird zB nicht zurückgeliefert, wieviele Lösungen da sind.
Du kannst mit Length die Anzahl der Lösungen bestimmen:
Delphi-Quellcode:
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
Delphi-Quellcode:
TQuadraticEquationResults = record
ResultCount: Byte;
Results: TDoubleArr;
end;
Aber um ehrlich zu sein, ist das - für meinen Geschmack - nicht unbedingt erforderlich.
MfG