Developing.ru

Приближается сессия - начинается новый наплыв школьников и студентов в разделе "Решите мне задачку". Функция нахождения максимума в одномерном массиве А[1..N]: Функции передается массив, она возвращает индекс максимального элемента. Сам максимальный элемент - А[max(A)].
То же самое для двухмерного массива A[1..N,1..M]: Поскольку Паскаль не может возвращать два значения из одной функции, вводится тип pair - запись с полями i,j. Функция возвращает переменную типа pair, у которой поле i соответствует абсциссе максимального значения, а поле j - ординате. Сам максимальный элемент - A[max(A).i, max(A).j]
При использовании этого второго варианта описание типа pair тоже нужно скопировать себе в программу (как показала практика, некоторые этого не знают)

Хыиуду, все это хорошо, но

- переменная N не определена, вместо нее советую ставить High(A) которая возвратит индекс последнего элемента массива
- массивы желательно передавать по ссылке через Var, т.к. при больших массивах будут сильные тормоза и может крякнуть стек (Stack overflow)

Логично. Я здесь имел в виду, что N задана константой, а первый элемент имеет индекс 1. В противном случае вообще писать придется так:
maxi:=low(A);
for i:=low(A) to high(A) do
...

Хыиуду писал(а):Функции передается массив, она возвращает индекс максимального элемента. Сам максимальный элемент - А[max(A)].
То же самое для двухмерного массива A[1..N,1..M]:

Код: Выделить всё

type pair=record
    i,j:integer;
end;
function max(A:array of array of integer) :p air;
var i,j:byte; maxi,maxj:byte; result :p air;
begin
  maxi:=1;
  maxj:=1;
  for i:=2 to N do
  for j:=2 to N do
    if A[i,j]>A[maxi,maxj] then begin maxi:=i; maxj:=j; end;
  result.i:=maxi;
  result.j:=maxj;
  max:=result;
end;

Поскольку Паскаль не может возвращать два значения из одной функции, вводится тип pair - запись с полями i,j. Функция возвращает переменную типа pair, у которой поле i соответствует абсциссе максимального значения, а поле j - ординате. Сам максимальный элемент - A[max(A).i, max(A).j]

а это подойдет для задачи. где нужно найти номер строки и столбца двумерного массива для мах элемента этого массива?

а если количество таковых максимумов больше 1? например 2. и надо найти индекс первого, ведь во многих задачах вопрос так и стоит.

можно просто обратить цикл, предложенный Хыиуду
for i:=n-1 donto 1 do
if a>a[maxi] then maxi:=i;

или можно через цикл repeat
i:=n;
Repeat
if a>a[maxi] then maxi:= i;
dec(i);
until i>1;

собственно тут и до минимума рукой подать:

for i:=1 to n do
if a<a[maxi] then maxi:= i;

начинающая писал(а):а это подойдет для задачи. где нужно найти номер строки и столбца двумерного массива для мах элемента этого массива?

это и называется "найти максимум"

cat | sort | head -1

Поднимаю. Слишком часто на эту тему приходится ссылаться.

Здравтсвйте
Интересует меня такая тема, как задержка дыхания под водой
В бассейне могу переплыть 25 м. Хочу больше
Кто знает, есть ли методики дыхалки для максимального нахождения под водой?

з.ы. Вообще интересует все, что связано с дыханием...
Спасибо
а кстати не сочтите за рекламу друг пригласил в новую онлайн игру http://netassault.ru - это даже не игра, netassault.ru - просто бомба