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

Param27. Описать процедуру RemoveCols( $A$ , $M$ , $N$ , $K_1$ , $K_2$ ), удаляющую из вещественной матрицы $A$ размера $M \times N$ столбцы с номерами от $K_1$ до $K_2$ включительно (предполагается, что $1 < K_1 \le K_2$ ). Если $K_1>N$ , то матрица не изменяется; если $K_2>N$ , то удаляются столбцы матрицы с номерами от $K_1$ до $N$ . Двумерный массив $A$ и числа $M$ , $N$ являются входными и выходными параметрами. Используя процедуру RemoveCols, удалить из данной матрицы $A$ размера $M \times N$ столбцы с номерами от $K_1$ до $K_2$ и вывести размер полученной матрицы и ее элементы.

Решение:

program Param27;

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

Procedure RemoveCols(var A:Matrix; var M,N:integer ;K1,K2:integer);
var
 Atemp:Matrix;
 j2,j,Mtemp:integer;
begin
 Mtemp:=0;
 for j:=1 to M do
  begin
   if (J<K1) or (K2<J) then
    begin
     inc(Mtemp);
     for j2:=1 to M do Atemp[Mtemp,J2]:=A[J,J2];
    end;
  end;
 A:=Atemp;
 M:=Mtemp;
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('---');
 Writeln(M,'x',N);
 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);
 RemoveCols(A,M,N,K1,K2);
 InputMatrix(A,M,N);
end.

program Param27;

type

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

var

M,N,K1,K2:integer;

A:Matrix;

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

var

Atemp:Matrix;

j2,j,Mtemp:integer;

begin

Mtemp:=0;

for j:=1 to M do

begin

if (J<K1) or (K2<J) then

begin

inc(Mtemp);

for j2:=1 to M do Atemp[Mtemp,J2]:=A[J,J2];

end;

A:=Atemp;

M:=Mtemp;

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

Writeln(M,'x',N);

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

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

InputMatrix(A,M,N);

end.

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

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

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

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