Практическая.pdf. Решение Заштрихованная область ограничена четырьмя линиями X0 Y0 X 2 y 2 64 Х 2 y 2 36

• Название: Решение Заштрихованная область ограничена четырьмя линиями X0 Y0 X 2 y 2 64 Х 2 y 2 36
• Дата: 01.12.2018
• Размер: 82.28 Kb.
• Имя файла: Практическая.pdf.docx
• Тип: Решение; #58355

Задание:

Даны вещественные числа x и y. Определить принадлежит ли точка с координатами (x; y) заштрихованной части плоскости.



Решение:

Заштрихованная область ограничена четырьмя линиями:

X=0

Y=0

X²+ Y² =64

Х² + Y² =36

Точка с координатами (x, y) будет принадлежать заштрихованным областям в том случае, если одновременно выполняются три условия. Она должна лежать:

1. 
   Выбирая первую и третью четверть вводим условие x*y>0
   
2. 
   Ниже кривой X²+Y²≤64
   
3. 
   Выше кривой X²+Y² ≥36
   

Эти условия можно объединить с помощью операции логическое И:

(y*x>0) and (x*x+y*y<=64) and (x*x+y*y>=36)

Теперь можно составить алгоритм решения задачи.

Алгоритм:

принадлежит

Не принадлежит

конец

ЛВ

начало

x,y

Да

Нет


ввод координат



Проверяется условие

(y*x>0) and (x*x+y*y<=64) and (x*x+y*y>=36)



вывод результата


Описание структуры программы:

Для решения задачи достаточно двух переменных: x и y, в которых будут храниться координаты точки. Обе переменные вещественного типа. Для очистки экрана используется специальная процедура ClrScr из модуля CRT.

Код программы:

Program d_01;

Uses CRT;

Var

x, y: real; {координаты точки}

Begin

ClrScr;

Write('Введите координаты точки (x, y) через пробел:');

Readln(x,y);

If (y*x>0) and (x*x+y*y<=64) and (x*x+y*y>=36) Then Writeln('Принадлежит')

Else Writeln('Не принадлежит');

End.

Результаты работы программы:

Для тестирования программы использовались точки принадлежащие области (7;2),(7;3), и лежащая вне (4;1),(2;3)