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

[Айра]

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

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

[мисс_граффити]

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

2) ну, по сути, да.
то есть, грубо говоря, существует 2 банально-примитивно-классически-рассматривающихся везде способа поиска минимума:
а)

min:=очень_большое_число;
for i:=1 to n do
  if ar[i]<min then
    min:=ar[i];

б)

min:=ar[1];
for i:=2 to n do
  if ar[i]<min then
    min:=ar[i];

поскольку тебе все равно нужны индексы, я бы опиралась на второй вариант. то есть:

min_ind:=1;
for i:=2 to n do
  if ar[i]<ar[min_ind] then
    min_ind:=i;

насколько я понимаю, здесь даже нет вопроса быстродействие vs экономия памяти.... доступ к элементам массива прямой.

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

З.Ы. Если бы преподы ТАК принимали лабораторные

Сообщение отредактировано: мисс_граффити - 9.12.2007 2:22