Презентация программирование на языке Pascal на тему "Определение принадлежности точки заштрихованной области"

• 1 слайд

  Программирование на языке Pascal
  Определение принадлежности точки заштрихованной области
  

• 2 слайд

  Задача. Требуется написать программу, которая получает с клавиатуры координаты точки на плоскости (x,y – действительные числа) и определить принадлежность точки заштрихованной области, включая ее границы (рис. 1).
  y
  x
  x=1
  y=1
  0
  

• 3 слайд

  Блок-схема
  НАЧАЛО
  X,Y
  ПРИНАДЛЕЖИТ
  НЕ ПРИНАДЛЕЖИТ
  КОНЕЦ
  

• 4 слайд

  Ограничения
  
  
  
  y<=1 и y>=0 и
  x>=0 и x<=1 или
  x>=-1 и x<=0 и
  y>=0 и x*x+y*y<=1
  
  y
  x
  x=1
  y=1
  

• 5 слайд

  Код программы
  Program koordinati;
  Var x,y: real;
  Begin
  Writeln(‘Введите координаты точки’);
  Read(x,y);
  If (y<=1) and (y>=0) and (x>=0) and (x<=1)) or ((x>=-1) and (x<=0) and (y>=0) and (x*x+y*y<=1)) then
  Writeln (‘ПРИНАДЛЕЖИТ’) else
  Writeln (‘НЕ ПРИНАДЛЕЖИТ’);
  end.
  

• 6 слайд

• 7 слайд

  Практическая работа
  Требуется написать программу, которая получает с клавиатуры координаты точки на плоскости (x,y – действительные числа) и определить принадлежность точки заштрихованной области, включая ее границы (рис. 2, рис. 3).
  y
  x
  x=3
  y=3
  y
  x
  x=-3
  y=x2
  x2
  +y2 =9