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

else

break;

end;

if not flag then

begin

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

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

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

end;

end;

Memo1.Lines.Add('');

Memo1.Lines.Add('');

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

memo1.Lines.Add('');

temp_str:=' ';

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

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

memo1.Lines.add(temp_str);

temp_str:='';

for j:=0 to length(bzm[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(bzm[i])-1 do

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

Memo1.Lines.Add(temp_str);

end;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

WindowState:=wsMaximized;

end;

end.

40