Создайте квадратный массив и поверните на 180 градусов - Turbo Pascal (33866)
Формулировка задачи:
Создайте квадратный массив из N строк и N столбцов,состоящий из натуральных чисел.Поверните его на 180 и выделите результат на экран монитора.
Решение задачи: «Создайте квадратный массив и поверните на 180 градусов»
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д