Қосымшаның жалғасы

Memo1.Lines.Add('');

temp_str:=' ';

for j:=0 to length(x_mas[0])-1 do

temp_str:=temp_str+inttostr(j+1)+' ';

Memo1.Lines.Add(temp_str);

temp_str:='';

for j:=0 to length(x_mas[0])-1 do

temp_str:=temp_str+'____________';

Memo1.Lines.Add(temp_str);

for i:=0 to length(x_mas)-1 do

begin

temp_str:=inttostr(i+1)+' | ';

for j:=0 to length(x_mas[i])-1 do

temp_str:=temp_str+inttostr(x_mas[i,j])+' ';

Memo1.Lines.Add(temp_str);

end;

///////////-----------------------------------------------------

setlength(temp_mas,length(main_mas[0])-length(bzm[0]),length(bzm[0])+1);

for i:=0 to length(temp_mas[0])-1 do

for j:=0 to length(temp_mas[i])-1 do

temp_mas[i,j]:=0;

for i:=0 to length(temp_mas)-1 do

for j:=1 to length(temp_mas[i])-1 do

begin

sum:=0;

for k:=0 to length(bzm)-1 do

sum:=sum+power(main_mas[k,j-1],main_mas[k,length(bzm[0])+i]);

temp_mas[i,j]:=sum;

temp_mas[i,0]:=length(bzm[0])+i+1;

end;

Memo1.Lines.Add('');

Memo1.Lines.Add('');

Memo1.Lines.Add('P матрицасы');

Memo1.Lines.Add('');

temp_str:=' ';

for j:=0 to length(main_mas[0])-1 do

temp_str:=temp_str+inttostr(j)+' ';

memo1.Lines.add(temp_str);

temp_str:='';

for j:=0 to length(main_mas[0])-1 do

temp_str:=temp_str+'______';

memo1.Lines.add(temp_str);

for i:=0 to length(bzm) -1 do

begin

temp_str:=inttostr(i+1)+' | ';

for j:=0 to length(main_mas[i])-1 do

temp_str:=temp_str+inttostr(main_mas[i,j])+' ';

memo1.Lines.add(temp_str);

end;

Қосымшаның жалғасы

Memo1.Lines.Add('');

Memo1.Lines.Add('');

Memo1.Lines.Add('D=[d(l,j)] матрицасы');

Memo1.Lines.Add('');

temp_str:='l/j ';

for i:=0 to length(temp_mas[0])-2 do

temp_str:=temp_str+IntToStr(i+1)+' ';

Memo1.Lines.Add(temp_str);

temp_str:='';

for i:=0 to length(temp_mas[0])-2 do

temp_str:=temp_str+'__________';

Memo1.Lines.Add(temp_str);

for i:=0 to length(temp_mas)-1 do

begin

temp_str:='';

for j:=0 to length(temp_mas[i])-1 do

temp_str:=temp_str+inttostr(temp_mas[i,j])+' ';

Memo1.Lines.Add(temp_str);

end;

////////////-----------------------------------------------------------

setlength(f1_mas,length(temp_mas),3);

for i:=0 to length(f1_mas)-1 do

begin

getminandindex(temp_mas,f1_mas[i,0],f1_mas[i,1],f1_mas[i,2]);

if i<>length(f1_mas)-1 then

temp_mas:=deleterow(temp_mas,f1_mas[i,1]);

end;

Memo1.Lines.Add('');

Memo1.Lines.Add('');

Memo1.Lines.Add('Итерация n min d(l*,j*) l* j*');

Memo1.Lines.Add('________________________________________');

for i:=0 to length(f1_mas)-1 do

begin

temp_str:=' n='+inttostr(i+1)+' | ';

for j:=0 to length(f1_mas[i])-1 do

temp_str:=temp_str+inttostr(f1_mas[i,j])+' ';

Memo1.Lines.Add(temp_str);

end;

///////////----------------------------------------------------------

setlength(y_mas,length(main_mas[0]),length(bzm[0]));

for i:=0 to length(y_mas[0])-1 do

y_mas[i,i]:=1;

Memo1.Lines.Add('');

Memo1.Lines.Add('');

Memo1.Lines.Add('Y матрицасы ');

Memo1.Lines.Add('');

temp_str:=' ';

for j:=0 to length(y_mas[i])-1 do

temp_str:=temp_str+inttostr(j+1)+' ';