Не ясна суть задания

[Illtry]

Delphi 7
Матрица Сильвестра. Даны два многочлена: A(x)= a0+a1x+a2x^2+...anx^n и B(x)=b0+b1x+b2x^2+b3x^3+...bmx^m. Построить матрицу для заданных многочленов А(x), B(x) и убедиться в том, что ее определитель совпадает с результантом многочленов.
В учебниках и интернете нахожу только рандомное заполнение матрицы. Допустим, я сделаю ввод с клавиатуры a(i) и b(i), тогда получу многочлены с определенными числовыми коэффициентами, но как из этого матрицу построить потом?

[p51x]

В учебниках и интернете нахожу только рандомное заполнение матрицы.

У меня опять какой-то другой инет. Первая ссылка в гугле ведет на рувики, где нет никакого рандома.
https://ru.wikipedia.org/wiki/%D0%9C...82%D1%80%D0%B0

[Illtry]

Сообщение от p51x

У меня опять какой-то другой инет. Первая ссылка в гугле ведет на рувики, где нет никакого рандома.

Я говорю не о математическом значении и не о понятии матрицы Сильвестра. Можете подсказать ресурс, в котором можно будет найти хотя бы что-то близкое к заполнению матрицы для заданного многочлена?

[p51x]

А какой вам ресурсы нужен? Там же просто несколько циклов на каждый многочлен. Типа для первого:

для и с 0 до м делать
 для к с 0 до и s[k] = 0
 для к с и до и+н s[k] = a[н-и-к]
 для к с и+н до н+м s[k] = 0

[Illtry]

Сообщение от p51x

А какой вам ресурсы нужен? Там же просто несколько циклов на каждый многочлен. Типа для первого:

для и с 0 до м делать
 для к с 0 до и s[k] = 0
 для к с и до и+н s[k] = a[н-и-к]
 для к с и+н до н+м s[k] = 0

Мне подойдет статический массив? Или не важно?

[Illtry]

Вы написали: a[н-и-к]. Что это строка? Точнее, что значит тире между н, и, к.

[p51x]

Мне подойдет статический массив?

Если n и m вам заданы по заданию сразу, а не вводятся, то подойдет. Очевидно же.

Мне подойдет статический массив?

Обычно разность проходят в младшей школе...

[Illtry]

Сообщение от p51x

Если n и m вам заданы по заданию сразу, а не вводятся, то подойдет. Очевидно же.


Обычно разность проходят в младшей школе...

Спасибо, и извините за глупые вопросы.

[Illtry]

Сообщение от p51x

Обычно разность проходят в младшей школе...

Здравствуйте. Позволите ещё немного Вас попытать? Вот код:

uses
SysUtils;

var
i, n, m, j: integer ;
A, B: array of integer;
S: array of array of integer;

begin
write('n=');
readln(n);
setlength(a,n);
write('m=');
readln(m);
setlength(b,m);
for i:=0 to n do
readln(a[i]);
for i:=0 to m do
readln(b[i]);
SetLength(S, m+n, n+m);

for i:=1 to n+m do
begin
if i in[1..m] then
begin
for j:=1 to n+m do
begin
if j in[i..n+i] then s[i,j]:=a[n-j+i] else s[i,j]:=0;
write(s[i,j]:4);
end;
end
else if i in[m+1..m+n] then
begin
for j:=1 to n+m do
begin
if j in [i-m..i] then s[i,j]:=b[i-j] else s[i,j]:=0;
write(s[i,j]:4);
end;
end;
writeln;
end;
readln;

end.

Изначально нет ни ошибок, ни предупреждений, но когда программа делает всё, что нужно, высвечивается несколько строк ошибки и консоль резко закрывается. Почему так? В чём проблема?

[p51x]

Начните с того, что динамические массивы нумеруются с 0.