Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Возведение двойки в большую степень, Объясните, если не трудно 
:(
    Опции темы
DemonVex
  Дата 11.6.2005, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 11.6.2005

Репутация: нет
Всего: нет
Объясните пожалуйста каким оброзом можно возвести цифру 2 в большую степень (например 500) smile
PM MAIL   Вверх
Fredy
Дата 11.6.2005, 13:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 1.6.2005

Репутация: 1
Всего: 1
Вот тебе код на Паскале ... всё очень просто ... думаю разберёшься!
Код

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.
PM MAIL   Вверх
Rrader
  Дата 11.6.2005, 13:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191
 
Код

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


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


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
Satana
Дата 11.6.2005, 14:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

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


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Poseidon
Дата 11.6.2005, 15:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Функция Power( X,Y: Extended ): Extended;

Модуль: Math

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

Пример
Код
var
  Z: Real;
begin
...
  Z:= Power(2, 500); 
...
end;




--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
DemonVex
Дата 11.6.2005, 16:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 11.6.2005

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


Rrader
Poseidon
Стандартные функции понятно, нужно было именно точное значение без экспоненты.
PM MAIL   Вверх
Poseidon
Дата 11.6.2005, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Цитата(DemonVex @ 11.6.2005, 16:01)
нужно было именно точное значение без экспоненты.
Ну...ты ведь этого сразу не написал smile



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Vit
Дата 11.6.2005, 18:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

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

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

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


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


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Poseidon
Дата 11.6.2005, 18:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Цитата(Vit @ 11.6.2005, 18:08)
Де-то в FAQ
http://vingrad.ru/DELPHI-SRC-002166



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Yanis
Дата 11.6.2005, 21:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(DemonVex @ 11.6.2005, 16:01)
Респект, от души! Жаль не могу репутацию поднять

Я поднял.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
DemonVex
  Дата 12.6.2005, 09:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 11.6.2005

Репутация: нет
Всего: нет
Что характерно.
На Паскале всё замечательно работает, а вот с 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.
PM MAIL   Вверх
Rrader
Дата 12.6.2005, 09:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191
Первый begin в этом отрывке не нужен. smile


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0882 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.