Вопрос: Для каждой задачи составить программу, содержащую ветвления и определяющую, принадлежит (X, У) заштрихованной области.
Категория: школьный раздел
Ответы:
Var X,Y:real; Begin Write('X = '); ReadLn(X); Write('Y = '); ReadLn(Y); if (Y>=0)and(Y<=X+4)and(Y<=4-X) then WriteLn('(',X,',',Y,') попадает в заштрихованную область')<br>else WriteLn('(',X,',',Y,') - мимо') End.

var x,y:real;begin  writeln('(x, y)');  readln(x, y);  if ((x*x+y*y<=25)and(y>0)and(x>0)) or  ((abs(x)+abs(y)<=5)and(x<0)) then writeln('Принадлежит')  else writeln('Не принадлежит');  readlnend.

var     x,y:integer;begin     read(x,y);     if (y<=abs(x-3)) and (y>=0) and (sqr(x)+sqr(y)<=36)         then write ('Да');             else write ('Нет);end.

begin  var (x, y) := ReadReal2('Введите координаты точки:');  Print((x ** 2 + y ** 2).Between(16, 36) and (y >= 2) ? 'YES' : 'NO')end.

Var x,y: real; Begin readln (x,y); if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)<br> then writeln('YES') else writeln('NO') End.

Var x,y: real; begin write('x = '); readln(x); write('y = '); readln(y); if (x*y>=0)and(y<=-x+6)and(y>=-x-6)   then writeln('Да')   else writeln('Нет'); end.

Var x,y: real; begin   write('x y через пробел: '); readln(x,y);   if ((-6<=x) and (x<=1) and (-3<=y) and (y<=7)) and<br>     not ((-3     writeln('точка принадлежит области')   else writeln('точка не принадлежит области'); end.

var   x, y: real; begin   writeln('Введите координаты точки x и y соответственно:');   readln(x, y);   if (x <= 0) or (y <= 0) then<br>    if x * x + y * y <= 36 then<br>      writeln('Принадлежит')     else       writeln('Не принадлежит')   else     writeln('Не принадлежит') end.

Var x,y : real; begin write('x = '); readln(x); write('y = '); readln(y); if (y>=2)and(y<=5)and(x>=-2)and(x<=3)or<br>   (y>=2)and(y<=3)and(x>=3)and(x<=5)<br>  then writeln('Да')   else writeln('Нет') end.

Var x,y : real; begin write('x = '); readln(x); write('y = '); readln(y); if (x*x+y*y<=6*6)and(x>=2)   then writeln('Да')   else writeln('Нет') end.

Var x,y : real; begin write('x = '); readln(x); write('y = '); readln(y); if (x>=0)and((x*x+y*y<=4*4)and(y>=0)or(x*x+y*y<=5*5)and(y<=0))<br>  then writeln('Да')   else writeln('Нет') end.

begin var x:=readreal ('Введите x-координату точки: '); var y:=readreal ('Введите y-координату точки: '); if ((x>=-5) and (x<=-2) and (y>=-2) and (y<=5)) or ((x>=-5) and (x<=5) and (y>=-2) and (y<=1)) or ((x>=2) and (x<=5) and (y>=-6) and (y<=1)) then<br>write ('принадлежит') else write ('не принадлежит'); end.

Var x, y: real; begin   read(x, y);   if (x >= -4) and (x <= -1) then<br>    if (y >= 1) and (y <= 7) then<br>      writeln('Yes')     else       writeln('No')   else if (x >= -1) and (x <= 3) then<br>    if (y >= 4) and (y <= 7) then<br>      writeln('Yes')     else       writeln('No')   else     writeln('No') end.

Uses crt; var x,y:integer; begin      readln(x,y);      if (y<=7) and (y>=1) and (y<=(2*x+13)) and (y<=(-2*x+15)) then<br>          writeln('yes')      else writeln('no'); end.

Var X,Y:real; 
Begin 
Write('X = '); 
ReadLn(X); 
Write('Y = '); 
ReadLn(Y); 
if (Y>=0)and(Y<=X+4)and(Y<=4-X) then WriteLn('(',X,',',Y,') попадает в заштрихованную область')<br>else WriteLn('(',X,',',Y,') - мимо') 
End.