Question

Помогите решить задачу на Паскаль Вывести исходный двумерный массив (размерность 5х5, случайные от числа 0 до 9). Затем транспонировать его и вывести снова. Для решения задачи(или подзадачи) желательно использовать функцию или процедуру

Answer 1

Ответ:

pascal

Объяснение:

const n = 5; m = 5;

var a: array [1..n, 1..m] of integer;

procedure fillarray(k: integer);

var i, j: integer;

begin

randomize;

for i := 1 to n do

  for j := 1 to m do a[i, j] := random(k);

end;

procedure transarray();

var i, j, k: integer;

begin

for i := 1 to n do

 for j := i+1 to m do

   begin

    k := a[i, j];

    a[i, j] := a[j, i];

    a[j, i] := k;

   end;

end;

procedure printarray();

var i, j: integer;

begin

 for i:=1 to n do

 begin

  for j:=1 to m do

    write(a[i, j]:3);

  writeln;

 end;

 writeln;

end;

begin

 fillarray(10);

 printarray();

 transarray();

 printarray();

end.

Answer 2

Для решения данной задачи на Паскаль, мы можем использовать функцию или процедуру для создания и транспонирования двумерного массива. Вот пример кода на Паскале, который выполняет указанные действия:

program TransposeArray;

const
  SIZE = 5;

type
  TArray = array[1..SIZE, 1..SIZE] of Integer;

procedure FillArray(var arr: TArray);
var
  i, j: Integer;
begin
  Randomize;
  for i := 1 to SIZE do
    for j := 1 to SIZE do
      arr[i, j] := Random(10);
end;

procedure TransposeArray(var arr: TArray);
var
  i, j, temp: Integer;
begin
  for i := 1 to SIZE do
    for j := i + 1 to SIZE do
    begin
      temp := arr[i, j];
      arr[i, j] := arr[j, i];
      arr[j, i] := temp;
    end;
end;

procedure PrintArray(const arr: TArray);
var
  i, j: Integer;
begin
  for i := 1 to SIZE do
  begin
    for j := 1 to SIZE do
      Write(arr[i, j], ' ');
    Writeln;
  end;
end;

var
  arrayToTranspose: TArray;

begin
  FillArray(arrayToTranspose);
  Writeln('Исходный массив:');
  PrintArray(arrayToTranspose);
  
  TransposeArray(arrayToTranspose);
  Writeln('Транспонированный массив:');
  PrintArray(arrayToTranspose);
end.

В этом примере мы используем процедуру `FillArray`, чтобы заполнить двумерный массив случайными числами от 0 до 9. Затем мы используем процедуру `TransposeArray`, чтобы транспонировать массив, меняя местами элементы по диагонали. Наконец, мы используем процедуру `PrintArray`, чтобы вывести исходный и транспонированный массивы на экран.

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