Помогите решить задачу

[Dialon]

Составить программу для вычисления фунции в произвольной точке с учетом области определения функции. Ввод аргументов осуществить с помошью оператора Read. Формула прикреплена. У меня получилась такая y=arctan(2*exp(3*ln(x)))sgrt(1-4*exp(6*ln(x))), а область определения будет [-1;1]. Зарание огромное спасибо!

[quf]

так показывай что сделал

[Dialon]

Program Task_4;
Var
x,y: Real;
Begin
Read(x);

If ...... and ........ then
begin
y:=arctan(2*exp(3*ln(x)))sgrt(1-4*exp(6*ln(x)));
WriteLn(y)
end
else writeln('В данной точке функция не определена')

End

Не знаю правильно или нет. На месте точек не знаю что писать. Подскажите пожалуйста!!!

[Last]

если прикреплённая формула интерпретирована Вами правильно(я не проверял) и верно определена область определения функции(тоже не проверял), то

Program Task_4;
Var
x,y: Real;
Begin
Read(x);
If (x>=-1)and(x<=1). then
begin
y:=arctan(2*exp(3*ln(x)))sgrt(1-4*exp(6*ln(x)));
WriteLn(y);
end
else writeln('В данной точке функция не определена');
End.

должно работать

[alex_fcsm]

arcsin x = arctg x/(√(1-xІ)), а arccos x = π/2 - arcsin x

вместо x пишем 2*x^3

const pi=3.14;
var x:real;

begin
read(x);
if ((1-4*sqr(x)*sqr(x)*sqr(x))<>0)and (abs(2*sqr(x)*x)<=1) then
writeln(pi/2 - arctan(2*sqr(x)*x)/(sqrt(1-4*sqr(x)*sqr(x)*sqr(x))))
 else writeln('Ошибка ввода');
end.

[Dialon]

огромное Вам спасибо

[alex_fcsm]

Подправил немного

[Dialon]

пишет ОШИБКА 2 Identifier expected

[alex_fcsm]

На какой строке? проверьте правильно ли вы скопировали.

[Last]

возможно Вы не используете библиотеку, вроде для работы этого кода надо подключить библиотеку crt

uses crt;
const pi...