Автор: Bronislav

Bronislav — Mon, 03 Sep 2018 14:58:25 +0000

В модуль TaskMatrix добавляю процедуру SwapMatrixRow:

procedure SwapMatrixRow(var a: intMatrix; m, n, i1, i2: integer);
var
  j, tmp: integer;
begin
  for j := 1 to n do
  begin
    tmp := a[i1, j];
    a[i1, j] := a[i2, j];
    a[i2, j] := tmp
  end
end;

procedure SwapMatrixRow(var a: intMatrix; m, n, i1, i2: integer);

var

j, tmp: integer;

begin

for j := 1 to n do

begin

tmp := a[i1, j];

a[i1, j] := a[i2, j];

a[i2, j] := tmp

end

end;

Программа с использованием модуля:

program Matrix47;//fpc

uses TaskMatrix;

var
  a: intMatrix;
  M, N, K1, K2: Integer;

begin
  M := 3;
  N := 4;
  
  K1 := 1;
  K2 := 2;
  
  FillMatrixByRandom(a, m, n, 0, 100);
  PrintMatrix(a, m, n);
  
  SwapMatrixRow(a, m, n, K1, K2);
  
  Writeln;
  PrintMatrix(a, m, n);
  
end.

program Matrix47;//fpc

uses TaskMatrix;

var

a: intMatrix;

M, N, K1, K2: Integer;

begin

M := 3;

N := 4;

K1 := 1;

K2 := 2;

FillMatrixByRandom(a, m, n, 0, 100);

PrintMatrix(a, m, n);

SwapMatrixRow(a, m, n, K1, K2);

Writeln;

PrintMatrix(a, m, n);

end.

Комментарии: Решаем задачи Абрамян на Паскале. Matrix47

Автор: Bronislav