возведение в степень числа в массиве.

[Sonny01]

Добрый день всем, помогите пожалуйста разобраться с проблемой.
необходимо возвести двойку в степень (в конечном итоге 2 в 512, например)
на выходе должен получиться массив который и будет длинным числом, в каждой ячейке хранится одна цифра от 0..9
возвожу умножением на 2 в столбик... но путаюсь с переносом разрядов...
начинаю умножение с массива, размер массива определяю по формуле: (log10 (2) * n) + 1 где n - степень в которую необходимо возвести, т.е. заранее определяю кол-во знаков будет в длинном числе и заполняю m[0] = 1; , все остальные нули (по умолчанию) и начинаю умножение в столбик.
спасибо.

[newerow1989]

Я даю готовые функции сложения и умножения чисел:

function slozhenie_chisel(chislo1, chislo2: string): string;
var i,dlina:integer;
    p:array of byte;
begin
{***********************************}
{                                   }
{ Сложение чисел: chislo1 + chislo2 }
{                                   }
{***********************************}
   dlina:=Length(chislo1);
   If Length(chislo2)>dlina then
      dlina:=Length(chislo2)+1 else
      dlina:=dlina+1;
   While Length(chislo1)<dlina do
      Insert('0',chislo1,1);
   While Length(chislo2)<dlina do
      Insert('0',chislo2,1);
   SetLength(p,dlina);
   Result:='';
   For i:=0 to dlina-1 do
      p[i]:=0;
   For i:=dlina downto 2 do
   begin
      p[i-1]:=p[i-1]+StrToInt(chislo1[i])+StrToInt(chislo2[i]);
      If p[i-1]>=10 then
      begin
         p[i-2]:=p[i-1] div 10;
         p[i-1]:=p[i-1] mod 10;
      end;
   end;
   For i:=0 to dlina-1 do
      Result:=Result+IntToStr(p[i]);
   While (Result<>'') and (Result[1]='0') do
      Delete(Result,1,1);
end;

function umnozhenie_chisel(chislo1, chislo2: string): string;
var i1,i2:integer;
    s:string;
    p:array of byte;
begin
{************************************}
{                                    }
{ Умножение чисел: chislo1 * chislo2 }
{                                    }
{************************************}
   SetLength(p,Length(chislo1)+Length(chislo2));
   Result:='';
   For i1:=Length(chislo1) downto 1 do
   begin
      s:='';
      For i2:=0 to Length(chislo1)+Length(chislo2)-1 do
         p[i2]:=0;
      For i2:=Length(chislo2) downto 1 do
      begin
         p[i1+i2-1]:=p[i1+i2-1]+StrToInt(chislo1[i1])*StrToInt(chislo2[i2]);
         If p[i1+i2-1]>=10 then
         begin
            p[i1+i2-2]:=p[i1+i2-1] div 10;
            p[i1+i2-1]:=p[i1+i2-1] mod 10;
         end;
      end;
      For i2:=0 to Length(chislo1)+Length(chislo2)-1 do
         s:=s+IntToStr(p[i2]);
      While (s<>'') and (s[1]='0') do
         Delete(s,1,1);
      Result:=slozhenie_chisel(Result,s);
   end;
end;

[newerow1989]

Вот специально для тебя:

function step2(n: integer): string;
var i,j:integer;
    p:array of byte;
begin
   SetLength(p,n);//размерность немного увеличена (осталось сосчитать точно!)
   Result:='';
   For i:=0 to n-2 do
      p[i]:=0;
   p[n-1]:=1;
   For i:=1 to n do
   begin
      For j:=0 to n-1 do
         p[j]:=p[j]*2;
      For j:=n-1 downto 1 do
         If p[j]>=10 then
         begin
            p[j-1]:=p[j-1]+p[j] div 10;
            p[j]:=p[j] mod 10;
         end;
   end;
   For i:=0 to n-1 do
      Result:=Result+IntToStr(p[i]);
   While (Result<>'') and (Result[1]='0') do
      Delete(Result,1,1);
end;

[dkalex]

тут помогут http://studhelp.net/