Question

PASCAL. Составить программу, содержащую ветвления и определяющую, при надлежит ли точка с координатами x и y заштрихованной области

Answer 1

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

Пример:
x = 4
y = 1
Да

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

Пример:
x = -2
y = 1
Нет

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

Пример:
x = 3
y = -3
Да