поменять местами столбец с минимальным элементом и столбец с максимальным элементом

@Antohamc · Регистрация: 23.01.2018

Студворк — интернет-сервис помощи студентам

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

Pascal

program Project2; 
 
{$APPTYPE CONSOLE} 
 
uses 
 SysUtils; 
 
Var i, j, n, r, m :integer; 
K1, K2 :integer; 
a :array[1..100, 1..100] of integer; 
begin 
Write('Введите кол. столбцов: '); 
Readln(n); 
 
Write('Введите кол. строк: '); 
Readln(m); 
 
Writeln('Введите элементы массива: '); 
for i:=1 to n do begin 
for j:=1 to m do begin 
Readln(a[i,j]); 
end; 
end; 
 
for j:=1 to n do 
for i:=1 to m do 
begin 
 if a[i,j]<a[i,j] then 
 r:=a[i,j]; 
 a[i,j]:=a[i,j+1]; 
 a[i,j+1]:=r; 
end; 
 
Writeln('Резульат: '); 
for i:=1 to n do begin 
for j:=1 to m do begin 
Write(' ', a[i,j]); 
end; 
end; 
 
Read(m); 
end.

@qwertehok · 23.01.2018, 01:17

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

if a[i,j]<a[i,j] then

интересное условие, как думаешь оно выполнится?

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

then
r:=a[i,j];
a[i,j]:=a[i,j+1];
a[i,j+1]:=r;

вот тут тоже неправильно - потому что неправильно отформатировал код

@unifikator · 23.01.2018, 05:40

Код правильной программы:

Delphi

program Matrix;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
function rus(S: String): String;
function convert(C: Char): Char;
begin
case C of
'а'..'п':Dec(C, 64);
'р'..'я':Dec(C, 16);
'ё':Inc(C, 57);
'А'..'Я':Dec(C, 64);
'Ё':Inc(C, 72);
end;
result:=c;
end;
var
k:integer;
begin
for k:=1 To length(s) do
s[k]:=convert(s[k]);
result:=s;
end;
var
i,j,n,m,mnc,mxc:integer;
mn,mx,r:real;
a:array of array of real;
begin
{ TODO -oUser -cConsole Main : Insert code here }
write(rus('Введите количество строк матрицы: '));
readln(n);
write(rus('Введите количество столбцов матрицы: '));
readln(m);
setlength(a,n,m);
writeln(rus('Введите элементы матрицы:'));
for i:=0 to n-1 do
for j:=0 to m-1 do
begin
write(rus('Введите элемент A['+inttostr(i+1)+','+inttostr(j+1)+']: '));
readln(a[i,j]);
end;
writeln(rus('Исходная матрица:'));
for i:=0 to n-1 do
begin
for j:=0 to m-1 do
write(a[i,j],' ');
writeln;
end;
mnc:=0;
mxc:=0;
mn:=a[0,0];
mx:=a[0,0];
for i:=0 to n-1 do
for j:=0 to m-1 do
begin
if a[i,j]<mn then
begin
mn:=a[i,j];
mnc:=j;
end;
if a[i,j]>mx then
begin
mx:=a[i,j];
mxc:=j;
end;
end;
for i:=0 to n-1 do
begin
r:=a[i,mnc];
a[i,mnc]:=a[i,mxc];
a[i,mxc]:=r;
end;
writeln(rus('Матрица-результат:'));
for i:=0 to n-1 do
begin
for j:=0 to m-1 do
write(a[i,j],' ');
writeln;
end;
readln;
end.

@qwertehok 5251 / 4199 / 1038 Регистрация: 29.08.2013 Сообщений: 26,567 Записей в блоге: 3
	23.01.2018, 01:17	2
	Сообщение от Antohamc if a[i,j]<a[i,j] then интересное условие, как думаешь оно выполнится? Сообщение от Antohamc then r:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=r; вот тут тоже неправильно - потому что неправильно отформатировал код 0

Опции темы

поменять местами столбец с минимальным элементом и столбец с максимальным элементом

Решение