一个DELPHI的计算问题！！急~~~~~ (100分)

我想要求两个未知数设X，Y！！
Xa+Yb=W
X+Y=l/b

a,b,L,W 均为运行程序时，自行输入的数据，所以未知数只有X和Y，所以请问代码怎样写？

你的b是指什么?memo?不是table吗? 那好办,将query内的当前记录或所有记录add进memo中!
几条语句而已!

用计算机解方程，好像不行吧．
不过也并不一定，有好的算法就可以．

faint, 你不会先把x，y求出来阿
y＝(w-b/a)/(b-a)
..............

先把x，y求出来，然后在赋值啊
x=(w-1)/(a-b)
y=(w-a/b)/(b-a)

应该用矩阵来做。
用线形代数中解二元一次方程组的方法么！

Edit1X+Edit2Y=Edit3
X+Y=Edit4/Edit5
button1
X=Edit6
Y=Edit7


先使得Edit2的值与Edit5的值一致
Edit5.Text=Edit2.Text;

Edit2.Text=Edit5.Text;


procedure TForm1.Button1Click(Sender: TObject);
var
a,b,w,l:double;
x,y:double;


begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
w:=StrToFloat(Edit3.Text);
l:=StrToFloat(Edit4.Text);
if(b=0) then
begin
MessageDlg('b为0，无解.', mtInformation,[mbOk], 0);
Edit2.Text:='';
end
else if (a=b) then
begin
if (b*w=l) then
begin
MessageDlg('无穷解.', mtInformation,[mbOk], 0);
end
else
MessageDlg('此方程无解.', mtInformation,[mbOk], 0);
end
else
begin
x:=(w-l)/(a-b);
y:=l/b-x;
Edit6.Text:=FloatToStr(x);
Edit7.Text:=FloatToStr;
end ;
end;
end.

昨天不是已经结了。

解方程？
有没搞错不会解吗，去问初中生吧

UP

发到你邮箱

好

OK