Определить пересекаются ли линии y=ax^4+bx^3+cx^2+dx+f и y=bx^3+mx^2+dx+p. если пересекаются, найти точку пересечения. язык паскаль.

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

Ошибки "синий экран" (также называемые ошибками черного экрана или ошибками кода остановки) могут возникать, если из-за серьезной проблемы Windows выключается или неожиданно перезапускится. При этом может появиться сообщение "Windows завершила работу, чтобы предотвратить повреждение компьютера".

Эти ошибки могут быть вызваны как аппаратными, так и с программными ошибками. Если перед возникновением ошибки "синий экран" вы добавили новое оборудование, то завершите работу компьютера, удалите это оборудование и перезапустите компьютер. Если во время перезапуска возникают проблемы, попробуйте запустить компьютер в безопасном режиме. Подробнее см. в статье Параметры запуска Windows (в том числе безопасный режим).

Кроме того, можно попробовать получить последние обновления из Центра обновления Windows, справку из других источников или восстановить Windows до более раннего состояния.

пардоньте, прослоупочил про подпрограммы)

uses crt; var a: array[1..25,1..20] of integer; i,j,min,k,n,m: integer; procedure input_array(n,m: integer; var a: array[1..25,1..20] of integer); var i,j: integer; begin randomize; for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(101)-50; write(a[i,j]: 4); end; writeln; end; end; procedure del(n,m,min,k: integer; a: array[1..25,1..20] of integer); var i,j: integer; begin for i: =1 to n do begin if i=k then i: =i+1; for j: =1 to m do write(a[i,j]: 4); writeln; end; end;

beginread(n,m); input_array(n,m,a); min: =a[1,1]; for i: =2 to n do for j: =1 to m do if a[i,j]< min then begin min: =a[i,j]; k: =i; end; writeln; writeln; del(n,m,min,k,a); end.