Задача на многочлены, Помогите решить Опции

[Demon_6661]

Степень ограничим 10

[Demon_6661]

Для удовства можно вводить переменные по порядку, не y^2+x^3 а x^3+y^2

[мисс_граффити]

что-то такое получилось....
плохо без списков

 program slogenie;
var koeff1,koeff2,res:array[1..26,1..10] of integer;
i,j,st,nom:integer;
begin
  for i:=1 to 26 do
    for j:=1 to 10 do
      begin
      koeff1[i,j]:=0;
      koeff2[i,j]:=0;
      end;
  {vvod koeff1}
  nom:=1;
  while nom<>0 do
    begin
    writeln('mnog1: vvedite nomer peremennoy (0 dlya vyhoda)');
    readln(nom);
    if nom=0 then
      break;
    st:=1;
    while st<>0 do
      begin
      writeln('vvedite stepen (0 dlya vyhoda)');
      readln(st);
      if st=0 then
        break;
      writeln('vvedite sootv koeff');
      readln(koeff1[nom,st]);
      end;
    end;
  {vvod koeff2}
  nom:=1;
  while nom<>0 do
    begin
    writeln('mnog2: vvedite nomer peremennoy (0 dlya vyhoda)');
    readln(nom);
    if nom=0 then
      break;
    st:=1;
    while st<>0 do
      begin
      writeln('vvedite stepen (0 dlya vyhoda)');
      readln(st);
      if st=0 then
        break;
      writeln('vvedite sootv koeff');
      readln(koeff2[nom,st]);
      end;
    end;

  {podschet summy}
  for i:=1 to 26 do
    for j:=1 to 10 do
      res[i,j]:=koeff1[i,j]+koeff2[i,j];
end.

[Demon_6661]

а как перемножать их?

[мисс_граффити]

единственная идея, которая возникает, абсолютно бешеная - четырехмерный массив...
каждый коэффициент (равный произведению коэффициентов) находится на пересечении тех степеней переменных, при перемножении которых он получился.
то есть если мы умножим 2a^3 на a^2, получим значение 2 в ячейке [1,3,1,2]

[Demon_6661]

А что делать дальше с задачей про сложение? А произведение мне главно здать препод тупой ничего не поймет

[мисс_граффити]

сложение я тебе написала.
что не нравится?

[Demon_6661]

Видимо что-то не хватает потому чио она результат не выводит

[мисс_граффити]

ты даже вывод сам написать не можешь?
в массиве res получились все нужные коэффициенты.
а уж в каком формате их выводить (то ли кучей цифр, то ли писать буквы и степени) - будь добр, разберись сам.

[volvo]

единственная идея, которая возникает, абсолютно бешеная - четырехмерный массив...

У меня только что возникла более интересная идея:

 POLYN.PAS ( 3.99 килобайт ) Кол-во скачиваний: 515


Результат работы программы -

enter the element
letter: [A .. Z, <enter> to stop]: a
coeff = 4
power = 2
enter the element
letter: [A .. Z, <enter> to stop]: z
coeff = -8
power = 5
enter the element
letter: [A .. Z, <enter> to stop]: b
coeff = 7
power = 3
enter the element
letter: [A .. Z, <enter> to stop]:
p = +4*A^(2)-8*Z^(5)+7*B^(3)
enter the element
letter: [A .. Z, <enter> to stop]: a
coeff = 2
power = 2
enter the element
letter: [A .. Z, <enter> to stop]: z
coeff = -8
power = 3
enter the element
letter: [A .. Z, <enter> to stop]: b
coeff = 4
power = 3
enter the element
letter: [A .. Z, <enter> to stop]:
p = +2*A^(2)-8*Z^(3)+4*B^(3)
adding:
p = +6*A^(2)-8*Z^(5)-8*Z^(3)+11*B^(3)
multiply:
p = +8*A^(4)-32*A^(2)*Z^(3)+30*A^(2)*B^(3)-16*Z^(5)*A^(2)+64*Z^(5)*Z^(3)-32*Z^(5
)*B^(3)-56*B^(3)*Z^(3)+28*B^(6)

[мисс_граффити]