Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
2 / 3 / 0
Регистрация: 24.06.2013
Сообщений: 370
1

Умножение многочленов

23.08.2013, 08:24. Показов 2377. Ответов 1
Метки нет (Все метки)

В массивах a: array [0..n] of integer и b: array [0..m] of integer хранятся коэффициенты двух многочленов степеней n и m. Поместить в массив с: array [0..n+m] of integer коэффициенты их произведения и отсортировать их по возрастанию или убыванию (выбор варианта определяется пользователем). Использовать метод шейкерной сортировки.
0
Лучшие ответы (1)
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.08.2013, 08:24
Ответы с готовыми решениями:

Умножение 2-х многочленов.
Правильно ли написанно!!! если нет то исправте Умножение 2-х многочленов. 1 :uses Crt;...

Умножение полиномов (многочленов)
Срочно нужна помощь! Коэффициенты многочленов заданы списком. Нужно создать функцию умножения двух...

Обработка многочленов.
Цель работы: Закрепить умение работать с библиотекой вспомогательных алгоритмов основе составления...

вычислить произведение многочленов
Всем привет. Помогите переделать код из Turbo в ABC. Задание: Вычислить произведение двух...

1
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,133
24.08.2013, 11:28 2
Лучший ответ Сообщение было отмечено Jessy James как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
uses crt;
const nmax=20;
type mas=array[0..2*nmax] of integer;
procedure vvod(var a:mas;var n:integer;c:char);
var i:integer;
begin
repeat
write('Степень многочлена ',c,' от 1 до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите коэффициенты многочлена:');
for i:=0 to n do//заполним коэфф. с начала с x^n до св.члена
 begin
  write('k[',i,']=');
  read(a[i]);
 end;
end;
procedure vyvod(a:mas;n:integer);
var i:integer;
begin
for i:=0 to n do
write(a[i]:4);
writeln
end;
procedure umn(a,b:mas;n,m:integer;var c:mas);
var i,j:integer;
begin
for i:=0 to n do
for j:=0 to m do
c[i+j]:=c[i+j]+a[i]*b[j];
end;
procedure Sheiker(var a:mas; n,w:integer);
var d,i,j,k,x:integer;
begin
d:=1;//направление движения
i:=-1; //индекс элемента
for k:=n downto 0 do
 begin
  i:=i+d;
  for j:=0 to k-1 do
   begin
    if (w=2)and((a[i]-a[i+d])*d<0)or(w=1)and((a[i]-a[i+d])*d>0) then
    {меняем местами соседние элементы}
     begin
      x:=a[i];
      a[i]:=a[i+d];
      a[i+d]:=x;
     end;
    i:=i+d;
   end;
  d:=-d; {меняем направление движения на противоположное}
 end;
end;
 
var a,b,c:mas;
    m,n,w:integer;
begin
vvod(a,n,'A');
vvod(b,m,'B');
clrscr;
writeln('Многочлен A:');
vyvod(a,n);
writeln('Многочлен B:');
vyvod(b,m);
umn(a,b,n,m,c);
writeln('Многочлен A*B:');
vyvod(c,n+m);
writeln('Как сортировать? 1-По возрастанию 2-По убыванию');
repeat
read(w);
until w in [1,2];
Sheiker(c,n+m,w);
writeln('Отсортированный массив коэффициентов произведения:');
vyvod(c,n+m)
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.08.2013, 11:28

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Построение многочленов и арифметические операции с ними
дан многочлен вида p(x) = c1xe1 + c2xe2 + … + cnxen , где e1 &gt; e2 &gt; … &gt; en &gt;= 0. Этот...

Напишите процедуру сложения двух многочленов
5.17 Напишите процедуру сложения двух многочленов. Представьте каждый многочлен в виде массива...

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

Найти НОД 2-х многочленов, используя алгоритм Евклида
Алгоритм основан на том факте, что для любых двух многочленов от одного переменного, f(x) и g(x),...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.