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

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

Решение:

program Param24;

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

Procedure SwaP_Col(var A:Matrix; M,N,K1,K2:integer);
var
 j:integer;
begin
 if (K1<=N) and (K2<=N) then
  for j:=1 to N do
   begin
    A[k1,j]:=A[k1,j]+A[k2,j];
    A[k2,j]:=A[k1,j]-A[k2,j];
    A[k1,j]:=A[k1,j]-A[k2,j];
   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);

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

program Param24;

type

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

var

M,N,K1,K2:integer;

A:Matrix;

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

var

j:integer;

begin

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

for j:=1 to N do

begin

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

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

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

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

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

InputMatrix(A,M,N);

end.

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

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

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

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