ColbySuns 发表于 2013-7-1 14:56:36

Delphi写的解二元一次方程

其实就是运用公式解方程 ，大神请无视

**** Hidden Message *****

lovehost 发表于 2013-7-2 07:25:25

好像 比较简单 看一看呢

sejung 发表于 2013-7-2 07:51:44

好好学习一下吧！

chengchao1989 发表于 2013-7-2 09:36:07

好人一生平安

汇编新手 发表于 2013-7-6 01:15:05

看看~~~~感谢分享~~~~

monk-half 发表于 2013-7-8 21:18:44

大作啊看一下

bafengao 发表于 2013-7-8 21:39:54

支持楼主呀

2004111 发表于 2014-2-3 23:21:20

大作啊看一下

confuss 发表于 2014-2-5 13:19:08

先顶后看{:1_1:}

by024 发表于 2014-4-6 18:43:15

先顶后看！

615740112 发表于 2014-4-29 00:33:48

cable5881 发表于 2014-8-29 09:26:21

啧啧啧，挺喜欢的，学习了，支持楼主一下！

我叫delphi 发表于 2014-9-29 16:26:06

procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
b:integer;
c:integer;
d:integer;
e:integer;
f:integer;

begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=strtoint(edit3.Text);
d:=strtoint(edit4.Text);
e:=strtoint(edit5.Text);
f:=strtoint(edit6.Text);

edit7.Text:= floattostr(((c*f)-(d*e))/((c*b)-(a*d)));
edit8.Text:= floattostr(((a*f)-(b*e))/((a*d)-(b*c)));
showmessage('天才小神童！！');
end;

tlwangxd 发表于 2014-10-22 08:20:32

学习

五毒公主 发表于 2015-11-5 09:14:10

希望有原码

wu8386940 发表于 2015-11-18 16:21:09

腾飞工手坊

dps521 发表于 2015-12-1 13:10:49

过来看看一起学习一下
:smile:smile:smile

KK不是一个人 发表于 2015-12-9 01:12:56

虽然很久远的帖子，依然顶你

wjwgsp 发表于 2016-1-3 16:37:04

看看，，，，，，，，，，

节操君 发表于 2016-1-4 11:24:33


强烈支持楼主ing……
页: [1] 2 3
查看完整版本: Delphi写的解二元一次方程