Арифметика многочленов

Автор: Пользователь скрыл имя, 17 Декабря 2010 в 12:45, контрольная работа

Краткое описание

Выбор структуры хранения полинома. Полиноминальная арифметика.

Файлы: 1 файл

1 ТЕОРЕТИЧЕСКАЯ ЧАСТЬ.doc

— 278.50 Кб (Скачать)

end;

for i:=1 to n do

for j:=1 to n do

xyr[i,j]:=x1y1[i,j]-x2y2[i,j];

for i:=1 to n do

if xr[i]<>0 then

s1:=s1+'+('+inttostr(xr[i])+'x^'+inttostr(i)+')';

for i:=1 to n do

if yr[i]<>0 then

s1:=s1+'+('+inttostr(yr[i])+'y^'+inttostr(i)+')';

for i:=1 to n do

for j:=1 to n do

if xyr[i,j]<>0 then

s1:=s1+'+('+inttostr(xyr[i,j])+'x^'+inttostr(i)+'y^'+inttostr(j)+')';

memo1.Lines.Add(s1);

end; 

procedure TForm1.N4Click(Sender: TObject);

var i,j:integer;

begin

memo1.Lines.Add('Умножение');

s1:='';

for i:=1 to 2*n do

for j:=1 to 2*n do

begin

xr1[i]:=0;

yr1[i]:=0;

xyr1[i,j]:=0;

end;

for i:=1 to n do

for j:=1 to n do

begin

xr1[i+j]:=xr1[i+j]+x1[i]*x2[j];

yr1[i+j]:=yr1[i+j]+y1[i]*y2[j];

xyr1[i,j]:=xyr1[i,j]+x1[i]*y2[j];

xyr1[j,i]:=xyr1[j,i]+y1[i]*x2[j];

//xyr1[i,j]:=xyr1[i,j]+y1[i]*x2[j];

xyr1[i,j+j]:=xyr1[i,j+j]+x1y1[i,j]*y2[j];

xyr1[i+j,j]:=xyr1[i+j,j]+x1y1[i,j]*x2[j];

xyr1[i+i,j]:=xyr1[i+i,j]+x2y2[i,j]*x1[i];

xyr1[i,j+i]:=xyr1[i,j+i]+x2y2[i,j]*y1[i];

xyr1[i+i,j+j]:=xyr1[i+i,j+j]+x1y1[i,j]*x2y2[i,j];

end;

for i:=1 to 2*n do

if xr1[i]<>0 then

s1:=s1+'+('+inttostr(xr1[i])+'x^'+inttostr(i)+')';

for i:=1 to 2*n do

if yr1[i]<>0 then

s1:=s1+'+('+inttostr(yr1[i])+'y^'+inttostr(i)+')';

for i:=1 to 2*n do

for j:=1 to 2*n do

if xyr1[i,j]<>0 then

s1:=s1+'+('+inttostr(xyr1[i,j])+'x^'+inttostr(i)+'y^'+inttostr(j)+')';

memo1.Lines.Add(s1);

end; 

end.

     2.1 Блок – схема алгоритма

     

     

     

     

Информация о работе Арифметика многочленов