十万火急！在线等

[onebody]

x的5次-5*x-1=0,求x?

用DELPHI 写成一个程序

[suhanzhe]

好好考虑一下算法，我也在想。。。

[wzds2000]

var
sum,x:Extended;
begin
x:=StrToInt(Edit1.Text);
sum:=power(x,5)-5*x-1;
if sum=0 then
ShowMessage('ok')
else
ShowMessage('no');
end;

[wzds2000]

刚才打的比较急，将
x:=StrToInt(Edit1.Text);
改为
x:=StrToFloat(Edit1.Text);
比较好！

[jamsir]

哈，是求x不是求y

[wzds2000]

题目没看清，不好意思，再想想。。。