Сложение, умножение, НОД многочленов

[vasektemuprosek]

Вводим с клавиатуры максимальную степень обеих многочленов, затем вводим коэффициенты для каждой степени. В ответе должен быть вывод типа 10x^3+9x^2+11x и т.п. Нужно 3 программы для каждого действия (+ * НОД).

[Poma][a]

Vasek, Вы кажется тему не просекли.. Никто не будет за Вас что-либо решать.. Где приветствие? Где просьба о помощи, а не голое задание? Где Ваши наработки? Где хотя бы не правдивое объяснение, что препод зараза ничего не объясняет?

[vasektemuprosek]

Я вас категорически приветствую. Я прошу у вас помощи, великодушные обитатели данного форума. Нам дали задание, а как делать - это уже наша проблема. Наработок нет, т.к. мы делали в универе, файлы остались на каком то из множества компьютеров, где именно не помню. Суть задания: надо сложить/умножить/найти НОД двух многочленов. Мы вводим максимальную степень одного из них, например 6. Затем вводим коэффициенты, т.е. числа, стоящие перед каждым из X. Повторяем для второго числа. В итоге должны получить ответ в виде многочлена, например 6x^3 + 5x^2 + 10x. Попробую найти хоть что-нибудь и напишу в теме.

[Poma][a]

Сложение - в легкую..
Умножение - тяжелее
НОД у многочлена - без понятия..
Щас накатаем..

var
        a, b : array [1..100] of Integer;
        i, n : Integer;


begin
        ReadLn (n);

        for i := 1 to n do
                Read (a[i]);

        for i := 1 to n do
                Read (b[i]);
        
        // сложение
        if a[1] + b[1] <> 0 then
                Write (a[i]+b[i], 'x^', n);

        for i := 2 to n-1 do
                if a[i]+b[i] <> 0 then // не очень хорошо что два раза щитаем сумму, можно запомнить в переменной t, но лишняя строка да и на спичках не экономят
                        Write ('+', a[i]+b[i], 'x^', n-i+1);

        if a[n]+b[n] <> 0 then
                Write ('+', a[n]+b[n], 'x')
        
        // умножение
        if a[1] * b[1] <> 0 then
                Write (a[i]*b[i], 'x^', n*n);
        
        for i := 2 to n-1 do
                if a[i]*b[i] <> 0 then 
                        Write ('+', a[i]*b[i], 'x^', Sqr(n-i+1));

        if a[n]*b[n] <> 0 then
                Write ('+', a[n]*b[n], 'x^2')

end.

[vasektemuprosek]

Во спасибо. Немного видоизменю, чтоб понятно было. Вот прога сложения многочленов:

PHP код:

var
a, b : array [1..100] of integer;
i, n : integer;
begin
write('Vvedite stepen mnogochlenov: ');
readln (n);
write('Vvedite koefficienti 1 mnogochlena: ');
for i := 1 to n do read (a[i]);
write('Vvedite koefficienti 2 mnogochlena: ');
for i := 1 to n do read (b[i]);
write('Rezultat slojeniya: ');
if a[1] + b[1] <> 0 then write (a[i]+b[i], 'x^', n);
for i := 2 to n-1 do
if a[i]+b[i] <> 0 then write ('+', a[i]+b[i], 'x^', n-i+1);
if a[n]+b[n] <> 0 then writeln ('+', a[n]+b[n], 'x')
end. 


[vasektemuprosek]

А вот умножение не работает =( Попробую починить

[Poma][a]

А вот умножение не работает =( Попробую починить

А вот такие заявы лучше с контр примером

[vasektemuprosek]

Вот умножение:

PHP код:

var
a, b : array [1..100] of integer;
i, n : integer;
begin
write('Vvedite stepen mnogochlenov: ');
readln (n);
write('Vvedite koefficienti 1 mnogochlena: ');
for i := 1 to n do read (a[i]);
write('Vvedite koefficienti 2 mnogochlena: ');
for i := 1 to n do read (b[i]);
write('Rezultat umnojeniya: ');
if a[1]*b[1] <> 0 then write (a[1]*b[1], 'x^', n);
for i := 2 to n-1 do
if a[i]*b[i] <> 0 then write ('+', a[i]*b[i], 'x^', n-i+1);
if a[n]*b[n] <> 0 then write ('+', a[n]*b[n], 'x')
end. 


[vasektemuprosek]

Вот пример работы твоей проги:

Сложение правильно, в умножении ересь. Там степени умножало. Чуть-чуть исправить и все ок. Спасибо огромное!

[Poma][a]

Да, я забыл в одном месте подправить + на *..
Но у Вас, кажется, ошибка!
Ведь при умножении x на x Ваша программа выдаст x. А надо x^2..
Так что степени у меня правильно умножало..