Hallo!
Wie kann man die
Schnittpunkte einer quadratischen bzw. linearen Funktion (also maximal x²) berechnen?
Für die Quadratische nehme ich die Formel: x = (b+/- sqrt((b*b)-(4*a*c)))/(2*a)
Für die Lineare nimmt man die Formel: x = -n/m
Nun weiß ich nicht wie ich das umsetzen kann?!
Darin darf ja einmal der Radikant (also der Wert unter der Wurzel) nicht kleiner Null werden und bei der Division darf der Nenner ja auch nicht Null werden! Könnte mir da bitte jemand helfen und die Berechnung aufschreiben?
Außerdem bräuchte ich noch Hilfe zu der Ausagbe einer allgemeinen Funktion. Wenn ich die Werte (a2,a1,a0) in Edit(1-3) eingegeben habe, möchte ich diese gern in einem eigenen Edit4 Feld wieder zusammengefasst ausgeben in der Form x=a2x²+a1x+a0
Ich wäre euch sehr dankbar, wenn Ihr mir helfen könntet!
Erste Anfänge von mir waren so (funktioniert leider nicht):
Delphi-Quellcode:
a2:=strtofloat(edit1.text);
// Eingabe
a1:=strtofloat(edit2.text);
// Eingabe
a0:=strtofloat(edit3.Text);
// Eingabe
rad:=sqrt((a2*a2)-(4*a1*a0));
// Formel
x1:=(a1-
rad)/(-2*a2);
// Formel
x2:=(a1+
rad)/(-2*a2);
// Formel
// Ausgabe
edit4.text:=floattostr(a2)+'
x²'+floattostr(a1)+'
x'+floattostr(a0);
// Nullstellen
if rad>=0
then
begin
edit6.text:=floattostrF(x1,ffFixed,100,2);
edit11.text:=floattostrF(x2,ffFixed,100,2);
end
else
showmessage ('
Radikant < 0, somit keine Nullstellen');