Автор: Пользователь скрыл имя, 17 Декабря 2010 в 12:45, контрольная работа
Выбор структуры хранения полинома. Полиноминальная арифметика.
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])+'
for i:=1 to n do
if yr[i]<>0 then
s1:=s1+'+('+inttostr(yr[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])
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[
xyr1[j,i]:=xyr1[j,i]+y1[i]*x2[
//xyr1[i,j]:=xyr1[i,j]+y1[i]*
xyr1[i,j+j]:=xyr1[i,j+j]+x1y1[
xyr1[i+j,j]:=xyr1[i+j,j]+x1y1[
xyr1[i+i,j]:=xyr1[i+i,j]+x2y2[
xyr1[i,j+i]:=xyr1[i,j+i]+x2y2[
xyr1[i+i,j+j]:=xyr1[i+i,j+j]+
end;
for i:=1 to 2*n do
if xr1[i]<>0 then
s1:=s1+'+('+inttostr(xr1[i])+'
for i:=1 to 2*n do
if yr1[i]<>0 then
s1:=s1+'+('+inttostr(yr1[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]
memo1.Lines.Add(s1);
end;
end.