Дана заштрихованная область и точка с координатами (x, y). Написать программу, определяющую, попадает ли точка в область. Результат вывести в виде текстового сообщения
Запишем условия попадания точки в область в виде формул. Область можно описать как круг, пересекающийся с треугольником. Точка может попадать либо в круг, либо в треугольник, либо в их общую часть:
Первое условие задает попадание точки в круг, второе – в треугольник. Переменные x и y – вещественного типа. Программа для решения задачи выглядит следующим образом:
{***************************************************} {Программа: SHOT. } {Цель: определить попадет ли точка } {в заштрихованную область. } {Программист: Иванов И.И. } {Дата выполнения: 10 апреля 2006 г. } {***************************************************} Program SHOT; Var X, Y: real; Begin Writeln(‘Введите значения x и y’); Read(X, Y); Wriyeln(‘X=’, X, ‘Y=’, Y); If (sqr(x)+sqr(y)< =1) or (x< =0) and (y< =0) and (y> =-x-2) then writeln(‘Точка попадает в область’) else writeln(‘Точка не попадает в область’); End. {SHOT} Приоритет операций отношения самый низкий, поэтому они заключаются в скобки. Три условия попадания точки в треугольник должны выполняться одновременно, поэтому они объединяются с помощью операции and. Ее приоритет выше, чем or, поэтому дополнительных скобок не требуется.
|
