Практикум по решению задач на ЭВМ. Тарова И.Н - 68 стр.

                                Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


  var x,y:real;
  begin
      clrscr;
writeln('Введите значение координат x и y: ');
      readln(x,y);
      if (x*x+y*y<=1) and (y>=abs(x)) then writeln('принадлежит')
      else writeln('не принадлежит');
      readln;
  end.




5) Условие то же.
   program strelok(input,output);
   uses CRT;
   var x,y:real;
   begin
      clrscr;
writeln('Введите координаты x и y: ');
      readln(x,y);
      if (y<=-3*x+2) and (y<=3*x+2) and (y>=-1) then writeln('принадлежит')
      else writeln('не принадлежит');
      readln;
   end.




                                     68