Здравствуйте, уважаемые профи.
Я знаю как сделать вторую часть задания, где нужен определитель, но не могу продвинуться в задании самой матрицы.
(Матрица Сильвестра) Даны два многочлена: A(x)= a0+a1x+a2x^2+...anx^n и B(x)=b0+b1x+b2x^2+b3x^3+...bmx^m. Построить матрицу для заданных многочленов А(x), B(x) и убедиться в том, что ее определитель совпадает с результантом многочленов.
Код:
uses
SysUtils;
var
i, n, m, j: integer;
A, B: array of integer;
begin
Write('n=');
readLn(n);
Randomize();
SetLength(A, n);
SetLength(B, n);
WriteLn('A');
for i:=0 to n-1 do
begin
A[i]:= random(10)+1;
WriteLn('A(i)', A[i], ' ')
end;
readln;
end.
То, что уже сделано в коде выше: заданы коэффициенты для многочленов. Что делать дальше, подскажите?