Решаем задачи Абрамян на Паскале. Param23

Param23. Описать процедуру SwapRow( $A$ , $M$ , $N$ , $K_1$ , $K_2$ ), осуществляющую перемену местами строк вещественной матрицы $A$ размера $M \times N$ с номерами $K_1$ и $K_2$ . Матрица $A$ является входным и выходным параметром; если $K_1$ или $K_2$ больше $M$ , то матрица не изменяется. Используя эту процедуру, поменять для данной матрицы $A$ размера $M \times N$ строки с данными номерами $K_1$ и $K_2$ .

Решение:

program Param23;

type
 Matrix = array[1..10,1..10] of integer;
var
 M,N,K1,K2:integer;
 A:Matrix;

Procedure SwapRow(var A:Matrix; M,N,K1,K2:integer);
var
 j:integer;
begin
 if (K1<=M) and (K2<=M) then
  for j:=1 to N do
   begin
    A[j,k1]:=A[j,k1]+A[j,k2];
    A[j,k2]:=A[j,k1]-A[j,k2];
    A[j,k1]:=A[j,k1]-A[j,k2];
   end;
end;

Procedure EnterMatrix(var B:Matrix; var M,N:integer);
var j,j2:integer;
begin
 Write('M: ');
 Readln(M);

 Write('N: ');
 Readln(N);

 for j:=1 to N do
  begin
   for j2:=1 to M do
    begin
     Write (' ',J2,':',J,' : ');
     Read (B[J2,J]);
    end;
   Writeln;
  end;
end;

Procedure InputMatrix(B:Matrix; M,N:integer);
var j,j2:integer;
begin
 Writeln('---');
 for j:=1 to N do
  begin
   for j2:=1 to M do
    Write (B[J2,J],' ');
   Writeln;
  end;
 Writeln('---');
end;


begin
 EnterMatrix(A,M,N);
 Write('K1: ');
 Readln(K1);
 Write('K2: ');
 Readln(K2);

 SwapRow(A,M,N,K1,K2);
 InputMatrix(A,M,N);
end.

program Param23;

type

Matrix = array[1..10,1..10] of integer;

var

M,N,K1,K2:integer;

A:Matrix;

Procedure SwapRow(var A:Matrix; M,N,K1,K2:integer);

var

j:integer;

begin

if (K1<=M) and (K2<=M) then

for j:=1 to N do

begin

A[j,k1]:=A[j,k1]+A[j,k2];

A[j,k2]:=A[j,k1]-A[j,k2];

A[j,k1]:=A[j,k1]-A[j,k2];

end;

Procedure EnterMatrix(var B:Matrix; var M,N:integer);

var j,j2:integer;

begin

Write('M: ');

Readln(M);

Write('N: ');

Readln(N);

for j:=1 to N do

begin

for j2:=1 to M do

begin

Write (' ',J2,':',J,' : ');

Read (B[J2,J]);

end;

Writeln;

end;

Procedure InputMatrix(B:Matrix; M,N:integer);

var j,j2:integer;

begin

Writeln('---');

for j:=1 to N do

begin

for j2:=1 to M do

Write (B[J2,J],' ');

Writeln;

end;

Writeln('---');

end;

begin

EnterMatrix(A,M,N);

Write('K1: ');

Readln(K1);

Write('K2: ');

Readln(K2);

SwapRow(A,M,N,K1,K2);

InputMatrix(A,M,N);

end.

Другие задачи из раздела Param можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Param23

Комментарии:

Добавить комментарий Отменить ответ