Quadratische und Lineare Funktion

[Niels]

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]