Определить, принадлежит ли данная точка одному из отрезков, обоим или лежит вне их - Pascal ABC

  1. Даны отрезки [a, b] и [c, d] и точка A с координатой х. Определить, принадлежит ли данная точка одному из этих отрезков, обоим или лежит вне их


textual

Код к задаче: «Определить, принадлежит ли данная точка одному из отрезков, обоим или лежит вне их - Pascal ABC»

const res: array [0..3] of string[40] = (
  'Точка x не принадлежит ни одному отрезку',
  'Точка x принадлежит отрезку ab',
  'Точка x принадлежит отрезку cd',
  'Точка x принадлежит обоим отрезкам');
var a, b, c, d, x: double;
    ab, cd: integer;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  write('d = ');
  readln(d);
  write('x = ');
  readln(x);
  if (a - x) * (b - x) <= 0 then ab := 1 else ab := 0;
  if (c - x) * (d - x) <= 0 then cd := 2 else cd := 0;
  write(res[ab + cd]);
  readln
end.

СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.133 из 5



Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Проверить, какому интервалу принадлежит данное действительное число d: (-16, 2), (4, 10) или (14, 36). Если число d не принадлежит не одному из интервалов, то выдать соответствующее сообщение. И если не сложно в Си# как эта же задача будет выглядеть?

  1. Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.

  1. 13.Составить алгоритм и написать решение задачи на Паскале: Проверить, принадлежит ли точка одному из отрезков (2, 5) и [6,5, 19). Координата точки вводится пользователем с клавиатуры.Помогите пожалуйста!!

  1. Для заданного натурального числа определить, сколько раз в его записи встречается каждая из цифр. (Паскаль и Бейсик) Помогите :С

  1. Принадлежит ли точка М(x;y) закрашенной области. Крайние точки области y(2;-2) x(1;-1), т.е. ромб.

  1. Ввести с клавиатуры n любых целых чисел. Ли они двухзначные? Ответ «да» или «нет». Буду очень благодарна за помощь