Запись содержит сведения о сдаче экзаменов. Структура записи.

[Anton94.by]

Исправить программу по теме сортировки.

Дана действительная матрица A размерности ( n*n) . Если минимальный элемент матрицы расположен над главной диагональю, а максимальный элемент — под главной диагональю, то упорядочить столбцы матрицы по не убыванию методом линейного выбора с подсчетом. В противном случае матрицу оставить без изменения.

Дабавьте в программу, ниже написанную сортировку.

var
a: array [1..7,1..7] of integer;
i,j, imin,jmin, imax,jmax,max, min : integer;
begin
   // заполнение матрицы
   randomize;
    for i := 1 to 7 do
      begin
        for j := 1 to 7 do
          begin
          a[i,j] := random(90);
          write(a[i,j]:3);
          end;
      writeln;    
      end;
    // поиск максимума и минимума и их инексы в матрице
    max := a[1,1];
    min := a[1,1];
    imin := 1;
    jmin := 1;
    imax := 1;
    jmax := 1;
    for i := 1 to 7 do
        for j := 1 to 7 do
          begin
            if max < a[i,j] then
              begin
                imax := i;
                jmax := j;
                max := a[i,j];
              end;
            if min > a[i,j] then
              begin
                min := a[i,j];
                imin := i;
                jmin := j;              
              end;
      end;
   if imax < jmax then
    writeln('максимум выше')
    else
      if imax > jmax then
        writeln('максимум ниже')
        else writeln('максимум на диаганали');
   writeln('i = ', imax, ' j = ', jmax);     
   if imin < jmin then
    writeln('минимум выше')
    else
      if imin > jmin then
        writeln('минимум ниже')
        else writeln('минимум на диаганали'); 
   writeln('i = ', imin, ' j = ', jmin);
 // нужно ли сортировать
 if (imin < jmin) and (imax > jmax) then
  writeln('сортируем')
    else writeln('оставляем без изменений');   
{вывод матрицы}
for i:=1 to 7 do
begin
   for j:=1 to 7 do
      write(A[i,j],' ');
   writeln;
end;
readln;
end.

Напишите именно куда в программе вставить сортировку, ну и естественно напишите саму сортировку.

Вот сортировка, проверьте её на ошибки и вставьте в верхнюю программу:

For i:=1 to n do		{инициируем вектор счетчика}
  S[i]:=1;
For i:=1 to n-1 do	{формируем вектора счетчика}
begin
  k:=0; {количество меньших элементов для i-го элемента}
  For j:=i+1 to n do
   If A[i]<A[j] then S[j]:=S[j]+1 
{в счетчики больших элементов добавляем единицы}
                else k:=k+1;
  S[i]:=S[i]+k;
end;
{формируем вектор B в соответствии со значениями вектора счетчика}
For i:=1 to n do
begin
   r:=S[i];
   B[r]:=A[i];
end;

[Arhangel7]

это ПРИКАЗ ?

а самому, что - лень ?

[Anton94.by]

Нет, это не приказ, это просьба. Сам уже перепробовал много раз, выдаёт ошибку в сортировке. Поэтому ту программу где точно правильно я выложил отдельно ( вся программа), а ту часть где не получается (сортировка), я отдельно выложил.

Вообще, кто-нибудь здесь знает как добавить сортировку? Если Да, то пожалуйста помогите. Саму программу я написал, она правильная. Сортировка тоже вверху написана, только исправьте в ней ошибки если есть и вставьте в саму программу. Заранее Спасибо.

[whatever]

Столько шуму, нет бы головой подумать.

Саму программу я написал, она правильная. Сортировка тоже вверху написана, только исправьте в ней ошибки если есть и вставьте в саму программу.

П***еть не надо, сам он написал. Сотрировка вообще для вектора, а не для матрицы. И обозначения другие, и переменные тоже.

var
a,b: array [1..7,1..7] of integer;
s:array [1..7]of integer;
i,j, imin,jmin, imax,jmax,max, min,k,r,ololo: integer;
begin
   // заполнение матрицы
   randomize;
    for i := 1 to 7 do
      begin
        for j := 1 to 7 do
          begin
          a[i,j] := random(90);
          write(a[i,j]:3);
          end;
      writeln;
      end;
    // поиск максимума и минимума и их инексы в матрице
    max := a[1,1];
    min := a[1,1];
    imin := 1;
    jmin := 1;
    imax := 1;
    jmax := 1;
    for i := 1 to 7 do
        for j := 1 to 7 do
          begin
            if max < a[i,j] then
              begin
                imax := i;
                jmax := j;
                max := a[i,j];
              end;
            if min > a[i,j] then
              begin
                min := a[i,j];
                imin := i;
                jmin := j;
              end;
      end;
   if imax < jmax then
    writeln('максимум выше')
    else
      if imax > jmax then
        writeln('максимум ниже')
        else writeln('максимум на диаганали');
   writeln('i = ', imax, ' j = ', jmax);
   if imin < jmin then
    writeln('минимум выше')
    else
      if imin > jmin then
        writeln('минимум ниже')
        else writeln('минимум на диаганали');
   writeln('i = ', imin, ' j = ', jmin);
 // нужно ли сортировать
 if (imin < jmin) and (imax > jmax) then
  writeln('сортируем')
    else writeln('оставляем без изменений');

ololo:=1;  //ибо мне лень переменные выдумывать.
while ololo<=7 do
begin

 For i:=1 to 7 do		{инициируем вектор счетчика}
  S[i]:=1;
For i:=1 to 7-1 do	{формируем вектора счетчика}
begin
  k:=0; {количество меньших элементов для i-го элемента}
  For j:=i+1 to 7 do
   If A[ololo,i]<A[ololo,j] then S[j]:=S[j]+1
{в счетчики больших элементов добавляем единицы}
                else k:=k+1;
  S[i]:=S[i]+k;
end;
{формируем вектор B в соответствии со значениями вектора счетчика}
For i:=1 to 7 do
begin
   r:=S[i];
   B[ololo,r]:=A[ololo,i];
end;
inc(ololo);
end;



{вывод матрицы}
for i:=1 to 7 do
begin
   for j:=1 to 7 do
      write(B[i,j],' ');
   writeln;
end;
readln;
end.

[Anton94.by]

Я теперь проверил программу, она всё время сортирует, даже когда её надо оставить без изменений. Сортирует правильно, а когда надо её оставить без изменений она тоже сортирует.
Если кто может, скопируйте в pascal abc и просмотрите. ( Здесь , т.е. в программе матрица выбирается случайным видом.).

[whatever]

Сообщение от Anton94.by

Я теперь проверил программу, она всё время сортирует, даже когда её надо оставить без изменений. Сортирует правильно, а когда надо её оставить без изменений она тоже сортирует.
Если кто может, скопируйте в pascal abc и просмотрите. ( Здесь , т.е. в программе матрица выбирается случайным видом.).

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

P.S. В честь прошедшего праздника, только часть кода, которую надо поправить:

 // нужно ли сортировать
  if (imin < jmin) and (imax > jmax) then
    begin
      writeln('сортируем');

ololo:=1;  //ибо мне лень переменные выдумывать.
while ololo<=7 do
begin

 For i:=1 to 7 do		{инициируем вектор счетчика}
  S[i]:=1;
For i:=1 to 7-1 do	{формируем вектора счетчика}
begin
  k:=0; {количество меньших элементов для i-го элемента}
  For j:=i+1 to 7 do
   If A[ololo,i]<A[ololo,j] then S[j]:=S[j]+1
{в счетчики больших элементов добавляем единицы}
                else k:=k+1;
  S[i]:=S[i]+k;
end;
{формируем вектор B в соответствии со значениями вектора счетчика}
For i:=1 to 7 do
begin
   r:=S[i];
   B[ololo,r]:=A[ololo,i];
end;
inc(ololo);
end;
    end
  else
    writeln('оставляем без изменений');

[Anton94.by]

Я исправил, а теперь, когда оставляет матрицу без изменений выдаёт нули. Но когда надо сортировать, то сортирует правильно.

[Anton94.by]

Здесь полный сайт программистов и никто не может исправить эту программу, всё таки уже программа написана, только нужно ИСПРАВИТЬ.