Delphi写的解二元一次方程

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

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

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

游客，如果您要查看本帖隐藏内容请回复

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……

账号		自动登录	找回密码
密码			立即注册

615740112 615740112 当前离线 UID 276348 日志相册贡献荣誉积分 134 狗仔卡头像被屏蔽	发表于 2014-4-29 00:33:48 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
	想知道小甲鱼最近在做啥？请访问 -> ilovefishc.com
	回复支持反对使用道具举报显身卡

[技术交流] Delphi写的解二元一次方程

马上注册，结交更多好友，享用更多功能^_^

评分