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

[Айра]

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

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

[volvo]

"инкапсулировать" - значит "производить/проводить"?

Инкапсулировать - от слова "капсула" - скрывать, закрывать оболочкой...

Теперь о программе... Если быть

очень строгим и дотошным преподом

- то я бы порекомендовал:

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

2. То же самое касается и вложенной процедуры - секция Var должна быть не ДО нее, а после...

3. Еще нечто, что у тебя во вложенной процедуре не совсем понятно:

procedure poisk_max(b: matr; l: integer; var t,v: integer);

Зачем ты еще раз передаешь матрицу? У тебя же сама матрица "А", переданная в процедуру poisk_min, доступна...

(передавай матрицу по константной ссылке, если не будешь запускать программу на TP ниже 7 версии:

procedure poisk_min(const a: matr; var mn,st,sl: integer);

- это даст тебе дополнительную гарантию безопасности данных)