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

Matrix13. Дана квадратная матрица $$A$$ порядка $$M$$. Начиная с элемента $$A_{1,1}$$, вывести ее элементы следующим образом («уголками»): все элементы первой строки; элементы последнего столбца, кроме первого (уже выведенного) элемента; оставшиеся элементы второй строки; оставшиеся элементы предпоследнего столбца и т. д.; последним выводится элемент $$A_{M,1}$$.

Решение:

program Matrix13;

var
  a:array [1..10,1..10] of integer;
  M, i, j, i2:Integer;

begin

 Write('M: ');
 Readln(M);

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

  for i2:=1 to M do
   begin
    for i:=1 to M-i2+1 do write (' ',a[i2,i]);
    for j:=i2+1 to M do write (' ',a[j,M-i2+1]);
    writeln('');
   end;
end.

program Matrix13;

var

a:array [1..10,1..10] of integer;

M, i, j, i2:Integer;

begin

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to M do

begin

Write(j,' : ');

Read(a[i,j]);

end;

for i2:=1 to M do

begin

for i:=1 to M-i2+1 do write (' ',a[i2,i]);

for j:=i2+1 to M do write (' ',a[j,M-i2+1]);

writeln('');

end;

end.

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

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

program Matrix13;

uses TaskMatrix;//код модуля в комментариях к задаче Matrix1

var
  a: intMatrix;
  m, n, k, i, j: integer;

begin
  m := 5;
  n := m;
  
  Randomize;
  FillMatrixByRandom(a, m, n);
  PrintMatrix(a, m, n);
  
  k := 0;
  
  while (k <= m - 1) and (k <= n - 1) do
  begin
    for j := 1 to n - k do
      Write(a[1 + k, j], ' ');//1+k<=m
    Writeln;
    for i := 2 + k to m do
      Write(a[i, n - k], ' ');//n-k>=1;
    Writeln;
    k += 1;
  end;

  Readln;
end.

uses TaskMatrix;//код модуля в комментариях к задаче Matrix1

a: intMatrix;

m, n, k, i, j: integer;

m := 5;

n := m;

Randomize;

FillMatrixByRandom(a, m, n);

PrintMatrix(a, m, n);

k := 0;

while (k <= m - 1) and (k <= n - 1) do

for j := 1 to n - k do

Write(a[1 + k, j], ' ');//1+k<=m

Writeln;

for i := 2 + k to m do

Write(a[i, n - k], ' ');//n-k>=1;

k += 1;

Readln;

Ответить

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

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

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

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