» как в паскале писать корень квадратный в 3 степени

Подскажите, пожалуйста, как в Паскале вводить корень в третьей степени.
Т.е. нужно решить выражение :
W=√(x^2+a) - a2sin2(x+b)/2 и
Y = cos(в кубе)x^3/3 - x/∛(a^2+b^2 )
При с=1.6, b=14.7, x=1.38

Я написал:

Var a, b, c, x, w, y:real
begin
c:=1.6;
b:=14.7;
c:=1.38;
writeln(‘Введите значение для «а»’);
readln (a);
w:=(sqrt(sqr(x)+a)-(sqr(a)*sqr(sin)*(x+b)/2);
y:=(sqr(cos)*cos*(sqr(x)*x/3))-(x/{и вот тут у меня уже начинаются проблемы. Как писать корень в 3 степени?}
P.S.
и если кто сможет, подскажите, почему паскаль в первом уравнение выдает ошибку предполагается ‘(‘ в значении синуса.

^ - означает степень

langoler89
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Turbo Pascal 7.0

langoler89
Вот формула для любой степени корня
exp(ln(ваше число)*(1/степень корня))
В твоем случае будет

exp(ln(ваше число)*(1/3))

langoler89

Цитата:

и если кто сможет, подскажите, почему паскаль в первом уравнение выдает ошибку предполагается ‘(‘ в значении синуса

Скобочку ) забыли поставить, открывающих получилось больше, чем закрывающих.

А по поводу корня -- sleemp вам уже подсказал, а еще лучше сделать так:
В раздел описаний (в самое начало программки, перед Var a, b, c, x, w, y:real ) добавьте
Код:
function koren3(x: real): real;
begin
koren3:=0;
if x>0 then koren3:=exp(ln((x))/3);
if x<0 then koren3:=-exp(ln(abs(x))/3);
end;

langoler89
Я бы без корней пиасл - типа умножить. А экспонента отдельно. Вводить корень этомат часть.

langoler89

sqrt(x*x*x)