HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

взведение в степень, как?
  #1  
Старый 15.12.2007, 16:07
rubik-nerubik
Участник форума
Регистрация: 04.05.2007
Сообщений: 267
С нами: 10011945

Репутация: 33
По умолчанию взведение в степень, как?

люди, как взвести допустим(паскаль)
експоненту в x ???
и експоненту в минус x

e^x

e^-x

Последний раз редактировалось rubik-nerubik; 15.12.2007 в 16:30..
 
Ответить с цитированием

  #2  
Старый 15.12.2007, 16:18
demonoid
Banned
Регистрация: 12.01.2007
Сообщений: 113
С нами: 10172441

Репутация: 495
По умолчанию

Код:
perl -e "print exp 2"
perl -e "print exp -2"
+
Код:
perl -e "print '2.718281828459045'**2"
perl -e "print '2.718281828459045'**-2"

Последний раз редактировалось demonoid; 15.12.2007 в 16:22..
 
Ответить с цитированием

  #3  
Старый 15.12.2007, 16:22
rubik-nerubik
Участник форума
Регистрация: 04.05.2007
Сообщений: 267
С нами: 10011945

Репутация: 33
По умолчанию

на паскале -) забыл написать
например в квадрат
sqrt(e)
а как в x
 
Ответить с цитированием

  #4  
Старый 15.12.2007, 16:28
freddi
Постоянный
Регистрация: 05.07.2006
Сообщений: 458
С нами: 10447337

Репутация: 807
По умолчанию

e^x будет exp(x)
x^y будет exp(y*ln(x))
 
Ответить с цитированием

  #5  
Старый 15.12.2007, 16:32
rubik-nerubik
Участник форума
Регистрация: 04.05.2007
Сообщений: 267
С нами: 10011945

Репутация: 33
По умолчанию

всё, тема раскрыта всем спасибо.
 
Ответить с цитированием

  #6  
Старый 15.12.2007, 16:49
halkfild
Постоянный
Регистрация: 11.11.2005
Сообщений: 391
С нами: 10787366

Репутация: 2277
По умолчанию

очень старая лаба))))) возведение в степень без использования спец функций
метод ускореного умножения



Цитата:
program grade;
var
y, d : integer;
S, x, z : real;

BEGIN
writeln('Введiть основу x:');
readln(x);
writeln('Введiть показник y:');
readln(y);

if (x=0) then
begin
if (y>0) then
begin
S:=0;
writeln('Результат: ',S:4:0);
end
else writeln('Значення не знайденi');
end
else
begin
d:=abs(y);
z:=x;
S:=1;
repeat
begin
if ((d mod 2)=1) then S:=S*z;
z:=z*z;
d:=d div 2;
end
until (d<=0);

if (y<0) then S:=1/S;

writeln('Результат: ',S:4:4);
end;
END.
p.s. просто пример))
 
Ответить с цитированием
Ответ



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Социальная инженерия. Профессиональное программирование. Последовательный взлом dinar_007 Болталка 15 23.12.2008 12:30
Как стать хакером! foreva Болталка 19 12.12.2007 00:12
Установка Windoze глазами линуксоида (100% факты) nerezus Болталка 47 16.10.2005 15:06



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.