如何用Delphi2010编程求解一元N次方程式

对于数学上的一些一元N次方程式，对于大多人来说可能不会求解或求解过程比较麻烦，大家看看这道一元5次方程式：

的求解，可以讲：极大多数人是求解不出来的，现在只有数学大神韦东奕巧妙利用借代式子才可求解出来。但，利用Delphi来编程求解，那简直是手到擒来的事，并且编写此类方程式的编程并不难（编程思路是比较直观的），学过Vb编程的人也可用Vb或利用Delphi来编程，Delphi跟Vb是师出同门的，两者编程方法基本上是一致的。（现在初中有授Vb编程了，两者都是简单易学的编程语言--是搭积木式的编程，但，Delphi比Vb运算速度快得多，它是接近C语言的运算速度，并且强大。）
先让大家看看编程运算的结果：

这一元5次方程式的编程如下：

1.先进行界面设计

2.代码编写
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, pngimage, ExtCtrls,Math;
type
TForm1 = class(TForm)
lbl1: TLabel;
img1: TImage;
btn1: TBitBtn;
btn3: TBitBtn;
edt1: TEdit;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
img2: TImage;
lbl2: TLabel;
procedure btn3Click(Sender: TObject);
procedure edt1KeyPress(Sender: TObject; var Key: Char);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
R,W,temp1,Tm: Double;
SR: String;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var I,J,X,ni,Px,Tp,Td:Integer;
begin
ni:=2;
Tm:= StrToFloat(Trim(edt1.text));
TM:=10000*Tm; //将此数值放大10000倍来进行比较 ，以提高计算数值的精准度
Td:=integer(Trunc(Tm));
begin
if Td>0 then
begin
Px:=1;
end
else //若输入的数为负时，将Ｘ变为负数来处理
begin
Px:=-1; //设置负数来去碰值
end;
for I := 0 to 1000 do
begin
for J:=1 to 10000 do
begin
R:=J/10000; //每次用万分之一去撞值 ，以提高计算数值的精准度
W:=I+R;
W:=W*Px;
temp1:=W*W*W*W*W+W*W*W*10+W*20;
temp1:=10000*temp1+0.55 ;//将此数值放大10000倍来进行比较 ，以提高计算数值的精准度
X:=integer(Trunc(temp1)); //先去掉小数部分，再强制转换
Tp:=abs(X-Td);
if (20>=Tp)or(Tp=0) then //此10为误差值
begin
SR:= FloatToStr(W); // 浮点数转换为字符型
lbl3.Visible := True ;
lbl4.Caption := SR ;
lbl5.Visible := True ;
Exit;
end;
temp1:=0;
X:=0; // X不等于Nm时，重新赋值为0，以用来重新计算
end;
end;
end;
ni:=2;
lbl3.Visible := True ;
lbl4.Caption :='此方程无解！';
lbl5.Visible := True ;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
if (key<>#46) and ((key < #48) or (key > #57)) and (key <> #8) and (Key <> '-') then
//如果输入不是数字或小数点（#46代表小数点）或负号
begin
key:=#0; //取消输入的内容（#0代表空值）
showmessage('输入错误!请输入数字!'); //发出提示信息end;
end;
end;
end.
附图示核心代码：

是不是很简单的呢？此编程的核心是每次用万分之一去撞值 ！大家以后可照猫画虎地来进行编程求解一元N次方程式了，一些高难度的一元N次方程式的求解再也不是某些数学大神的专利哦[吃瓜群众]。
(完）