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

[vasektemuprosek]

А ну да точно, надо же еще x перемножать =/

[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*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 writeln ('+', a[n]*b[n], 'x^2')
end. 


[vasektemuprosek]

А ведь если подумать, то это нихрена не правильно. При умножении многочленов надо умножать сначала первое число на все, потом второе и т.д.

[Poma][a]

А ведь если подумать, то это нихрена не правильно. При умножении многочленов надо умножать сначала первое число на все, потом второе и т.д.

Точняк.... Может вечерком набросаю, если освобожусь..

[vasektemuprosek]

Программа сложения еще неправильно считала первое число, если там был 0. Вот теперь уж точно рабочий вариант:

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[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 writeln ('+', a[n]+b[n], 'x')
end. 


[Poma][a]

Вообщем пока нет идей, как нахимичить с одномерным массивом только целых чисел, храня только коэффициенты.. Можно сделать массив записи и уже химичить с степенями и коэффициентами.. Но хочется без записи.. Может у кого-то идеи есть?

P.S. Не вижу разницы между Вашим кодом в посте #15 и моим исходным кодом..