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

[unbanned]

имеем:

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 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;
  iMax := im;
end;

[Serge_Bliznykov]

код, который я привёл в своём предыдущем сообщении видно?
А выделенные слова видите?
сравните со своим кодом! Разницу увидели?!

Hint. видите, что во всех (двух) функциях результат вычислений присваивается не переменной result, а переменной, имя которой совпадает с именем функции.
т.е. в функции iMax там, где было написано result := im вместо этой строчки нужно написать iMax := im

[SVing]

я поменя что ты показал и отметил место где он хочет скобку, я препадше показао это шедевр она как офигела ) и ничего не подсказала,сказала только что какое-то значения надо поставить,а какое не сказала, подскажите

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 iMax := 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.

[unbanned]

отметил место где он хочет скобку

очень интересно... и где же это место?

какое-то значения надо поставить

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

[SVing]

я жирным шрифтом отметил постом выше

[unbanned]

тот код который ты привел - какой-то бред...
ты хоть когда исправляешь думай иногда...

вот что должно быть и посмотри что у тебя

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;

P.S.
ты хоть сам видишь свой "жирный шрифт" постом выше?
мне например чтобы найти то место где ты выделил пришлось цитировать и смотреть где есть теги.

[SVing]

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

теперь когда нажимаю запустить в начале программы в этом куске пишет File not Found, что за косяки ? ссылается на строку что выделил

onst
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;

[unbanned]

а перевести на русский то что выдает компилятор?
если файл не найден то может стоит его создать?

[SVing]

если бы я знал что создавать,не любую букву же поставить

[whatever]

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

если бы я знал что создавать,не любую букву же поставить

Какую букву? Куда букву? Создай файл 1.txt с соответствующим содержанием в каталоге c:\ например, и передавай в процедуру параметр

path:='c:\1.txt'