Программа массивы в Pascal

[narutojjjj]

Программа массивы в Pascal

Напишите программу которая меняет местами первый и последний столбец размерностью матрицы N*M в матрицах A и В заранее спасибо tehnobanka

 

[Vladimir_S]

Напишите программу которая меняет местами первый и последний столбец размерностью матрицы N*M в матрицах A и В заранее спасибо tehnobanka

Да пожалуйста:

Const
 M=4;
 N=10;

Type
 Matr=Array[1..M,1..N] of Integer;
 Matr_T=Array[1..N,1..M] of Integer;
 Vect=Array[1..M] of Integer;


Var
 A,B:Matr;
 A_T,B_T:Matr_T;
 V:Vect;

Procedure Out(Q:Matr);
var
 i,j:Integer;
begin
 for i:=1 to M do
  begin
   for j:=1 to N do Write(Q[i,j]:4);
   writeln;
  end;
end;

Procedure Inp(var Q:Matr);
var
 i,j:Integer;
begin
 for i:=1 to M do
  for j:=1 to N do
   Q[i,j]:=Random(100);
end;

Procedure Trans_Forw(Q:Matr; var P:Matr_T);
var
 i,j:Integer;
begin
 for i:=1 to M do
  for j:=1 to N do
   P[j,i]:=Q[i,j];
end;

Procedure Trans_Back(P:Matr_T; var Q:Matr);
var
 i,j:Integer;
begin
 for i:=1 to N do
  for j:=1 to M do
   Q[j,i]:=P[i,j];
end;

Procedure Exch(var P:Matr_T);
begin
 V:=P[1];
 P[1]:=P[N];
 P[N]:=V;
end;

Begin
 Randomize;
 Inp(A);
 Inp(B);
 Writeln('Initial matrix A:');
 Out(A);
 writeln;
 Writeln('Initial matrix B:');
 Out(B);
 Writeln;
 Trans_Forw(A,A_T);
 Trans_Forw(B,B_T);
 Exch(A_T);
 Exch(B_T);
 Trans_Back(A_T,A);
 Trans_Back(B_T,B);
 Writeln('New matrix A:');
 Out(A);
 Writeln;
 Writeln('New matrix B:');
 Out(B);
 Readln
End.