Berechnung von quadratischen gleichungen mit 3 unbekannten

[mola]

Hallo
ICh soll ein Programm schreiben, dass drei quadratische gleichungen mit drei unbekannten löst und das mit den Sarrusverfahren. Habe jetzt ein Programm geschrieben aber nachdem ich auf berechnen drücke, setzt es alle werte auf 0. Kann mir vieleicht jemand helfen und sagen woran es liegen könnte?
Danke

Code:

var a11,a12,a13,b1,a21,a22,a23,b2,a31,a32,a33,b3,delta,
 deltax1,deltax2,
deltax3,x1,x2,x3: real;
begin
edit1.Text:= FloatToStr(a11);
edit2.Text:= FloatToStr(a12);
edit3.Text:=FloatToStr(a13);
edit4.Text:= FloatToStr(b1);
edit5.Text:= FloatToStr(a21);
edit6.Text:= FloatToStr(a22);
edit7.Text:= FloatToStr(a23);
edit8.Text:= FloatToStr(b2);
edit9.Text:= FloatToStr(a31);
edit10.Text:= FloatToStr(a32);
edit11.Text:= FloatToStr(a33);
edit12.Text:= FloatToStr (b3);
edit13.Text:=FloatToStr (delta);
edit14.Text:=FloatToStr (deltax1);
edit15.Text:=FloatToStr (deltax2);
edit16.Text:=FloatToStr (deltax3);
edit17.Text:=FloatToStr (x1);
edit18.Text:=FloatToStr(x2);
edit19.Text:=FloatToStr (x3);

delta:=(a11*a22*a33)+(a12*a23*a31)+(a13*a21*a32)-
(a31*a22*a13)-(a32*a23*a11)-(a33*a21*a12);

deltax1:= (b1*a22*a33)+(a12*a23*b3)+(a13*b2*a32)-
(b3*a22*a13)-(a32*a23*b1)-(a33*b2*a12);

deltax2:= (a11*b2*a33)+(b1*a23*a31)+(a13*a21*b3)-
(a31*b2*a13)-(b3*a23*a11)-(a33*a21*b1);

deltax3:=(a11*a22*b3)+(a12*b2*a31)+(b1*a21*a32)-
(a31*a22*b1)-(a32*b2*a11)-(b3*a21*a12);

x1:= deltax1/delta;
x2:= deltax2/delta;
x3:=deltax3/delta;

x1:= StrToFloat (edit17.text);
x2:= StrToFloat  (edit18.text);
x3:=StrToFloat  (edit19.text);

end;

[fkerber]

Hi!

Bitte verwende die Delphi-Tags und wähle einen aussagekräftigen Titel.


Ciao Frederic

[Wuaegner]

Was ist denn das OnClick-ereignis von Berechnen?
Das was du gepostet hast?

[Wuaegner]

Falls das die Brechenn-Prozedur ist,
frag ich mich warum du variablen, denen noch kein Wert zugewiesen wurde in den Edits anzeigen lässt

[mola]

Das ist die berechnen prozedur.
Ich wollte die werte erst einlesen

Code:

edit1.Text:= FloatToStr(a11); 
edit2.Text:= FloatToStr(a12); 
edit3.Text:=FloatToStr(a13); 
edit4.Text:= FloatToStr(b1); 
edit5.Text:= FloatToStr(a21); 
edit6.Text:= FloatToStr(a22); 
edit7.Text:= FloatToStr(a23); 
edit8.Text:= FloatToStr(b2); 
edit9.Text:= FloatToStr(a31); 
edit10.Text:= FloatToStr(a32); 
edit11.Text:= FloatToStr(a33); 
edit12.Text:= FloatToStr (b3); 
edit13.Text:=FloatToStr (delta); 
edit14.Text:=FloatToStr (deltax1); 
edit15.Text:=FloatToStr (deltax2); 
edit16.Text:=FloatToStr (deltax3); 
edit17.Text:=FloatToStr (x1); 
edit18.Text:=FloatToStr(x2); 
edit19.Text:=FloatToStr (x3);

und dann rechne ich mit ihnen x1,x2 und x3 aus und wollte sie dann anzeigen lassen

Code:

x1:= StrToFloat (edit17.text); 
x2:= StrToFloat  (edit18.text); 
x3:=StrToFloat  (edit19.text);

kann man das nicht so machen?

[fkerber]

Hi!

Ich denke mal, du machst das Anzeigen falsch herum. Auch das Einlesen machst du es falsch herum, oder?

Bei der Ausgabe musst du ja dem Edit etwas zuweisen.
Also

Delphi-Quellcode:

Edit17.Text:=FloattoStr(x1);
.
.
.

Ciao Frederic

[nailor]

Zitat von mola:

und dann rechne ich mit ihnen x1,x2 und x3 aus und wollte sie dann anzeigen lassen[code]x1:= StrToFloat (edit17.text);
x2:= StrToFloat (edit18.text);
x3:=StrToFloat (edit19.text);

kann man das nicht so machen?

so lässt du aber nichts anzeigen. das ginge genau umgekehrt.

[mola]

danke
jetzt klappt es