Question

"Разветвленный алгоритм" (области)

Answer 1

1.
program tochki1;
uses crt;
var
  x,y: real;
begin
  writeln('Введите координаты точки:');
  write('x='); readln(x);
  write('y='); readln(y);
  writeln('Please wait...');
  if (y<=1) and (y>=cos(x)) and (y>=0) and (x>=0) then
    begin
      writeln('Точка (',x,',',y,') принадлежит заштрихованной области ');
    end
  else 
    writeln('Точка (',x,',',y,') не принадлежит заштрихованной области ');
end.

2.
program tochki2;
uses crt;
var
  x,y: real;
begin
  writeln('Введите координаты точки:');
  write('x='); readln(x);
  write('y='); readln(y);
  writeln('Please wait...');
  if (y>=x*x) and (y<=2-x) then
    begin
      writeln('Точка (',x,',',y,') принадлежит заштрихованной области ');
    end
  else 
    writeln('Точка (',x,',',y,') не принадлежит заштрихованной области ');
end.