Принадлежность точки заштрихованной области. Проверка: возможен ли треугольник с такими сторонами - Pascal ABC

Формулировка задачи:

Я понимаю,что я не один такой,который просит,чтобы решили задачу по Паскаль,дело в том,что задали много задач по этому языку. И у меня уже голова не варит,я сделал больше половины,а дальше уже не соображаю.Помогите пожалуйста. Задача 1. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованной области (см. рисунок 1) и «Не принадлежит» в противном случае. Программа должна иметь дружественный интерфейс. Протестировать программу для точек (1.5,2), (0,0), (-1.5, 1), (1,-1.2), (-2,-1). Задача 2. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованной области (см. рисунок 2) и «Не принадлежит» в противном случае. Программа должна иметь дружественный интерфейс. Протестировать программу для точек (2.5, 2), (1,1), (0,0), (1,0), (2,-1). Задача 3. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованной области (см. рисунок 3) и «Не принадлежит» в противном случае. Программа должна иметь дружественный интерфейс. Протестировать программу для точек (0,0.8), (0,0), (-1.5,1), (1,1.5), (-2,-1). Задача 4. Треугольник задан длинами сторон А, В, С. Написать программу, определяющую, существует ли данный треугольник. Для решения этой задачи использовать сложные логические условия. Программа должна иметь дружественный интерфейс. Протестировать программу для следующих исходных данных: а) A=3, B=4, C=5 б) A=1, B=1, C=1 в) A=0, B=4, C=5 г) A=-3, B=6, C=5 д) A=2, B=1, C=8

Код к задаче: «Принадлежность точки заштрихованной области. Проверка: возможен ли треугольник с такими сторонами - Pascal ABC»

textual
var x,y: real;
 
begin
  write('Введите координату точки x: ');  
  readln(x);
  write('Введите координату точки y: ');  
  readln(y);
  if ((x>=1)or(x<=-1)) then writeln('Принадлежит')
  else writeln('Не принадлежит');
end.

8   голосов, оценка 3.875 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы