Создать функцию, меняющую местами в матрице наибольший и наименьший элементы.

[Volk_xD]

Получилось сделать процедуру:

Procedure MES(x:TArray; row,col:Byte);
Var max,min,smi,stmi,sma,stma,buf:integer; i,j:Byte;
Begin
min:=x[i,1];
max:=x[i,1];
for i:=1 to row do begin
for j:=1 to col do begin
if min>x[i,j] then
begin
min:=x[i,j]; smi:=i; stmi:=j;
end;
if max<x[i,j] then
begin
max:=x[i,j]; sma:=i; stma:=j;
end;
end;
end;
buf:=min;
x[smi,stmi]:=max;
x[sma,stma]:=buf;
Writeln ('Min=',min,' ','Max=',max);
For i:=1 to row do Begin
For j:=1 to col do Begin
Write(x[i,j]:7,' ');
end;
Writeln;
end;
End;

max - максимальный эл-т;
min - минимальный эл-т;
smi, stmi - индексы минимального эл-та;
smа, stmа - индексы максимального элемента;
buf - буферная переменная для сохранения значения;
Помогите преобразовать в функцию и как обеспечить её вызов в самой программе?

[Stilet]

Получилось сдлеать процедуру:

Помогите преобразовать в процедуру

Извиняюсь а в чем прикол?

[Volk_xD]

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

Извиняюсь а в чем прикол?

Спасибо, торопился
В функцию нужно преобразовать

[Stilet]

Не проверял, паскаля нет, но примерно так:

function MES(x:TArray; row,col:Byte):TArray;
Var max,min,smi,stmi,sma,stma,buf:integer; i,j:Byte;
Begin
min:=x[i,1];
max:=x[i,1];
for i:=1 to row do begin
for j:=1 to col do begin
if min>x[i,j] then
begin
min:=x[i,j]; smi:=i; stmi:=j;
end;
if max<x[i,j] then
begin
max:=x[i,j]; sma:=i; stma:=j;
end;
end;
end;
buf:=min;
x[smi,stmi]:=max;
x[sma,stma]:=buf;
Writeln ('Min=',min,' ','Max=',max);
For i:=1 to row do Begin
For j:=1 to col do Begin
Write(x[i,j]:7,' ');
end;
Writeln;
end;
 MES:=x;
End;

var a:TArray;
begin
 MES(a,2,4);
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Volk_xD]

Выдаёт ошибку:
Invalid function result type. Что можно исправить?

[Stilet]

попробуй

A:=MES(a,2,4);

[Volk_xD]

Ту же ошибку выдаёт... Вообще, хочется узнать, можно ли использовать функцию для подобной операции, думал, что функции используют для расчёта какого-то конкретного значения, ведь она должна возвращать значение?
Вот рабочая программа с этой процедурой:

Program Maxmin;
Uses Crt;
Type TArray=Array[1..10,1..10] of integer;
Var a, b:TArray; n,m,k,l :Byte; max,min: real;
Procedure InMatr2(Var x:TArray; row,col:Byte);
Var i,j:Byte;
Begin
Randomize;
For i:=1 to row do Begin
For j:=1 to col do Begin
x[i,j]:=-100+random(200);
Write(x[i,j]:7,' ');
End;
Writeln;
End;
End;
Procedure MES(x:TArray; row,col:Byte);
Var max,min,smi,stmi,sma,stma,buf:integer; i,j:Byte;
Begin
min:=x[i,1];
max:=x[i,1];
for i:=1 to row do begin
for j:=1 to col do begin
if min>x[i,j] then
begin
min:=x[i,j]; smi:=i; stmi:=j;
end;
if max<x[i,j] then
begin
max:=x[i,j]; sma:=i; stma:=j;
end;
end;
end;
buf:=min;
x[smi,stmi]:=max;
x[sma,stma]:=buf;
Writeln ('Min=',min,' ','Max=',max);
For i:=1 to row do Begin
For j:=1 to col do Begin
Write(x[i,j]:7,' ');
end;
Writeln;
end;
End;
BEGIN
Clrscr;
Writeln('Vveite razmernost 1-oi matrici (menee 10) ');
Readln(n,m);
InMatr2(a,n,m);
Writeln('Vveite razmernost 2-oi matrici (menee 10) ');
Readln(k,l);
InMatr2(b,k,l);
Writeln;
MES(a,n,m);
Writeln;
MES(b,k,l);
Readkey;
End.

В исправленной программе нужно ещё вывести на экран минимальный и максимальный элементы, может это упростит задачу

[Stilet]

можно ли использовать функцию для подобной операции

Увы паскаля нет под рукой, я точно не помню можно ли результатом функции массив описывать, но думаю что должна быть и такая возможность.

[k0tone]

Зацени такой вариантик:

Program Maxmin;
Uses Crt;
Type TArray=Array[1..64,1..64] of integer;
Var a,b:TArray;
    n,m,k,l:Byte;
    max,min:real;
    
Procedure InMatr2(Var x:TArray; row,col:Byte);
Var i,j:Byte;
Begin
Randomize;
For i:=1 to row do
  Begin
    For j:=1 to col do
      Begin
        x[i,j]:=-100+random(200);
        Write(x[i,j]:7,' ');
      End;
    Writeln;
  End;
End;

function MES(x:TArray; row,col:Byte):integer;
Var max,min,smi,stmi,sma,stma,buf:integer;
    i,j:Byte;
Begin
min:=x[i,1];
max:=x[i,1];
for i:=1 to row do
  begin
    for j:=1 to col do
      begin
        if min>x[i,j] then
          begin
            min:=x[i,j]; smi:=i; stmi:=j;
          end;
        if max<x[i,j] then
          begin
            max:=x[i,j]; sma:=i; stma:=j;
          end;
      end;
  end;
buf:=min;
x[smi,stmi]:=max;
x[sma,stma]:=buf;
Writeln ('Min=',min,' ','Max=',max);
For i:=1 to row do
  Begin
    For j:=1 to col do
      Begin
        Write(x[i,j]:7,' ');
      end;
    Writeln;
  end;
for i:=1 to n do
for j:=1 to n do
MES:=x[i,j];
End;

begin
clrscr;
write('Vvedite razmernost 1:');
readln(n,m);
inmatr2(a,n,m);
write('Vvedite razmernost 2:');
readln(k,l);
inmatr2(b,k,l);
MES(a,n,m);
writeln;
MES(b,k,l);
readln;
end.

P.S. Паскаля под рукой не было, так что проверять тебе).

[Volk_xD]

Спасибо большое, работает