VPF::посчитать число А в степени k - Форум программистов

DSGas

Дата 7.12.2010, 14:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Помогите пожалуйста сделать программу на Delphi. Задание такое: нужно посчитать число А в степени k. Причем написано условие что функцию степени использовать нельзя и что К может оказаться настолько большим что перемножение будет невозможным. Получается нужно написать программу чтоб считалось А в степени К без какого либо ограничения(то есть чтоб можно было считать числа даже больше чисел входящих в тип Extended). Числа А и К мы вводим сами.

M
Rrader

Модератор: Название темы должно отражать ее суть!

Это сообщение отредактировал(а) Rrader - 8.12.2010, 09:14

~FoX~

Дата 7.12.2010, 17:01 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

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

Репутация: 13
Всего: 68

На счет длинной математики наверное не в этот раздел, а реализация функции возведения любого числа в любую степень легко организуется с помощью логарифма...

Код


Function Power (X, Y: Real): Real;
begin 
  if X>0 then Power := exp(Y*In(X))
  else if X<0 then Power:= exp(Y*ln(abs(X));
  if Y=0 then Power := 1;
end;

Это сообщение отредактировал(а) ~FoX~ - 7.12.2010, 17:03

--------------------

…множественность никогда не следует полагать без необходимости…

DSGas

Дата 7.12.2010, 17:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Цитата(~FoX~ @ 7.12.2010, 17:01)

Код


Function Power (X, Y: Real): Real;
begin 
  if X>0 then Power := exp(Y*In(X))
  else if X<0 then Power:= exp(Y*ln(abs(X));
  if Y=0 then Power := 1;
end;

Но ведь тип real ограничен! А нужно именно написать программу без ограничений! Я пробовал использовать такой способ возведения в степень используя тип Extended(самый большой тип) но препод сказал что все равно программа написана не правильно((

cat512

Дата 7.12.2010, 17:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 7
Всего: 15

Надо разложить множитель на числа кратные степени двойки (2 в степени n)и использовать для умножения операции shl и сложение. Результат, сохранять например в массив четырёх байтных елементов (можно в файл), При возникновении переполнения, выделять новый элемент массива.
Таким образом,, ты устранишь ограничение на разрядность перемножаемых операндов

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »