Перестановки

[SVing]

Помогите пожалуйсто, не соображаю ничерта ,по нулям.

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

ребят помогите пожалуйсто

[spein]

Программу написать вместо тебя?

[unbanned]

с миру по нитке...

conts 
  n=4;

var
  matrix: array[1..n,1..n] of real;
  i,j: integer;
  Mmax: real;
  f:text;
...
begin
  assign(f,'in.txt');
  reset(f);
  for i:=1 to n do
    for j:=1 to n do
       read(f,matrix[i,j]);
  {to be continued....}

[SVing]

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

Программу написать вместо тебя?

как бы желательно) да я вообще ничерта не понимаю, а здаваться надо всё таки ,всякими правдами и неправдами

[unbanned]

мда... ну вообщем было свободное время...
на корректность решения не претендую
поэтому было бы интересно услышать замечания и поправки от других форумчан
ТС настоятельно рекомендую обратить внимание на тип данных в матрице и принять соответствующие меры

const
  n = 4;

type
  matrix = array[1..n, 1..n] of integer;

procedure fill(var mat: matrix; path: string);
var
  i, j: integer;
  f: text;
begin
  assign(f, path);
  reset(f);
  for i := 1 to n do
    for j := 1 to n do
      read(f, mat[i, j]);
  close(f);
end;

procedure sort_by_column(var mat: matrix; s: integer);
var
  i, j: integer;  
  flagsort: boolean;
  t: integer;
begin
  repeat
    flagsort := true;
    for i := 1 to n - 1 do
      if not (mat[i, s] <= mat[i + 1, s]) then begin
        t := mat[i, s];
        mat[i, s] := mat[i + 1, s];
        mat[i + 1, s] := t;
        j := i;
        
        while (j > 1) and not (mat[j - 1, s] <= mat[j, s]) do 
        begin
          t := mat[j, s];
          mat[j, s] := mat[j - 1, s];
          mat[j - 1, s] := t;
          dec(j);
        end;
        flagsort := false;
      end;
  until flagsort;
end;

procedure show(var mat: matrix);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(mat[i, j], ' ');
    writeln;
  end;
  writeln;
end;

function iMax(var mat: matrix): integer;
var
  i, j: integer;
  max, im: integer;
begin
  max := mat[1, 1]; im := 1;
  for i := 1 to n do
    for j := 1 to n do
      if mat[i, j] > max then 
      begin
        max := mat[i, j];
        im := i;
      end;
  result := im;
end;

function no_inc_row(var mat: matrix; s: integer): boolean;
var
  i: integer;
begin
  i := 1;
  while (i < n) and (mat[s, i] < mat[s, i + 1]) do inc(i);
  if i = n then result := false
  else result := true;
end;

var
  dArr: matrix;
  column: integer;

begin
  fill(dArr, 'in.txt');
  show(dArr);
  if (iMax(dArr) = 2) and (no_inc_row(dArr, 2)) then 
    for column := 1 to n do
      sort_by_column(dArr, column);
  show(dArr);
end.

[SVing]

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

мда... ну вообщем было свободное время...
на корректность решения не претендую
поэтому было бы интересно услышать замечания и поправки от других форумчан
ТС настоятельно рекомендую обратить внимание на тип данных в матрице и принять соответствующие меры

const
  n = 4;
....
end.

ого ) препадша офигеет когда увидит) столько нового будет ) а какие переменные искали? что в Var приписать?
спасибо большое


НЕ ЗЛОУПОТРЕБЛЯЙТЕ ИЗЛИШНИМ ЦИТИРОВАНИЕМ!
Удаляйте лишний (не нужный Вам при ответе) текст из цитаты.

прошу считать это ПРЕДУПРЕЖДЕНИЕМ!

Модератор.

[unbanned]

программа дописана до конца... "приписать" ничего не надо. от вас требуется лишь исправить тип данных в матрице. так же исправить ошибки, если они есть. ну и внести изменения по необходимости. у вас, если вы читали задание - вещественная матрица. я же сделал для целочисленной.

P.S. За излишнее цитирование могут и наказать Ибо я попадался и за меньшие цитаты

[SVing]

он не знает такой индификатор result := im;
что тут надо исправить?

[Serge_Bliznykov]

вместо ключевого слова result в старых версиях паскаля нужно было писать имя функции.

например,

function iMax(var mat: matrix): integer;
var
  i, j: integer;
  max, im: integer;
begin
......
  iMax := im;
end;

function no_inc_row(var mat: matrix; s: integer): boolean;
var
  i: integer;
begin
  i := 1;
  while (i < n) and (mat[s, i] < mat[s, i + 1]) do inc(i);
  if i = n
    then no_inc_row := false
    else no_inc_row := true;
end;

[SVing]

что-то я не понимаю( что на что менять надо?