Заменить все отрицательные элементы матрицы на их квадраты - Turbo Pascal (33760)

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

Составить программу обработки двухмерного массива,оформив ввод/вывод и обработки элементов массива в виде подпрограмм.Заменить все отрицательные элементы массива K(n,m) на их квадраты,положительные на корень из данного числа

Решение задачи: «Заменить все отрицательные элементы матрицы на их квадраты»

Листинг программы

const
  n = 3;
  m = 4;
 
type
  matrix = array [1..n, 1..m] of real;
 
var
  k: matrix;
 
 
procedure input(var x: matrix; _n, _m: integer);
var
  i, j: byte;
begin
  for i := 1 to _n do
    for j := 1 to _m do
    begin
      Write('[', i, ';', j, ']=');
      Readln(x[i, j]);
    end;
end;
 
procedure output(x: matrix; _n, _m: byte);
var
  i, j: byte;
begin
  for i := 1 to _n do
  begin
    for j := 1 to _m do
      Write(x[i, j]:7:2);
    Writeln
  end;
  Writeln
end;
 
procedure change(var x: matrix; _n, _m: byte);
var
  i, j: byte;
begin
  for i := 1 to _n do
    for j := 1 to _m do
      if x[i, j] < 0 then
        x[i, j] := Sqr(x[i, j])
      else
        x[i, j] := Sqrt(x[i, j]);
end;
 
begin
  Writeln('Введите элементы:');
  input(k, n, m);
  Writeln('Исходная матрица:');
  output(k, n, m);
  change(k, n, m);
  Writeln('Полученная матрица:');
  output(k, n, m);
  Readln
end.

Объяснение кода листинга программы

В начале объявляются константы n и m, которые задают размерность матрицы.
Затем объявляется тип данных matrix, который представляет собой массив целых чисел.
Далее объявляется переменная k типа matrix, которая будет использоваться для хранения матрицы.
В функции input считываются элементы матрицы из стандартного ввода. Для каждого элемента в цикле for i <= n и j <= m выполняется следующая последовательность действий:
- Выводится символ [.
- Считывается число x[i, j] с помощью функции Readln.
- Число x[i, j] записывается в элемент матрицы k[i, j].
- Выводится символ =.
- Считывается число x[i, j] с помощью функции Readln.
- Выводится символ ].
В функции output выводятся элементы матрицы k на экран. Для каждого элемента в цикле for i <= n и j <= m выполняется следующая последовательность действий:
- Выводится значение элемента k[i, j] с помощью функции Write.
- Выводится символ =.
- Выводится значение элемента k[i, j] с помощью функции Write.
- Выводится символ \n.
В функции change происходит замена отрицательных элементов матрицы на их квадраты. Для каждого элемента в цикле for i <= n и j <= m выполняется следующая последовательность действий:
- Если значение элемента k[i, j] меньше нуля, то оно заменяется на квадрат этого значения.
- Иначе, значение элемента k[i, j] заменяется на квадратный корень этого значения.
В основной части программы вызываются функции input, output и change. После окончания работы программы выводится символ Readln.