Помогите, пожалуйста, очень срочно надо, сдавать уже завтра, нужно написать задачу в паскале по формуле y=x-x3/3+x5/5+x7/7 , первая цифра после x это степени, не знаю просто как тут степень ставить.ПОМОГИТЕ!

Помогите, пожалуйста, очень срочно надо, сдавать уже завтра, нужно написать задачу в паскале по формуле y=x-x3/3+x5/5+x7/7 , первая цифра после x это степени, не знаю просто как тут степень ставить.ПОМОГИТЕ!
Гость
Ответ(ы) на вопрос:
Гость
Будем считать, что х может быть любым действительным числом var x, y: real BEGIN write ("Vvedite x: "); readln (x); if (x < 0) then y = x + 1/3*exp(3*ln(abs(x))) - 1/5*exp(5*ln(abs(x))) - 1/7*exp(7*ln(abs(x))); if (x = 0) then y = 0; if (x > 0) then y = x - 1/3*exp(3*ln(abs(x))) + 1/5*exp(5*ln(abs(x))) + 1/7*exp(7*ln(abs(x))); writeln (y); END. Тут дело вот в чем. В классическом Паскале почему-то нет операции возведения в степень, поэтому приходится извращаться по формуле a^b = e^( ln(a^b) ) = e^( b*ln |a| ) К сожалению, формула работает не всегда. С отрицательными x в нечетной степени она будет давать неверный знак. Поэтому я и добавил проверку if (x < 0). В Delphi и в некоторых реализациях Паскаля есть функция Power или Pow, но это редкость.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы