Условие попадания точки в область!

[Lange]

Дан график:
[ATTACH]1103[/ATTACH]
Выяснить,попадает ли точка в заданную область.Если (x,y) принадлежит заштрихованной области,то z:=(sqrt(abs(x^2-y^2)))/(sinx+tgx),иначе z:=(2x*cosy)/abs(x^2-y^2).У меня такая вот программа,но мне кажется,что она неверная:
uses crt;
var
y, x, z:real;
begin
clrscr;
write ('Zadayte koordinati tochki: ');
read (x, y);
if (y<1)and(y>0)and(y<Exp(1)) then
begin
z:=(sqrt(abs(x*x-y*y)))/(sin(x)+(sin(x)/cos(x)));
writeln ('Tochka popadaet v oblast!')
end
else
begin
z:=(2*x*cos(y))/abs(x*x-y*y);
writeln ('Tochka ne popadaet v oblast!')
end;
write ('Z= ', z:10:5);
readkey
end.
Проверьте пожалуйста!А здесь изображена область,если на графике не понятно:[ATTACH]1104[/ATTACH]

[Хыиуду]

Откуда вы взяли такие формулы?
if (y>sqr(x)) and (y<exp(x)) and (y<exp(-x))
then writeln('Попадает') else writeln ('Не попадает');

[atavin-ta]

Ну ты дал! Абсциса у тебя есть. Для этой абсциссы считай ординаты ограничивающих линий и сравнивай с ординатой твоей точки. Если твоя ордината между ограничивающими - значит попал. И ни каких гвоздёв.

[Lange]

Откуда вы взяли такие формулы?
if (y>sqr(x)) and (y<exp(x)) and (y<exp(-x))
then writeln('Попадает') else writeln ('Не попадает');

Спасибо,я уже разобралась!))

[natalia710]

помогите составить пожалйста функцию для вачисления f=a[0]/2+a*cos(x*i)+b*cos(x*i) а,b суммы рядов от одного до n a[0] начальноез начение массива a и надо использовать открытый параметр массив