quadratische Gleichung lösen:gelöst

[jaslaz]

hi zusammen,
ich möchte ein programm entwickeln das quadratische Gleichungen löst (ax²+bx+c).

Ich hab überlegt das ich es so machen könnte.
Mein Problem ist die Formel:

Code: Alles auswählen

implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,x:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);
x:= //Wie berechne ich X?
edit4.text:=floattostr(x1);
edit5.text:=floattostr(x2);
end;
 
initialization

[Euklid]

ich möchte ein programm entwickeln das quadratische Gleichungen löst (ax²+bx+c).

Ohach - sowas programmiere ich auch gerade

Ich hab überlegt das ich es so machen könnte.
Mein Problem ist die Formel:
x:= //Wie berechne ich X?

Anstatt x wäre es in der Tat gut, wenn Du x1 und x2 einführst, denn es gibt wirklich zwei Lösungen.

Zur Berechnung verwendest Du einfach die abc-Lösungsformel, die hier steht:
http://de.wikipedia.org/wiki/Abc-Formel ... ngsformeln" onclick="window.open(this.href);return false;

Wenn noch Fragen offen sind: Einfach posten.

Viele Grüße, Euklid

[jaslaz]

Wenn noch Fragen offen sind: Einfach posten.

Irgendwie rechnet er das nur aus, wenn c=0 ist.

woran kanns liegen?

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,x1,x2:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);
x1:=(-b+sqrt(sqr(b)- 4 * a * c))/2 * a;
x2:=(-b-sqrt(sqr(b)- 4 * a * c))/2 * a;
edit4.text:=floattostr(x1);
edit5.text:=floattostr(x2);
end;

[Euklid]

Ein kleiner Fehler hat sich eingeschlichen: Um 2*a muss eine Klammer drum, da durch beides geteilt wird.

Code: Alles auswählen

x1:=(-b+sqrt(sqr(b)- 4 * a * c))/(2 * a);
x2:=(-b-sqrt(sqr(b)- 4 * a * c))/(2 * a);

WICHTIG: Die Variable a darf nicht 0 sein. D.h. das musst Du vorher abfangen, ansonsten erhältst Du eine Division durch 0 - Error.

Ansonsten müsste das Ergebnis jetzt stimmen.

Viele Grüße, Euklid

[jaslaz]

Ich hab mein Programm jetzt mal Hochgeladen: http://rapidshare.com/files/418262657/Quadrat.rar

Es funzt immer noch nich!!!

Guck dir das mal bitte an Euklid

[shokwave]

Hab es mir gerade mal angesehen. Was soll denn nicht gehen? Läuft bei mir prima.
Die Funktion "2x²" hat zwei mal 0 als Nullpunkte. "2x²-8" hat 2 und -2. Und bei "-4x²+5x+9" kommen -1 und 2,25 raus.

Wenn du natürlich Funktionen angibst, die keinen Nullpunkt haben ("2x²+7"), steht auch nix gescheites im Ergebnis.

[Euklid]

Richtig, danke shokwave - hatte das ganz vergessen zu erwähnen:

jaslaz: Eine Lösung kann es natürlich nur geben, wenn b^2 größer ist als 4*a*c. Ansonsten wird der Radikant der Wurzel negativ, was reell nicht mehr zu lösen ist - vermute, hier liegt dein Problem.
Du kannst eine Fehlermeldung verhindern, indem Du vorher prüfst, ob b^2 wirklich größer ist als 4*a*c.

Viele Grüße, Euklid

[jaslaz]

Jo, danke!

hätt ich auch selbst drauf kommen können.

jetzt funzt es super!!!