написать программу в паскаль с помошью условного оператора,принадлежит ли точка закрашенной области

+ 0 -

Darya165

23 июня 2016 г., 18:38:23 (7 лет назад)

№1.
График - часть графика y=5/4*IxI-5 до пересечения с осью Ox.
Program BiFi;
Var x,y:real;
Begin 
readln(x,y);
if (y<=0) and (y<=5*abs(x)/4 - 5) then writeln('prinadlezit')
else writeln(' ne prinedlezit');
readln;
end.

№2.
График - половина кольца с радиусами 2 и 4.
Program BiFi;
Var x,y:real;
Begin
readln(x,y);
if (x>=0) and (x*x+y*y<=4) and (x*x+y*y>=2) then writeln('prinadlezit')
else writeln('ne prinadlezit);
readln;
end.

№3.
График состоит из четверти окружности  радиусом 3 в II коорд. четверти и частью прямой y=3-x/2, ограниченной I коорд. четвертью.
Program BiFi;
Var x,y:real;
Begin
readln(x,y);
if y>=0 then if (x<=0) and (x*x+y*y<=3) then writeln('prinadlezit')
                                           else if (x>=0) and (y<=3-(x/2)) then writeln('prinadlezit')
                                                                                    else writeln('ne prinadlezit')
          else writeln(' ne prinadlezit');
readln;
end.