Код
Program Uslovie;
Var x, y: real;
f1, f2, f3: boolean;
Begin
write (‘Введите координаты точки х и у: ’);
readln (x,y);
f1:=(x>=0) and (y>=0) and (x*x + y*y <=36);
f2:=(x>=0) and (y<=0) and (y>=x-6);
f3:=f1 or f2;
If f3 then writeln(‘Заданная точка принадлежит данной области’)
else writeln(‘Заданная точка не принадлежит данной области’);
readln;
End.
Не могу определить второе условие ( f 2 ) на графике (Задача_2), помогите чем сможете.
Program Uslovie;
Var
x,y : real;
f1: boolean;
Begin
write ( ' Введите координаты точки x и y ' );
readln(x,y);
f1:=(x<=0) and (y<=0) and (x+y<=16);