Question

Напишите программу, которая вводит координаты точки на плоскости и определяет, попала ли эта точка в заштрихованы область. Язык программирования Паскаль задания б и г

Answer 1

б)

program popb;

uses

crt;

var

x, y: real;

begin

writeln('Введите x, а затем y');

readln(x, y);

if (y <= (- x)) then

writeln('Точка попала в область')

else

WriteLn('Точка Не попала в область');

end.

г)

program popg;

uses

crt;

var

x, y: real;

begin

writeln('Введите x, а затем y');

readln(x, y);

if (((x - 1) * (x - 1) + y * y) <= 1) then

writeln('Точка попала в область')

else

WriteLn('Точка Не попала в область');

end.