Su-34

Надо определить попадает ли точка в область определения. Проверьте пжлста что не так?
program lab2
real x,y,z,R
integer M
R=1.0
print*,' x=?';read*,x
print*,' y=?';read*,y
if(x<=0.0.AND.y>=-2.AND.x>=-1.AND.x>=0.0.AND.y>=x-2..OR.x*x+y*y<=R*R) then
z=1/sin(x)+alog(abs(y))
M=1;print*,'YES'
else
z=x**3+x**2*y+y**3
M=2;print*,'NO'
end if
end

Миниатюры

 

Su-34

ап

Vladimir_S

Ап будет, когда мы увидим четкую, а не тяп-ляп, формулировку задачи. Как задана выделенная область (на рисунке кривая, извините, не замкнута)? К чему относятся функции f1(x,y) и f2(x,y), а также уравнение окружности в первой графе? Ничего не понятно! В общем, выложена какая-то малопонятная муть.

Su-34

Миниатюры

 

Vladimir_S

М-да... Более или менее. Но мне кажется, логическое условие сформулировано не совсем так, как надо. Я бы так:
if((x<=0.0.AND.x>=-1.AND.y>=-2.AND.y<=0.).OR.(x>=0.0.AND.x<=2.0.AND.y>=x-2.AND.y<=0.).OR.(x<=0.0.AND.x>=-1.AND.y>=0.AND.x*x+y*y<=R*R)) then
z=1/sin(x)+alog(abs(y))
M=1;print*,'YES'
else
z=x**3+x**2*y+y**3
M=2;print*,'NO'
end if

Su-34

Ой спасибо вам!