Как возвести X^Y в степень в Delphi

[ViktorR]

В те, не так далёкие времена, жило-было такое хорошее устройство, как арифмометр "Феликс". И вот на нём приходилось считать орбиты до 25-го знака. Там и учили смотреть на цифирь под определённым углом ...

Как-то так, ...

[min@y™]

Собственно говоря а почему нельзя? Точнее, если с головой дружить, то:
20^19 = 2^19*10^19.
Что мешает получить результат для 2^19 и пририсовать 19 нулей справа?

согласен.

12.png

[Алексей_2012]

психануууууууул.

проверял только на этом примере (20^19), конечно не длинная арифметика, но работает. (говнокод).

спасибо не обязательно

[Doni11]

Сообщение от Алексей_2012

психануууууууул.

проверял только на этом примере (20^19), конечно не длинная арифметика, но работает. (говнокод).

спасибо не обязательно

Слушай, я возвожу в степень 28^19 и в программе получается (313 330 445 002 941 000 000 000 000 0), а на калькуляторе (3133304450029408431470804992)
как мне сделать чтобы в этоц проге также высчитавалось ?

[Аватар]

Тока длинная арифметика - моделирование умножения в столбик

[Doni11]

Сообщение от Аватар

Тока длинная арифметика - моделирование умножения в столбик

Так мне нельзя возвести в эти степени ?

[min@y™]

Так мне нельзя возвести в эти степени ?

тебе - нельзя.

[newerow1989]

я возвожу в степень 28^19 и в программе получается (313 330 445 002 941 000 000 000 000 0), а на калькуляторе (3133304450029408431470804992)

Потому что 28 не делится на 10 нацело!

Если готовое решение (для длинных числел), то:

function Slozhenie(chislo1, chislo2: string): string;
var i,dlina:integer;
    p:array of byte;
begin
   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(chislo1, chislo2: string): string;
var i1,i2:integer;
    s:string;
    p:array of byte;
begin
   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(Result,s);
   end;
end;

function WStepen(chislo, stepen: integer):string;
var i:integer;
begin
   Result:=IntToStr(chislo);
   For i:=2 to stepen do
      Result:=Umnozhenie(Result,IntToStr(chislo));
end;

function Razryad(n: string): string;
var i:integer;
begin
   i:=Length(n)-2;
   While i>1 do
   begin
      Insert(' ',n,i);
      i:=i-3;
   end;
   Result:=n;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Caption:=Razryad(WStepen(28,19));
end;