PDA

Просмотр полной версии : Условие попадания точки в область!



Lange
07.11.2009, 14:55
Дан график:
1103
Выяснить,попадает ли точка в заданную область.Если (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.
Проверьте пожалуйста!А здесь изображена область,если на графике не понятно:1104:confused:

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

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

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

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