Помогите, пожалуйста, очень срочно надо, сдавать уже завтра, нужно написать задачу в...

Question

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

Comments

"Тут" степень записывается в формате LaTEX. Если Вы не знаете, что это такое, используйте "общепринятый" в информатике для записи операции возведения в степень значок ^

---

y=x-x^3/3+x^5/5+x^7/7 - вот так можно было записать формулу в условии. А в "стандартном" паскале есть только операция возведения в квадрат sqr(x). Вы не указали главного - тип x и пределы его изменения, а без этого нельзя написать корректную программу.

Answer 1

Будем считать, что х может быть любым действительным числом
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, но это редкость.

Comments

Сейчас уже не редкость, потому что большинство школ пользуется Pascal.ABC или PascalABC.Net, который взял очень много из Delphi и Object Pascal. К сожалению, предложенная Вами "извращенческая" форма (экспонента с логарифмом) обладает некоторыми недостатками: она врет со знаком для отрицательного основания при нечетной целой степени, для большого подмножества чисел будет врать с X^1 и x^0. Посему, для Вашей программы надо считать, что х может быть только положительным числом.

---

Подправил. К счастью, показатели известны, и нечетны.

---

Вы называете способ извращенческим, а ведь он был единственно возможным в старом Паскале. Если, конечно, не городить цикл с перемножением.

---

Это Вы назвали его извращенческим ("... приходится извращаться по формуле ...), я только повторил! )))

---

А, ну да!