Составить программу.Определить, пересекаются ли линии y=b* x^{2}+c*x+d и y=k*x+m.если...

Question

Составить программу.Определить, пересекаются ли линии y=b* x^{2}+c*x+d и y=k*x+m.если пересекаются, найти точки пересечения.

Answer 1

var
  a, b, c, d, k, m: real;

begin
  readln(b, c, d, k, m);
  a := b;
  b := c - k;
  c := d - m;
  d := sqr(b) - 4 * a * c;
  if (a < 0) then
    writeln('Нет точек')
  else
    if (d = 0) then
      writeln('(', (-1 * b + sqrt(d)) / (2 * a), '; ', k * ((-1 * b + sqrt(d)) / (2 * a)) + m, ')')
    else
      writeln('(', (-1 * b + sqrt(d)) / (2 * a), '; ', k * ((-1 * b + sqrt(d)) / (2 * a)) + m, '), (', (-1 * b - sqrt(d)) / (2 * a), '; ', k * ((-1 * b - sqrt(d)) / (2 * a)) + m, ')');
end.

Comments

спасибо большое