Задана матрица NxM...

[AZelensky]

Задана матрица NXM, где N>1, M>1. В матрице поменять местами I-тую строку и J-тый столбец.

Начало кода я смастерил, а вот сам процесс смены я не понял. Прочитал здесь на форуме тему, посвящённую этому дело, но всё ровно не понял.

Вот код того, что на данный момент у меня имеется:

USES CRT;
CONST
MaxElI = 30;
MaxElJ = 30;
Var
MatrixMass: array [1..MaxElI, 1..MaxElJ] of REAL;
n: integer;
i, j: byte;
Begin
CLRSCR;
write('Enter max element: '); READ(n);
While (n <= 1) do begin
write('Enter max element: '); READ(n);
end;
writeln('Enter values: ');
For i:= 1 to n Do begin
For j:= 1 to n Do begin

    write('Matrix element ', i, 'x', j, ' : ');
    READLN(MatrixMass[i, j]);
    end;
end;
writeln('The resulting array: ');
Writeln('Получившаяся матрица:');
 For i:=1 to n do
  Begin 
    For j:=1 to n do
     Write(MatrixMass[i,j],' ');
    Writeln;
  End;
  Readln;
end.

[Stilet]

поменять местами I-тую строку и J-тый столбец.

Думаю примерно так:

for l:=1 to M do
 if l<=n then begin
  k=MatrixMass[i,l];
  MatrixMass[i,l]:=MatrixMass[l,i];
  MatrixMass[l,i]:=k;
 end;

[AZelensky]

Сообщение от Stilet

Думаю примерно так:

for l:=1 to M do
 if l<=n then begin
  k=MatrixMass[i,l];
  MatrixMass[i,l]:=MatrixMass[l,i];
  MatrixMass[l,i]:=k;
 end;

Значит вот так?:

USES CRT;
CONST
MaxElI = 30;
MaxElJ = 30;
Var
MatrixMass: array [1..MaxElI, 1..MaxElJ] of REAL;
n: integer;
i, j, l: byte;
k: real;
Begin
CLRSCR;
write('Enter max element: '); READ(n);
While (n <= 1) do begin
write('Enter max element: '); READ(n);
end;
writeln('Enter values: ');
For i:= 1 to n Do begin
For j:= 1 to n Do begin

    write('Matrix element ', i, 'x', j, ' : ');
    READLN(MatrixMass[i, j]);
    end;
end;
writeln('The resulting array: ');
Writeln('Получившаяся матрица:');
 For i:=1 to n do
  Begin 
    For j:=1 to n do
     Write(MatrixMass[i,j],' ');
    Writeln;
  End;
  Readln;
for l:=1 to n do
 if l<=n then begin
  k:=MatrixMass[i,l];
  MatrixMass[i,l]:=MatrixMass[l,i];
  MatrixMass[l,i]:=k;
 end;
 readln;
Writeln('Получившаяся матрица:');
 For i:=1 to n do
  Begin 
    For j:=1 to n do
     Write(MatrixMass[l,i],' ');
    Writeln;
  End;
  Readln;
end.

[Stilet]

Возможно. Запусти и узнаешь. Я не проверял.

[AZelensky]

Вот задание:
Задана матрица NXM, где N>1, M>1. В матрице поменять местами I-тую строку и J-тый столбец.

Вот код:

USES CRT;
CONST
MaxElI = 30;
MaxElJ = 30;
Var
MatrixMass: array [1..MaxElI, 1..MaxElJ] of REAL;
b: REAL;
n: INTEGER;
i, j, a: BYTE;
Begin
CLRSCR;
write('Enter max element: '); READ(n);
writeln('Enter values: ');
For i:= 1 to n Do begin
For j:= 1 to n Do begin
    write('Element ', i, 'x', j, ' : ');
    READLN(MatrixMass[i, j]);
    end;
end;
writeln('The resulting matrix: ');
For i:= 1 to n Do begin
For j:= 1 to n Do
    write(MatrixMass[i, j]:0:0, ' ');
    writeln;
end;
ReadLN;
For a:= 1 to n Do
If a <= n then begin
   b:= MatrixMass[a, i];
   MatrixMass[i, a]:= MatrixMass[a, i];
   MatrixMass[a, i]:= b;
end;
writeln('Final matrix:');
For i:= 1 to n Do begin
For a:= 1 to n Do
    write(MatrixMass[a, i]:0:0, ' ');
    writeln;
end;
ReadLN;
end.

Вот результат:


Правильно у меня всё тогда?

[Stilet]

Если я скажу что все правильно тебя это успокоит?

[AZelensky]

Сообщение от Stilet

Если я скажу что все правильно тебя это успокоит?

Если на самом деле всё правильно, то естественно упокоит. Если всё верно, можешь закрывать тему.

[Unique_Maks]

финальная матрица не должна ли быть вот такой:

12 76 90
54 11 37
34 87 17

[AZelensky]

Сообщение от Unique_Maks

финальная матрица не должна ли быть вот такой:

12 76 90
54 11 37
34 87 17

Я тоже об этом подумал

[challengerr]

Условие задачи неполное. Задача не решаема с подобным условием.