求平方数！！

那有其他实现方法吗
我用 s:= x*x;也不行

晕用int64或者real数据类型就可以了撒
integer范围-2147483648--2147483647

i,lw:Int64; i:=StrToInt64('123456789012345');
lw := sqr(i);结果： 559810353

i,lw:longword; i:=StrToInt64('123456789012345');
lw := sqr(i);结果： 559810353

注意数据类型
int64也不是万能的，最大只到2的63次方而已
2^63 =9223372036854775808
123456789012345^2=15241578753238669120562399025
远远超出了
我不知道你求这么大数的平方来干嘛

delphi里进行大数的运算，一般都是定义一个 Array [0..20000-1] of byte 类型的变量然后按位运算

用POWER啊，
procedure TForm1.Button1Click(Sender: TObject);
var
    temp1,temp2:Extended;
begin
    temp1:=StrToFloat(Edit1.Text);
    temp2:=Power(temp1,2);
    edit1.Text:=FloatToStr(temp2);
end;
123456789012345 结果是1.52415787532387E28
不知道对不对

//定义部分
const
  MaxBit = 100;
type
  IntArray = array [0..MaxBit] of integer;
//函数部分
function PutInttoArray(Aint: integer):IntArray;
var
    Quotient: integer;
    Remainder: integer;
    InsertPos: integer;
    Rtv: IntArray;
begin
    InsertPos:= MaxBit;
    FillChar(Rtv,Sizeof(Rtv),0);
    while true do
    begin
      Remainder:= Aint div 10;
      Quotient:= Aint mod 10;
      Rtv[InsertPos] := Quotient;
      Dec(InsertPos);
      if (InsertPos < 0) then
      begin
      //越界，分配的数组长度不够
        Rtv[0]:= -1;
        break;
      end;
      Aint:= Remainder;
      if (Aint<=0) then break;
    end;
    Result:= Rtv;
end;function IntArraytoStr(Aintar: IntArray):string;
var
    Rtv: string;
    HiBit: integer;
    i: integer;
begin
    HiBit:=High(Aintar)+1;
    for i:=1 to High(Aintar) do
    begin
      if (Aintar[i] = 0) then continue;
      HiBit:= i;
      break;
    end;
    Rtv:= '';
    for i:=HiBit to High(Aintar) do
    begin
      Rtv:= Rtv + inttostr(Aintar[i]);
    end;
    Result:= Rtv;
end;function IntArrayMulSingle(Aintar: IntArray; ASingle: integer):IntArray;
var
    ARtv: IntArray;
    ACarry: integer;
    AProduct: integer;
    AQuoti: integer;
    ArHigh: integer;
    HiBit: integer;
    i: integer;
begin
    ArHigh:= High(Aintar);
    HiBit:= ArHigh+1;
    for i:=1 to ArHigh do
    begin
      if (Aintar[i] = 0) then continue;
      HiBit:= i;
      break;
    end;
    //HiBit为最先出现的不为零的数字所在数组中的位置
    ACarry:= 0;
    FillChar(ARtv,sizeof(ARtv),0);
    for i:= ArHigh downto HiBit do
    begin
      AProduct:= Aintar[i] * ASingle;
      AProduct:= AProduct + ACarry;
      AQuoti:= AProduct mod 10;
      ACarry:= AProduct div 10;
      ARtv[i]:= AQuoti;
    end;
    ARtv[HiBit-1]:=ACarry;
    if ((HiBit=1) and (ACarry<>0)) then
    begin
      ARtv[0]:= -1;
    end;
    Result:= ARtv;
end;function IntArrayAdds(Aintar1,Aintar2: IntArray):IntArray;
var
    ARtv: IntArray;
    ACarry: integer;
    AProduct: integer;
    AQuoti: integer;
    ArHigh1,ArHigh2: integer;
    HiBit,HiBit1,HiBit2: integer;
    i: integer;
begin
    //求出数组1的最高有效位
    ArHigh1:= High(Aintar1);
    HiBit1:= ArHigh1+1;
    for i:=1 to ArHigh1 do
    begin
      if (Aintar1[i] = 0) then continue;
      HiBit1:= i;
      break;
    end;
    //求出数组2的最高有效位
    ArHigh2:= High(Aintar2);
    HiBit2:= ArHigh2+1;
    for i:=1 to ArHigh2 do
    begin
      if (Aintar2[i] = 0) then continue;
      HiBit2:= i;
      break;
    end;
    //获得数组1、2的最高有效位
    if (HiBit1 <= HiBit2) then HiBit:= HiBit1
    else HiBit:= HiBit2;
    //从数组最后段起累加和，类似于正常的加法运算
    ACarry:= 0;
    FillChar(ARtv,sizeof(ARtv),0);
    for i:= ArHigh1 downto HiBit do
    begin
      AProduct:= AIntar1[i]+AIntar2[i];
      AProduct:= AProduct + ACarry;
      AQuoti:= AProduct mod 10;
      ACarry:= AProduct div 10;
      ARtv[i]:= AQuoti;
    end;
    ARtv[HiBit-1]:=ACarry;
    if ((HiBit=1) and (ACarry<>0)) then
    begin
      ARtv[0]:= -1;
    end;
    Result:= ARtv;
end;function IntArrayLeftShift(Aintar: IntArray; LSDistance: Byte):IntArray;
var
    ARtv: IntArray;
    ArHigh: integer;
    HiBit: integer;
    i: integer;
begin
    ArHigh:= High(Aintar);
    HiBit:= ArHigh+1;
    for i:=1 to ArHigh do
    begin
      if (Aintar[i] = 0) then continue;
      HiBit:= i;
      break;
    end;
    if (LSDistance > HiBit-1) then
    begin
    //越界，分配的数组长度不够
      FillChar(ARtv,sizeof(ARtv),0);
      ARtv[0]:=-1;
    end
    else
    begin
      FillChar(ARtv,sizeof(ARtv),0);
      for i:=HiBit to ArHigh do
      begin
        ARtv[i-LSDistance]:=Aintar[i];
      end;
    end;
    Result:= ARtv;
end;function BigSqrt(BaseInt: IntArray):IntArray;
var
    ARtv: IntArray;
    ArHigh: integer;
    HiBit: integer;
    Multi: integer;
    i: integer;
begin
    ArHigh:= High(BaseInt);
    HiBit:= ArHigh+1;
    for i:=1 to ArHigh do
    begin
      if (BaseInt[i] = 0) then continue;
      HiBit:= i;
      break;
    end;
    //HiBit为最先出现的不为零的数字所在数组中的位置
    FillChar(ARtv,sizeof(ARtv),0);
    for i:=ArHigh downto HiBit do
    begin
      Multi:= BaseInt[i];
      ARtv:= IntArrayAdds(ARtv,IntArrayLeftShift(IntArrayMulSingle(BaseInt,Multi),(ArHigh-i)));
    end;
    Result:= ARtv;
end;
//**********************************//
呵呵，下午写的。
只要调用BigSqrt(BaseInt: IntArray)；同时将作为底的数保存到IntArray的数组中就可以了，存储格式是从数组的后部存起，不足位数的补零。

例如：123456789的平方没问题。
在按钮事件中添加
var
    Aint: integer;
    Aintar: IntArray;
begin
    Aint:= strtointdef(Edit1.Text,$7FFFFFFF);
    Aintar:= PutInttoArray(Aint);
    //可以不通过这种方式，直接将Aintar数组中添入相应的数字
    if (Aintar[0]= -1) then
    begin
      Memo1.Lines.Add('Error!');
      Exit;
    end;
    Memo1.Lines.Add(IntArraytoStr(BigSqrt(Aintar)));

非常感谢 -----“abc3000(想想就烦)”    用大数乘法做吧

已经解决
function InfiniteMult(mNumberA, mNumberB: string): string;
{ 无限位数乘法 }  function fMult(mNumber: string; mByte: Byte): string;
  { 无限位数乘法子函数 }
  var
    I: Integer;
    T: Integer;
  begin
    Result := '';
    T := 0;
    for I := Length(mNumber) downto 1 do
    begin //从后向前扫描
      T := StrToIntDef(mNumber[I], 0) * mByte + T; //累加当前数位
      Result := IntToStr(T mod 10) + Result;       //计算当前数位上的数字
      T := T div 10;        //计算进位数
    end;    if T <> 0 then
      Result := IntToStr(T mod 10) + Result; //处理进位数
  end; { fMult }var
  I        : Integer;
  vDecimal : Integer; //小数位数
  T        : string;
begin  Result := '';  ///////Begin 处理小数
  if Pos('.', mNumberA) <= 0 then
    mNumberA := mNumberA + '.'; //没有有小数点补小数点
  if Pos('.', mNumberB) <= 0 then
    mNumberB := mNumberB + '.'; //没有有小数点补小数点  vDecimal := Length(StrRight(mNumberA, '.')) + Length(StrRight(mNumberB, '.')); //计算小数位数
  mNumberA := StrLeft(mNumberA, '.') + StrRight(mNumberA, '.'); //删除小数点
  mNumberB := StrLeft(mNumberB, '.') + StrRight(mNumberB, '.'); //删除小数点
  ///////End 处理小数  T := '';
  for I := Length(mNumberB) downto 1 do
  begin
    Result := InfiniteAdd(Result, fMult(mNumberA, StrToIntDef(mNumberB[I], 0)) + T);
    T := T + '0';
  end;  Insert('.', Result, Length(Result) - vDecimal + 1);
  while Pos('0', Result) = 1 do
    Delete(Result, 1, 1); //排除整数前无效的0  while Copy(Result, Length(Result), 1) = '0' do
    Delete(Result, Length(Result), 1); //排除小数后无效的0  if Copy(Result, Length(Result), 1) = '.' then
    Delete(Result, Length(Result), 1); //排除无效小数点  if Copy(Result, 1, 1) = '.' then
    Result := '0' + Result; //处理无0小数情况  if (Result = '') then
    Result := '0'; //处理空字符情况end; { InfiniteMult }

To: Blakhawk(黑鹰)
呵呵，是我没有描述清楚。
程序应该没有什么错误。
之所以大数不行，是因为我在Aint:= strtointdef(Edit1.Text,$7FFFFFFF);这句话中限定了最大的值就是$7FFFFFFF。
把显示部分改为下面的程序段就没什么问题了：）
//***********************//
var
    //Aint: integer;
    Aintar: IntArray;
    BitLen: integer;
    i: integer;
begin
    //Aint:= strtointdef(Edit1.Text,$7FFFFFFF);
    //Aintar:= PutInttoArray(Aint);
    //可以不通过这种方式，直接将Aintar数组中添入相应的数字
//如下：
    BitLen:= Length(Edit1.Text);
    FillChar(Aintar,sizeof(Aintar),0);
    if BitLen > MaxBit then Aintar[0]:= -1
    else
    begin
      for i:= 1 to BitLen do
      begin
        Aintar[MaxBit-BitLen+i]:= strtoint(Edit1.Text[i]);
      end;
    end;    if (Aintar[0]= -1) then
    begin
      Memo1.Lines.Add('Error!');
      Exit;
    end;
    Memo1.Lines.Add(IntArraytoStr(BigSqrt(Aintar)));
end;
//*************************//
9876543210987654321 通过程序算得的结果是 97546105798506325256774881877789971041
//*************************//

TO meil()
你还有很多函数没有传代码上来啊。

调试易

求平方数！！

解决方案 »