Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Возведение двойки в большую степень

Автор: DemonVex 11.6.2005, 13:41

Объясните пожалуйста каким оброзом можно возвести цифру 2 в большую степень (например 500) smile

Автор: Fredy 11.6.2005, 13:48

Вот тебе код на Паскале ... всё очень просто ... думаю разберёшься!

Код


var 
      d,i,j,t,c: integer;
      m: array [1..25000] of integer;
const
      x=2      
begin
 m[1]:=1;
 writeln('Введите степень ',x,'-ки');
 readln(d);
 for i:=1 to d do
 begin
   for j:=1 to 25000 do
   begin
     if t<>0 then m[j]:=m[j]*x+t
     else m[j]:=m[j]*x;
     t:=0;
     if m[j]>9 then
       begin
         t:=m[j] div 10;
         m[j]:=m[j] mod 10;
       end;
   end;
 end;
 write(x,' ^ ',d,' = ');
 for i:=d downto 1 do
 begin
   if m[i]=0 then c:=c+1
   else break;
 end;
 for i:=d-c downto 1 do write(m[i]);
end.

Автор: Rrader 11.6.2005, 13:57

Код


function Power(X: Integer): Real;
begin
  Result := Exp(X * Ln(2);
end;

Где X - показатель степени.

Автор: Satana 11.6.2005, 14:33

А еще можно для скорости использовать сдвиг по битам (помойму влево)

Автор: Poseidon 11.6.2005, 15:05

Функция Power( X,Y: Extended ): Extended;

Модуль: Math

Описание
Функция возводит X в степень Y. Значение аргумента Х должно быть больше нуля, иначе возникнет исключение EInvalidOp. Данная функция аналогична функции IntPower за исключением того, что для Power значение показателя степени Y может превышать MaxInt и иметь нецелочисленный тип.

Пример

Код

var
  Z: Real;
begin
...
  Z:= Power(2, 500); 
...
end;

Автор: DemonVex 11.6.2005, 16:01

Fredy
Респект, от души! Жаль не могу репутацию поднять smile

Rrader
Poseidon
Стандартные функции понятно, нужно было именно точное значение без экспоненты.

Автор: Poseidon 11.6.2005, 16:08

Цитата(DemonVex @ 11.6.2005, 16:01)

нужно было именно точное значение без экспоненты.

Ну...ты ведь этого сразу не написал smile

Автор: Vit 11.6.2005, 18:08

Де-то в FAQ и просто на форуме валялся мой модуль для работы с сверхбольшими числами с любой точностью... 9999 возводится в степень 9999 за пол минуты с точностью до одного...

Там аргументы строковые и результат тоже строка... Т.е. задёшь типа
Power ('99999','99999') получаешь строку чисел.

В модуле определено сложение, вычитание, деление, умножение, степень и факториал

Ежели не найдёшь этот модуль, я его выложу вновь

Автор: Poseidon 11.6.2005, 18:16

Цитата(Vit @ 11.6.2005, 18:08)

Де-то в FAQ

http://vingrad.ru/DELPHI-SRC-002166

Автор: Yanis 11.6.2005, 21:55

Цитата(DemonVex @ 11.6.2005, 16:01)

Респект, от души! Жаль не могу репутацию поднять

Я поднял.

Автор: DemonVex 12.6.2005, 09:47

Что характерно.
На Паскале всё замечательно работает, а вот с Delphi возник интересный глюк:
в констукции

Код


 for i:=1 to d do    
 begin    
   for j:=1 to 25000 do    
   begin
      .....
   end;
end;

Вложенный цикл выполняется в обратном наравлении smile

(как если бы вместо to было бы downto). Пока не заменил цикл на While работать всё упорно отказывалось. smile

Проверял на Delphi 7.1 и 2005.

Автор: Rrader 12.6.2005, 09:58

Первый begin в этом отрывке не нужен. smile