Проверка принадлежности точки с координатами (x,y) заштрихованной области на плоскости - PascalABC.NET
Формулировка задачи:
Написать программу, проверяющую принадлежность точки с координатами (x,y) заштрихованной области на плоскости (рисунок прилагается)
Решение задачи: «Проверка принадлежности точки с координатами (x,y) заштрихованной области на плоскости»
textual
Листинг программы
var a, b, c, d, x, y : Real;
begin
Write('Введите через пробел значения a, b, c, d, x, y : ');
ReadLn(a, b, c, d, x, y);
WriteLn('Точка ' + ((x>=a)and(x<=b)and(y>=c)and(y<=d)?'':'не ') + 'принадлежит заштрихованной области.');
end.
Объяснение кода листинга программы
- Объявлены переменные a, b, c, d, x, y типа Real.
- Выводится приглашение для ввода значений переменных через пробел.
- С помощью функции ReadLn введенные значения сохраняются в переменных a, b, c, d, x, y.
- Выводится сообщение, указывающее принадлежит ли точка с координатами (x,y) заштрихованной области или нет.
- Если точка принадлежит заштрихованной области, выводится сообщение
Точка принадлежит заштрихованной области.. - Если точка не принадлежит заштрихованной области, выводится сообщение
Точка не принадлежит заштрихованной области..