Определить, пересекаются ли линии y = bx2 + cx + d и y = kx + m. если пересекаются, найти точки пересечения

Линии пересекаются в точках, где их уравнения при одинаковых аргументах возвращают одинаковые значения. чтобы определить условия точек пересечения заданных уравнений линий следует приравнять их правые части и решить полученное уравнение относительно аргумента х. сделаем подстановку и получим квадратное уравнение: далее находим дискриминант, проверяем его знак, производим ветвление алгоритма в зависимости от результата. при неотрицательных 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 общих точек пересечения нет

86-8=78 всего играет в игры 54+62=116 игродетей 116-78=38 детей играют и в квесты и в симуляторы