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

[Юлия67]

Поменять местами столбцы с максимальным и минимальным элементами. Дана матрица А размера n*m, где n,m<=15. Элементы матрицы – целые случайные числа из диапазона [0, 10*N]. Оформить преобразование матриц в виде функции или процедуры и записать в файл исходную и преобразованную матрицы. Просмотреть файл.

[BDA]

Хорошая учебная задачка. Что у Вас не получается?

[Юлия67]

Program lora_z4;
Uses Crt;
Var A:array [1..15,1..15] of real;
i,j,n,k_max,k_min:integer;
max,min,B:real;
Begin
ClrScr;
Write('Vvedite n (<=15) ');
Readln(n);

for i:=1 to n do
for j:=1 to n do
A[i,j]:=i*j*sin(0.5*i*j);

for i:=1 to n do
Begin
for j:=1 to n do
Write(A[i,j]:6:1);
Writeln;
End;

min:=(A[1,1]);
k_min:=1;
for i:=1 to n do
for j:=1 to n do
if min>(A[i,j]) then
Begin
min:=(A[i,j]);
k_min:=j;
End;

max:=(A[1,1]);
k_max:=1;
for i:=1 to n do
for j:=1 to n do
if max<(A[i,j]) then
Begin
max:=(A[i,j]);
k_max:=j;
End;

Writeln;
Writeln;
Writeln('min = ',min:5:1,' k_min = ',k_min);
Writeln('max = ',max:5:1,' k_max = ',k_max);

for i:=1 to n do
Begin
B:=A[i,k_max];
A[i,k_max]:=A[i,k_min];
A[i,k_min]:=B;
End;

Writeln;
Writeln;
for i:=1 to n do
Begin
for j:=1 to n do
Write(A[i,j]:6:1);
Writeln;
End;

ReadKey;
End.

ну вот в принципе программа есть, но она не в виде функции вроде бы оформлена, и задание про записать в файл вообще не понятно)


_________________
По правилам форума код должен оформлять с помощью тегов!
Используйте форматирование с помощью тегов [CODE] .. [ /CODE]
(кнопочка на панели форматирования # )

Модератор

[Serge_Bliznykov]

в принципе, программа не ваша и, более того, она не соответствует вашему заданию. (у Вас матрица должна быть не n x n, а n x m, матрица должна быть целочисленного типа,а не вещественного, заполняться не по формуле, а случайными числами.
всё, что Вы можете взять из данной чужой программы, это только поиск столбцов с минимальным/максимальным элементами и перестановку их местами...

а вынести часть кода в процедуру/функцию - это очень просто...
Главное, Вам как программисту, выбрать, какие процедуры (или функции) должны быть и ЧТО именно должно в них делаться...
если доводить ситуацию до абсурда, то можно ПОЛНОСТЬЮ весь код программы вынести в процедуру и главной программе только её вызывать..

Program lora_z4;
Uses Crt;

procedure DoMatr;
  const MaxSize = 15;
  Var A:array [1..MaxSize,1..MaxSize] of integer;
       i,j,n,m,B, k_max,k_min:integer;
  begin
     Write('Vvedite n (<=15) ');
     Readln(n);
     Write('Vvedite m (<=15) ');
     Readln(m);

     for i:=1 to n do
        for j:=1 to m do
          A[i,j]:= random(10*N+1);
  
     .....
   WriteLn('Press any key to exit...');
   ReadKey;
   Readln;
end; {конец процедуры i*j*sin(0.5*i*j)}
  
{главная программа}
Begin
     ClrScr;
     Randomize;

     DoMatr;
end.