Как указать степень числа.
Квадрат вычислятся понятно как: S:=sqr(s);
А допустем есть число 2 и его нужно возвести в 12 степень,как такое реализовать.
Я полный ЛОЛ X)-
Конечно глупый вопрос :D ....но всё таки как...просто я забыл(или не знал)как это сделать.
Квадрат вычислятся понятно как: S:=sqr(s);
А допустем есть число 2 и его нужно возвести в 12 степень,как такое реализовать.
Я полный ЛОЛ X)-
2*2*2*2*2*2*2*2*2*2*2*2: попробуй так
2*2*2*2*2*2*2*2*2*2*2*2: попробуй так
Xa-xa ржунимагу...очень смешно :x .А если серьёзно то всё таки как это сделать(не обязательно степень равна 12 она должна быть любой)
chislo:=3; stepen:=3; summa:=1;
For i:=1 To stepen Do summa:=summa*chislo;
в итоге summa=27
Или так: exp(ln(2)*12)
На Delphi так попробовал, вообще не целое число вывело
На Delphi так попробовал, вообще не целое число вывело
A ты тип какой указывал real или integer?
На Delphi так попробовал, вообще не целое число вывело
А округлить?
A ты тип какой указывал real или integer?
я тип не указывал, я написал:
Edit1.Text:=FloatToStr(exp(ln(2)*12));
Можно сказать и Real
А округлить?
Sorry, ошибочка вышла с моей стороны, с ROUND'ом все OK получается
Конечно глупый вопрос :D ....но всё таки как...просто я забыл(или не знал)как это сделать.
Квадрат вычислятся понятно как: S:=sqr(s);
А допустем есть число 2 и его нужно возвести в 12 степень,как такое реализовать.
Я полный ЛОЛ X)-
Логарифмы, цыклы ... это все в прошлом,
используй это:
------
Пример_1
function power(a:extended;n:longint):extended;
begin
if n=0 the power:=1 else
if odd(n) then power:=power(a*a,n div2)*a else
power:=power(a*a,n div 2)
Непонятно -- стебется народ иль впрямь никто не знает )))
Предлагаю провести конкурс на самый оригинальный ответ, но навсякий случай дам правильный вариант :
2^12 (;) -- BASIC)
2 shl 12 == Pascal
2 << 12 -- C**
etc.
На счет Basic правильно, но в pascal и С нужно сдвигать на 11 позиций.
Если нужно вознести не 2 в степень, а напр. 3 в 5-й, тогда
power(3.0, 5.0); // pascal
Логарифмы, цыклы ... это все в прошлом,
используй это:
------
Пример_1
function power(a:extended;n:longint):extended;
begin
if n=0 the power:=1 else
if odd(n) then power:=power(a*a,n div2)*a else
power:=power(a*a,n div 2)
кстати ничего такой вариант -- я бы ему 1-е место дал )))
кстати ничего такой вариант -- я бы ему 1-е место дал )))
Не люблю рекурсию, но красиво.
А вот еще одно НО. Логарифм всегда рулит. Кнечно два раза длинный ряд щитается, но зато можно в дробную степень подносить. А так токо в целую.