Курсовая работа: Программирование на Delphi с алгоритмами и кодами

stringgrid1.Cells[i,0]:=inttostr(i);

for i:=1 to n+1 do

stringgrid2.Cells[0,i]:=inttostr(i);

for i:=1 to n+2 do

stringgrid2.Cells[i,0]:=inttostr(i);

for i:=1 to n do

for j:=1 to n+1 do

begin

mas1[i,j]:=random(98)+1; // формируем значения исходного массива

stringgrid1.Cells[j,i]:=inttostr(mas1[i,j]); // выводим значения исходного массива в таблицу

end;

// формируем промежуточный массив вставкой строки в исходный массив

for i:=1 to p do

for j:=1 to n+1 do

mas[i,j]:=mas1[i,j];

for j:=1 to n+1 do

mas[p+1,j]:=a[j];

for i:=p+2 to n+1 do

for j:=1 to n+1 do

mas[i,j]:=mas1[i-1,j];

// формируем конечный массив вставкой столбца в промежуточный массив

for j:=1 to q do

for i:=1 to n+1 do

mas2[i,j]:=mas[i,j];

for i:=1 to n+1 do

mas2[i,q+1]:=b[i];

for j:=q+2 to n+2 do

for i:=1 to n+1 do

mas2[i,j]:=mas[i,j-1];