Question

Срочно Задача Pasckal: Поменять местами столбцы массива если можно и для строк напишите!!!

Answer 1

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var (p,q):=ReadInteger2('Укажите номера строк для обмена: ');
  a.SwapRows(p-1,q-1);
  Writeln('*** Полученный массив ***'); a.Println(4);
  (p,q):=ReadInteger2('Укажите номера столбцов для обмена: ');
  a.SwapCols(p-1,q-1);
  Writeln('*** Полученный массив ***'); a.Println(4);
end.

Answer 2

Var
  A: array [1..5, 1..5] of integer;
  i, j, tmp, FL, SL: integer;
begin
for i := 1 to 5 do
begin
  for j := 1 to 5 do
    begin
    A[i, j] := random(101)-50;
    write(A[i, j]:4);
    end;
  writeln;   
 end;

writeln('Обмен строк.');
write('Введите два числа(№ строк) = ');
readln(FL, SL);
for j := 1 to 5 do
begin
  tmp := A[FL, j];
  A[FL, j] := A[SL, j];
  A[SL, j] := tmp;   
end;
for i := 1 to 5 do
begin
  for j := 1 to 5 do
    write(A[i, j]:4);
  writeln;
end;

writeln('Обмен столбцов.');
write('Введите два числа(№ столбцов) = ');
readln(FL, SL);
for i := 1 to 5 do
begin
  tmp := A[i, FL];
  A[i, FL] := A[i, SL];
  A[i, SL] := tmp;   
end;
for i := 1 to 5 do
begin
  for j := 1 to 5 do
    write(A[i, j]:4);
  writeln;
end;

end.

Answer 3

Для перестановки столбцов и строк в массиве Паскаля (треугольника Паскаля), вы можете использовать следующий подход:

1. Для перестановки столбцов:

   • Меняйте местами элементы с одинаковыми индексами в разных строках массива.

2. Для перестановки строк:

   • Меняйте местами строки массива целиком.

Здесь я предполагаю, что у вас есть двумерный массив, представляющий треугольник Паскаля. Вам нужно будет обратиться к конкретным элементам массива с помощью их индексов.

Приведу пример на языке Python для лучшего понимания:

pythonCopy code
def swap_columns(arr, col1, col2):
    for row in arr:
        row[col1], row[col2] = row[col2], row[col1]

def swap_rows(arr, row1, row2):
    arr[row1], arr[row2] = arr[row2], arr[row1]

# Пример массива, представляющего треугольник Паскаля
pascal_triangle = [
    [1],
    [1, 1],
    [1, 2, 1],
    [1, 3, 3, 1],
    [1, 4, 6, 4, 1]
]

# Пример перестановки столбцов (столбцы с индексами 1 и 3)
swap_columns(pascal_triangle, 1, 3)

# Пример перестановки строк (строки с индексами 2 и 4)
swap_rows(pascal_triangle, 2, 4)

# Вывод результата
for row in pascal_triangle:
    print(row)

Поменяв местами столбцы с индексами 1 и 3, а также строки с индексами 2 и 4, вы получите следующий результат:

csharpCopy code
[1]
[1, 1]
[1, 4, 1]
[1, 3, 3, 1]
[1, 2, 6, 4, 1]

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