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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Возвести число в степень в Delphi, Как? 
:(
    Опции темы
Drovosek
Дата 9.4.2006, 12:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Напишите пжлст, как возвести число в степень?

for i:=1 to k do
begin
{???}
end;

Заранее благодарен.

Это сообщение отредактировал(а) Drovosek - 9.4.2006, 12:53
PM MAIL ICQ   Вверх
MIX55
Дата 9.4.2006, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


много работы
*


Профиль
Группа: Awaiting Authorisation
Сообщений: 208
Регистрация: 23.10.2005
Где: Здесь

Репутация: 3
Всего: 4
возвести 2 в нужную степень можно так:

Код

a := 1; 
for i := 1 to 20 do 
  a := a * 2; 


можно еще вот тут посмотреть
Так же есть функцияи (Power, IntPower или LdExp) модуль Math.
Можно сдвигать двоичные порядки на N порядков.
Код

var 
 Res, Exponent: integer; 
 begin 
 Exponent := 10; 
 Res := 10 shl Exponent; 
 Form1.Caption := IntToStr(Res) + #32; 
 Res := Res shr Exponent; 
 Form1.Caption := Form1.Caption + IntToStr(Res); 


Это сообщение отредактировал(а) MIX55 - 9.4.2006, 13:19
--------------------
Hарод, а как в дельфи писать паскалевские проги....?*********************************************Жизнь слишком коротка, чтобы писать на Assembler'e
PM MAIL ICQ   Вверх
koder
Дата 9.4.2006, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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

...
k := number; //число, которое будем возводить в степень

if stepen = 0 then k := 1;

for i := 1 to abs(stepen) do 
  k := k * k;
if stepen < 0 then
 k := 1 / k;
...


Это сообщение отредактировал(а) koder - 9.4.2006, 13:24
--------------------
THE TRUTH IS OUT THERE
PM WWW ICQ   Вверх
Slaad
  Дата 9.4.2006, 13:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Хмм Господин Koder , а что если степень это дробь? smile
PM MAIL   Вверх
darkart
Дата 9.4.2006, 14:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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

var
  x,y,res:real;
....
res:=exp(y*ln(x));
....


Это сообщение отредактировал(а) darkart - 9.4.2006, 14:10
PM MAIL WWW ICQ Skype GTalk   Вверх
koder
Дата 9.4.2006, 14:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 2
Цитата(Slaad @ 9.4.2006, 13:46)
Хмм Господин Koder , а что если степень это дробь?  smile

Так пример был приведен для натуральных чисел, который смахивает на пост аффтора.
--------------------
THE TRUTH IS OUT THERE
PM WWW ICQ   Вверх
darkart
Дата 9.4.2006, 18:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 31
Цитата(koder @ 9.4.2006, 15:50 Найти цитируемый пост)
Так пример был приведен для натуральных чисел, который смахивает на пост аффтора.

Все равно не верно, цикл должен работать на один раз меньше.
PM MAIL WWW ICQ Skype GTalk   Вверх
koder
Дата 9.4.2006, 18:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 2
Цитата(darkart @ 9.4.2006, 18:22)
Цитата(koder @  9.4.2006,  15:50 Найти цитируемый пост)
Так пример был приведен для натуральных чисел, который смахивает на пост аффтора.

Все равно не верно, цикл должен работать на один раз меньше.

Код

...    
k := number; //число, которое будем возводить в степень    
if stepen = 0 then k := 1;    
for i := 1 to Pred(abs(stepen)) do    
  k := k * k;    
if stepen < 0 then    
 k := 1 / k;    
...

Спасибо, что нашел ошибку в моем коде!

--------------------
THE TRUTH IS OUT THERE
PM WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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