Moin!
Du hast dich jetzt komisch ausgedrückt.
Willst du die Nullstelle einer quadratischen und einer lineraren Funktion? (das wäre ja das was du gefragt hast)
Dann musst du die lineare von der quadratischen subtrahieren und dann mit der quadratischen Lösungsformel die 0-Stellen dieser Hilfsgleichung berechnen.
Oder willst du die Nullstellen von quadratischen bzw lineraren Funktionen? (das hast du zwar nicht gesagt warscheinlich aber gemeint)
Es gibt mehrere Möglichkeiten. Du kannst die Formel eingeben lassen und dann parsen. Du kannst aber auch 3 Edits nehmen (so wie du's jetzt hast) und dann z.B. folgenden Quellcode:
Delphi-Quellcode:
var
rad, a, b, c, x1, x2: Real;
a := StrtoFloat(Edit1.Text);
// ax^2 + bx + c
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);
rad := sqr(b/(2*a))-(c/a);
// Radikant
if rad >= 0
then
begin
x1:=-(b/a)/2 + sqrt(
rad);
// 1. NS
x2:=-(b/a)/2 - sqrt(
rad);
// 2. NS
Edit6.Text := FloatToStrF(x1,ffFixed,100,2);
Edit11.Text := FloatToStrF(x2,ffFixed,100,2);
end
else
ShowMessage('
Radikant < 0, somit keine Nullstellen');
Bei der linearen Gleichung einfach:
Delphi-Quellcode:
var
m, n: Real;
m := StrtoFloat(Edit1.Text); // mx + n
n := StrToFloat(Edit2.Text);
if m <> 0 then
Edit6.Text := FloatToStrF(-n/m,ffFixed,100,2)
else
ShowMessage('Gleichung parallel zur X-Achse, somit keine Nullstellen');
MfG Niels
[edit 1+2+3]wer schreiben kann ist klar im Vorteil[/edit]
[edit 4]irgendwie war der tag heut doch zu viel[/edit]