Создайте квадратный массив и поверните на 180 градусов - Turbo Pascal (33866)

Формулировка задачи:

Создайте квадратный массив из N строк и N столбцов,состоящий из натуральных чисел.Поверните его на 180 и выделите результат на экран монитора.

Код к задаче: «Создайте квадратный массив и поверните на 180 градусов - Turbo Pascal (33866)»

textual
const
  n = 5;
 
type
  TMatrix = array[1..n,1..n] of Byte;
 
procedure MatrixRandom(var M: TMatrix);
var
  i, j: Integer;
begin
  Randomize;
  for i := 1 to n do
    for j := 1 to n do
      M[i,j] := Random(99) + 1;
end;
 
procedure MatrixPrint(const M: TMatrix);
var
  i, j: Integer;
begin
  for i := 1 to n do begin
    for j := 1 to n do
      Write(M[i,j]:4);
    WriteLn;
  end;
end;
 
procedure MatrixReverse(var M: TMatrix);
var
  i, j, tmp: Integer;
begin
  for i := 1 to n - 1 do
    for j := 1 to n - i + 1 do begin
      tmp := M[i,j];
      M[i,j] := M[n-i+1,n-j+1];
      M[n-i+1,n-j+1] := tmp;
    end;
end;
 
var
  M: TMatrix;
 
begin
  MatrixRandom(M);
  MatrixPrint(M);
  WriteLn;
  MatrixReverse(M);
  MatrixPrint(M);
  ReadLn;
end.

13   голосов, оценка 3.923 из 5


СОХРАНИТЬ ССЫЛКУ