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

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


textual

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

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



Похожие ответы
  1. Помогите,пожалуйста, написать программу в Pascal

  1. Создайте программу обхода дерева по принципу левый – правый – корень pls)0

  1. Помогите, пожалуйста, написать программу. Дан текстовый файл, содержащий вещественные числа. Создайте два новых файла из положительных и отрицательных чисел соответственно. Подсчитать количество компонент в полученных файлах.

  1. Создайте процедуру, которая сортирует три аргумента по возрастанию: так чтобы в 1-ый аргумент попало самое маленькое число, во 2-ой – среднее, в 3-ий самое большое.

  1. Создайте свой собственный модуль, реализующий математические функции, которых нет среди стандартных функций языка Паскаль (тангенс, котангенс, обратные тригонометрические функции, возведение в степень и т.п.).

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

  1. Помогите написать программу,которая заменяет в двумерном массиве целых чисел все элементы массива на квадратный корень из этого элемента) Заранее спасибо

  1. Помогите написать программу В двумерном массиве целочисленных чисел нужно заменить все элементы массива на квадратный корень этих элементов. Заранее спасибо)

  1. в файл записан квадратный массив,нужно прочитать главную диагональ не используя массив.Немогу понять как это сделать???Помогите пожалуйста....