Задача на определение принадлежности точки области - Free Pascal
Формулировка задачи:
Нужно составить программу,содержащую ветвления и определяющую,принадлежит ли точка с координатами (x,y) заштрихованной области.
Решение задачи: «Задача на определение принадлежности точки области»
textual
Листинг программы
var x, y: Real; begin ReadLn(x,y); WriteLn((x*x+y*y<=25) and (y>0) and (x>0) or (abs(x)+abs(y)<=5) and (x<0)); end.
Объяснение кода листинга программы
- Ввод значений координат точки в переменные x и y с помощью функции ReadLn.
- Вывод результата на экран с помощью функции WriteLn.
- Оценка принадлежности точки к области по формуле (xx+yy<=25) and (y>0) and (x>0) or (abs(x)+abs(y)<=5) and (x<0).