4 Укажите верную запись оператора.
1 LINE (100, 100) – (200, 200)
2 LINE (100; 100) – (200; 200)
3 LINE (100, 100) – (200, 200), 7 В
4 LINE (100-100) – (200-200) 15, B,

20

Примечание:

Вижу опечатку!

Это не влияет на ответ, но в решении я буду предполагать, что вершина без названия (слева сверху) - это вершина Б. А вершина с двумя названиями (по центру сверху) - это вершина Д.

Объяснение:

В таких задачах рекомендую начинать с поиска вершин минимальной степенью (т.е. с минимальным числом связей).

Такие вершины в данном графе: А, Д, Б, Е - их степень равна двум.

В таблицы каким-либо образом им соответствуют столбцы П7, П5, П3, П1. Начнем анализировать, например, с П7. Мы видим что у П7 две связи с П4 и П6. При этом П4 имеет степень 4, а П6 имеет степень 5. Среди них нет вершины со степенью 2 или 3. Значит П7 это не А, не Б, и не К. Потому что у А, Б есть сосед со степенью 2, а у К есть сосед со степенью 3, чего нельзя сказать из таблицы о П7. Значит П7 это пункт Д на графе.

У пункта Д (он же П7) только два соседа - В и Е. Где у В степень 5, а у Е степень 4. Значит, соответственно таблице, В - П6, Е - П4.

Найти необходимо расстояние между В и Е (они же П6 и П4). Смотрим в таблицу, результат 20.

Тут нам несколько повезло, потому что не пришлось долго анализировать таблицу и граф. Мы правильно сделали что начали с П7, но не всегда так удачно выходит.

Линии пересекаются в точках, где их уравнения при одинаковых аргументах возвращают одинаковые значения. Чтобы определить условия точек пересечения заданных уравнений линий

следует приравнять их правые части и решить полученное уравнение относительно аргумента х.

Сделаем подстановку и получим квадратное уравнение:

Далее находим дискриминант, проверяем его знак, производим ветвление алгоритма в зависимости от результата. При неотрицательных t определяем х, извлекая из t квадратный корень и для каждого х вычисляем у из второго уравнения (оно короче).

var
  a, b, c, d, f, m, p: real;

function y(x: real): real;
begin
  y := b * x * sqr(x) + m * sqr(x) + d * x + p
end;

procedure OutPoint(x: real);
begin
  writeln('Найдена точка пересечения функций (', x, ',', y(x), ')')
end;

procedure TDev(t: real; var np: Boolean);
var
  x: real;
begin
  if t = 0 then begin
    np := false;
    OutPoint(0)
  end
  else if t > 0 then begin
    np := false;
    x := -sqrt(t);
    OutPoint(x);
    x := sqrt(t);
    OutPoint(x)
  end
end;

var
  x1, x2, u, v, t1, t2, Dis: real;
  NoPoints: Boolean;

begin
  writeln('Введите значения переменных a,b,c,d,f,m,p');
  readln(a, c, f, m, p);
  u := c - m;
  v := f - p;
  Dis := sqr(u) - 4 * a * v;
  NoPoints := true;
  if Dis = 0 then begin
    t1 := -u / (2 * a);
    TDev(t1,NoPoints);
     end
  else begin
    t1 := (-u - sqrt(Dis)) / (2 * a);
    TDev(t1,NoPoints);
    t2 := (-u + sqrt(Dis)) / (2 * a);
    TDev(t2,NoPoints);
  end;
  if NoPoints then writeln('Общих точек пересечения нет')
end.

Тестовое решение

Введите значения переменных a,b,c,d,f,m,p
2 3 4 5 6 7 8
Найдена точка пересечения функций (-1.27201964951407,14.0901699437495)
Найдена точка пересечения функций (1.27201964951407,14.0901699437495)

Введите значения переменных a,b,c,d,f,m,p
-3 -5 -3 2 1 4 5
Общих точек пересечения нет