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

Memo1.Lines.Add(temp_str);

temp_str:='';

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

temp_str:=temp_str+'___________';

Memo1.Lines.Add(temp_str);

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

begin

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

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

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

Memo1.Lines.Add(temp_str);

end;

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

begin

y_mas[f1_mas[i,1]-1,f1_mas[i,2]-1]:=1;

end;

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)+' ';

Memo1.Lines.Add(temp_str);

temp_str:='';

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

temp_str:=temp_str+'___________';

Memo1.Lines.Add(temp_str);

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

begin

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

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

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

Memo1.Lines.Add(temp_str);

end;

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

setlength(main_mas_copy,length(main_mas),length(main_mas[0]));

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

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

main_mas_copy[i,j]:=main_mas[i,j];

setlength(v,length(f_mas),1);

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

v[i,0]:=-1;

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

begin

flag:=false;

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

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

begin

if v[k,0]<>-1 then

begin

if (v[k,0]=f_mas[i,2]) then

flag:=true;

end

else

break;

end;

if not flag then

begin

v[k,0]:=f_mas[i,2];

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

main_mas_copy[f_mas[i,2]-1,j]:=power1(main_mas_copy[f_mas[i,1]-1,j], main_mas_copy[f_mas[i,2]-1,j]);

end;

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_copy[i])-1 do

temp_str:=temp_str+IntToStr(main_mas_copy[i,j])+' ';

Memo1.Lines.Add(temp_str);

end;

setlength(v,length(f1_mas),1);

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

v[i,0]:=-1;

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

begin

flag:=false;

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

begin

if v[k,0]<>-1 then

begin

if (v[k,0]=f1_mas[i,2]) then

flag:=true;

end