请大家帮帮忙!

Question

请问怎样变成实现超大型数值的计算,比如2的512次方,谢谢大家了!

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
    j:real;
begin
  j:=2.0;
  for I:=1 to 70 do
  j:=j*2;
  showmessage('2的512次方为'+format('%.0f',[j]));
end;

Answer 2

uses
  Math;a := Power(2, 512);

Answer 3

呵呵，这点计算量还不至于用线程别小看了现在的计算机。哈就用 yzykjh(多米诺骨牌)的办法吧。我试了，Power(2, 3)和Power(2, 1000)根本感觉不到差别不过这精度就……
哈哈