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

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

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

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

textual
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.

9   голосов, оценка 4.333 из 5


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