Подскажите где тут ошибка в формуле

[Alexmur07]

это я попытался решить)

uses crt;
var
x,y:real;
g:double;
begin
clrscr;
writeln('Лабораторная работа 1');
writeln('---------------------');
write('Введите значение переменной x, x=');
readln(x);
write('Введите значение переменной y, y=');
readln(y);
g:=((1+cos(x+y)/(abs(exp(x)-2*y/(1+sqr(x)*sqr(y))))*(exp(3*ln(x))+arctan(y/sqrt(1-sqr(y))))));
writeln('g=',g);
writeln('Для продолжения нажмите любую
клавишу');
readkey;
end.

сильно не ругать)))
если ставить меньше скобочек в формуле то он пишет что скобок мало надо поставить есчё)) и я там попытался арксинус заменить на формулу арктанг, вообщем вроде он что-то считает, но походу считает не правильно... подскажите где я в формуле накосячил... он мне такую ерись в ответе выдаёт... только если ставить х и у 1 тогда ответ более близок к правдивому... подскажите двоячнику
щас конечно ещё и сам пересмотрю... скобки поправлю... но мне кажется что всёравно чтото не правильно

[Alexmur07]

во вроде так

uses crt;
var
x,y:real;
g:double;
begin
clrscr;
writeln('Лабораторная работа 1');
writeln('---------------------');
write('Введите значение переменной x, x=');
readln(x);
write('Введите значение переменной y, y=');
readln(y);
g:=((1+cos(x+y))/(abs(exp(x)-2*y/(1+sqr(x)*sqr(y))))*exp(3*ln(x))+arctan(y/sqrt(1-sqr(y))); 
writeln('g=',g);
writeln('Для продолжения нажмите любую
клавишу');
readkey;
end.

[Alexmur07]

и всёравно после этого исправления у меня турбо паскаль добавляет вконце ещё 1 скобку, зачем? т.е. программу не даёт запустить без добавления ещё одной скобки вконце. т.е. конечная выглядет так

g:=((1+cos(x+y))/(abs(exp(x)-2*y/(1+sqr(x)*sqr(y))))*exp(3*ln(x))+arctan(y/sqrt(1-sqr(y))));

[Alexmur07]

uses crt;
var
x,y:real;
g:double;
begin
clrscr;
writeln('Лабораторная работа 1');
writeln('---------------------');
write('Введите значение переменной x, x=');
readln(x);
write('Введите значение переменной y, y=');
readln(y);
g:=(1+cos(x+y))/(abs(exp(x)-2*y/(1+sqr(x)*sqr(y))))*exp(3*ln(x))+arctan(y/sqrt(1-sqr(y))); 
writeln('g=',g);
writeln('Для продолжения нажмите любую
клавишу');
readkey;
end.

а во всё правильно, но считает как то плохо... т.е. нормальные цифры показывает если X и У = 1 в противном случае такая лажа выходи... т.е. цифр вообще нету и при этом даже если ставить значение еденицы то результат каждый раз новый (((

[Vanta11a]

Сделайте несколько временных переменных, в которые по отдельности считаются все составляющие формулы и выводите их.
Аналогичную табличку сделайте в том же Excel`e.
Так Вы сможете увидеть, в каком именно месте формулы косяк с вычислением.

[Alexmur07]

ну попробую... а вообще с виду кто может сказать я формулу то правильно записал не?

[Vanta11a]

Возможно, имеет смысл сделать вместо "exp(3*ln(x))" выражение вида "x*x*x"

Явных косяков не вижу.

[Alexmur07]

только что считало а щас не считает в чём дело?

[Alexmur07]

он мне что то говорил про плавующую запятую

[Alexmur07]

может я не правильно арксинус записал ?