Возведение числа в БОЛЬШУЮ степень, Степень числа забивается в массив Опции

[Кит]

Помогите пожалуйста с програмкой реализации возведения числа в большую степень (30..200). :low:
Реализация должна вроде с помощью записи чисел в массив
Но до меня чо то не доходит как это сделать

[SWEETY]

А мне вот надо посчитать 2^500 с точностью до последней цифры,а я не могу.Почитала 'Длинную арифметику' и всё равно не могу .ПОМОГИТЕ,ПОЖАЛУЙСТА СДЕЛАТЬ ЭТО...

[volvo]

Почитала 'Длинную арифметику' и всё равно не могу

Странно... У меня получилось:

uses crt;
const
  _maxdig=1000;
  _osn=10000;

type
  Tlong=array[0.._maxdig]of integer;
  Plong=^Tlong;

procedure WriteLong(var f:text;a:Plong);
var
  ls, s: string;
  i: integer;
begin
  str(_osn div 10,ls);
  write(f,a^[a^[0]]);
  for i:=a^[0]-1 downto 1 do begin
    str(a^[i],s);
    while length(s)<length(ls) do s:='0'+s;
    write(f,s);
  end;
  writeln(f);
end;

procedure MulLongShort(a:Plong;const k:longint;c:Plong);
var i: integer;
begin
  fillchar(c^,sizeof(c^),0);
  if k=0 then inc(c^[0]) else begin
    for i:=1 to a^[0] do begin
      c^[i+1]:=(longint(a^[i])*k+c^[i]) div _osn;
      c^[i]:=(longint(a^[i])*k+c^[i]) mod _osn;
    end;
    if c^[a^[0]+1]>0 then c^[0]:=a^[0]+1 else c^[0]:=a^[0];
  end;
end;

var
  long_n1, long_n2: PLong;
  i: integer;
  console: text;

begin
  long_n1 := new(plong);
  long_n2 := new(plong);

  long_n1^[0] := 1; long_n1^[1] := 1; { <-- long_n1 := 1 }
  for i := 1 to 500 do begin
    mullongshort(long_n1, 2, long_n2);
    long_n1^ := long_n2^;
  end;

  assigncrt(console); rewrite(console);
  writelong(console, long_n1);
  close(console);

end.

[Гость]

Странно... У меня получилось:

uses crt;
const
  _maxdig=1000;
  _osn=10000;

type
  Tlong=array[0.._maxdig]of integer;
  Plong=^Tlong;

procedure WriteLong(var f:text;a:Plong);
var
  ls, s: string;
  i: integer;
begin
  str(_osn div 10,ls);
  write(f,a^[a^[0]]);
  for i:=a^[0]-1 downto 1 do begin
    str(a^[i],s);
    while length(s)<length(ls) do s:='0'+s;
    write(f,s);
  end;
  writeln(f);
end;

procedure MulLongShort(a:Plong;const k:longint;c:Plong);
var i: integer;
begin
  fillchar(c^,sizeof(c^),0);
  if k=0 then inc(c^[0]) else begin
    for i:=1 to a^[0] do begin
      c^[i+1]:=(longint(a^[i])*k+c^[i]) div _osn;
      c^[i]:=(longint(a^[i])*k+c^[i]) mod _osn;
    end;
    if c^[a^[0]+1]>0 then c^[0]:=a^[0]+1 else c^[0]:=a^[0];
  end;
end;

var
  long_n1, long_n2: PLong;
  i: integer;
  console: text;

begin
  long_n1 := new(plong);
  long_n2 := new(plong);

  long_n1^[0] := 1; long_n1^[1] := 1; { <-- long_n1 := 1 }
  for i := 1 to 500 do begin
    mullongshort(long_n1, 2, long_n2);
    long_n1^ := long_n2^;
  end;

  assigncrt(console); rewrite(console);
  writelong(console, long_n1);
  close(console);

end.

Эх- а как 99 в степень 99 возвести?!?!?