Определение принадлежности точки закрашенной области - Turbo Pascal
Формулировка задачи:
Задание: Для данных областей составить линейную программу, которая печатает true, если точка с координатами (х, у) принадлежит закрашенной области, и false — в противном случае.
Объясните пожалуйста как находится область в которую попадает точка, по каким формулам.
Текст программы:
Листинг программы
- var
- x,y: real;
- begin
- write('Введите x, y: ');
- readln(x,y);
- if ((abs(y)<=5)and(x>=-5)and(x<=6))
- and not((x>2)and(x<6)and(y<2)and(y>-5))
- and not((x>-5)and(x<-1)and(y>-2)and(y<5))
- then writeln('true') else
- writeln('false');
- readln;
- end.
Решение задачи: «Определение принадлежности точки закрашенной области»
textual
Листинг программы
- WriteLn((abs(y)<=5) and (x>=-5) and (x<=6)
- and not ((x>2) and (x<6) and (y<2) and (y>-5))
- and not ((x>-5) and (x<-1) and (y>-2) and (y<5)));
Объяснение кода листинга программы
- Записывается условие для проверки принадлежности точки закрашенной области.
- Вычисляется значение переменной y.
- Вычисляется значение переменной x.
- Проверяется условие (abs(y)<=5) and (x>=-5) and (x<=6).
- Проверяется условие (not ((x>2) and (x<6) and (y<2) and (y>-5)))
- Проверяется условие (not ((x>-5) and (x<-1) and (y>-2) and (y<5)))
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д