Минимум среди максимумов матрицы, Использовать процедуры или функции Опции

[Айра]

Привет!
В общем нужно было найти минумум среди максимумов каждой строки матрицы и вывести его вместе с его координатами.. Использовать процедуры, либо функции.. (делала через процедуры)
Задача конечно очень "сложная" и редкая)), аж самой противно , но не могли бы проверить, представляя себя очень строгим и дотошным преподом

const n=5;
      m=4;
type matr = array[1..n,1..m] of integer;
var arr: matr;
    str,stl,min: integer;

procedure vvod(var a: matr);
var i,j: integer;
begin
  for i:=1 to n do
    for j:=1 to m do a[i,j]:=random(11);
end;

procedure vuvod(a: matr);
var i,j: integer;
begin
  for i:=1 to n do
    begin
      for j:=1 to m do write(a[i,j]:4);
      writeln;
    end;
end;

procedure poisk_min(a: matr; var mn,st,sl: integer);
  var i,w,mx: integer;

  procedure poisk_max(b: matr; l: integer; var t,v: integer);
  var j: integer;
  begin
    for j:=1 to m do
      if b[l,j]>t then
        begin
          t:=b[l,j];
          v:=j;
        end;
  end;

begin
  for i:=1 to n do
    begin
      mx:=0;
      poisk_max(a,i,mx,w);
      if mx<mn then
        begin
          mn:=mx;
          st:=i;
          sl:=w;
        end;
    end;
end;

begin
  randomize;
  str:=0;
  stl:=0;
  min:=1000;
  vvod(arr);
  vuvod(arr);
  poisk_min(arr,min,str,stl);
  writeln('искомый элемент: ',min,' в ',str,'-й строке ',stl,'-го столбца');
end.

еще.. мне кажется, чет я намудрила там с переменными.. с их глобальностью и локальностью.. Мне это не кажется?

Заранее спасибо)))

Сообщение отредактировано: Айра - 8.12.2007 22:30

[Michael_Rybak]

Инкапсулировать - это значит собирать в капсулу, дословно То есть вбирать в себя то, что другим знать необязательно.

Допустим, ты этой функцией хочешь поделиться со мной. Ты мне эту функцию даешь, и говоришь - параметр min нужно сделать очень большим, а параметры str и stl - обнулить, и тогда функция вычислит минимум максимумов и запишет в min.

А на самом деле гораздо удобнее для меня как для пользователя твоего кода, чтобы я знал только, что надо ее вызвать, и что при этом получится минимум максимумов. А обнуление пусть за меня выполнит сама функция.

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

Хотя чаще это слово используется в отношении классов (а не функций). Но это уже совсем другая история