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

Matrix68. Дана матрица размера $M \times N$ и целое число $K$ $(1 \le K \le M)$ . Перед строкой матрицы с номером $K$ вставить строку из нулей.

Решение:

program Matrix68;
type
  matrix = array [1..10,1..10] of integer;

var
  a:matrix;
  K, M, N, i, j:Integer;

procedure AddMatrixRow(var mat:matrix; X:Integer);
var
 i,j:integer;
begin
 if x>0 then
  begin
   M:=M+1;
   for  i:=M downto k+1 do
    for j:=1 to N do
     a[i,j]:=a[i-1,j];
  end;
end;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);
 Write('K: ');
 Readln(K);

 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;

 AddMatrixRow(a,k);
 for j:=1 to N do a[k,j]:=0;

 for  i:=1 to M do
  begin
   for j:=1 to N do
    begin
     Write(' : ',a[i,j]);
    end;
   writeln(' : ');
  end;
end.

program Matrix68;

type

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

var

a:matrix;

K, M, N, i, j:Integer;

procedure AddMatrixRow(var mat:matrix; X:Integer);

var

i,j:integer;

begin

if x>0 then

begin

M:=M+1;

for i:=M downto k+1 do

for j:=1 to N do

a[i,j]:=a[i-1,j];

end;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

Write('K: ');

Readln(K);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

AddMatrixRow(a,k);

for j:=1 to N do a[k,j]:=0;

for i:=1 to M do

begin

for j:=1 to N do

begin

Write(' : ',a[i,j]);

end;

writeln(' : ');

end;

end.

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

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

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

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