真的没钱了，好心人帮帮忙吧！跪求大家了!(0分)

我写了这样一段程序
procedure TForm1.Button1Click(Sender: TObject);
var
sqrnum,sqrtnum,exac:real;//被开方的数，开方结果，精确度
begin
sqrnum:=StrTofloat(edit1.Text);
exac:=0.001;
while(abs(sqr(sqrtnum)-sqrnum)>=exac) do
begin
sqrtnum:=(sqrtnum+sqrnum/sqrtnum)/2;
end;
edit2.Text:=floattostr(sqrtnum);
end;
但当我在edit1填的数太大时，就不能计算了，而且在EDIT2显示的
数字的小数点后面老是有很长一串数字，请问怎么解决。希望能开到100^100谢谢

怎么没人会啊？应该很容易的啊大虾们！

小数点后面老是有很长一串数字
可以用format搞定这个。
具体察看一次帮助吧。第一个问题，可能是控件问题，好像是有限制的。
edit1填的数太大时
你的这个数大概多大？

我试过100000就不行了