Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.05.2008, 18:32   #1
Sova123456
 
Регистрация: 10.05.2008
Сообщений: 6
По умолчанию как ВОЗВЕСТИ В СТЕПЕНЬ?

Как возвести в степень вот такое выражение на Паскале x1^y, при =-10.1 до 10.1, y =-1.5 до 1.5?
Sova123456 вне форума Ответить с цитированием
Старый 14.05.2008, 19:19   #2
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Вообще для этого приводится функция z=exp(y*ln(x));
Однако для некоторых случаев она не работает, например когда х1=у=0;х1=0;x1<0;
Все эти случаи у вас присутствуют, поэтому определение степени в данном случае придется вычислять примерно так:

Код:
if (x1=0)and(y<=0) then writeln('Функция не определена')
else if (x1=0)and(y>0)then rez:=0
else if (x1<>0)and (y=0)then rez:=1
else if x1<0 then rez:=(-1)*Exp(y*Ln(abs(x1)))
else if x1>0 then rez:=Exp(y*Ln(x1));
Конечно все это делается в двойном цикле с заданным шагом hx1=?; hy=?; Но это вы видимо знаете, раз не пишете.
P.S. Если шаг табуляции будет таким, что х1 и у не будут нолями, то можно оставить только
Код:
if x1<0 then rez:=(-1)*Exp(y*Ln(abs(x1)))
else if x1>0 then rez:=Exp(y*Ln(x1));

Последний раз редактировалось puporev; 14.05.2008 в 19:50.
puporev вне форума Ответить с цитированием
Старый 14.05.2008, 20:19   #3
Sova123456
 
Регистрация: 10.05.2008
Сообщений: 6
По умолчанию

спасибо, пока ждала ответа, своим умом дошла))))
Все равно спасибо)
Sova123456 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как возвести число в степень? Wintrymoon Паскаль, Turbo Pascal, PascalABC.NET 36 09.05.2011 15:11
Степень Droid Общие вопросы Delphi 9 26.04.2008 01:51
Найти степень 5^613+N Karl_Karlovi4 Помощь студентам 2 18.12.2007 16:02
Возведение в степень Stanislav Общие вопросы Delphi 10 05.12.2007 23:34
Возведение в степень... Sota Общие вопросы C/C++ 7 18.07.2007 17:05