Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Не могу решить лабу.Массив,функции.

Автор: Гость_костян 24.11.2005, 18:43

Суть проги такая : Вадать индексы всех седловых точек в массиве. Седловая точка- минимальный элемент в строке максимальный в столбце или наоборот- максимальный в строке, минимальный в столбце.Оформить как функции: нахождение мин эл-та в столбце, макс эл-та в строке макс эл-та в столбце, мин эл-та в строке.

Автор: nikitao 24.11.2005, 21:01

Гость_костян ,привиди свои нароботки в этой задаче(алгоритм или куски кода),а с проблемами поможем.Что касается решать за тебя,то в этой ветке никто этого делать не будет.Надо писать в "Центр помощи" smile

Автор: eskaflone 24.11.2005, 23:01

Код


var a : array[1..20,1..20]of integer;

...............

function min_stroka(st : integer) : integer;
var i : integer;
    k : integer;
begin
   k := 1;
   for i := 2 to 20 do
      if a[st,i] < a[st,k] then k := i;
   min_stroka := k;
end;

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