Матрицы в Pascal

[GetMax]

Не вполне понимаю, зачем учить начинающего неправильному стилю программирования. Особенно, если в первом же ответе содержится правильное решение..

TinMan объясни почему у меня неправильный стиль программирования.

Чем тебе не понравился мой ответ? Функция break является стандартной для паскаля и я не вижу причин её не использовать. Вряд ли можно выиграть много времени, если убрать один вложенный цикл

[TinMan]

Okay )
К сожалению, Pascal, несмотря на всю его идейность, не вполне удовлетворяет стандартам полностью структурного языка. Скажем, goto вообще не надо было включать. Непонятно, зачем Вирт его все же включил..

break нарушает видимую последовательность выполнения, тем он и плох. Хотя, я признаю, бывают ситуации, когда он очень выручает. Настолько, что можно поступиться принципами )). Но это все же большие исключения (помню в практике, но привести сейчас пример не смогу). А чаще всего получается так.. Я чувствую, что хочу поставить break, и сразу настораживаюсь и продумываю этот кусок еще раз. И в 99% случаев оказывается, что есть более логичное, красивое и компактное решение.

А данный случай совсем простой, таких полно. Ты посмотри еще раз на мой код и сравни. Заставлять я тебя не буду - как захочешь, так и будешь делать.

А, если быть предельно честным, то я по крайней мере наполовину написал потому, что стало обидно - написал решение, а никто даже не заметил )). Я стараюсь не писать полные решения (хотя сдерживать себя трудно)), чтоб спрашивающие хоть что-то сделали сами.. Но, тем не менее, от слов не отказываюсь. Ты погугли на что-то типа "good bad programming practice break goto pascal" - или русский эквивалент. Только обязательно вставь pascal, потому что в C break имеет другой смысл, там без него никак. Но, правда, не всегда можно верить написанному в Инете.. ))

Успехов тебе

[JUDAS]

Но это все же большие исключения....break

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

[TinMan]

Сообщение от JUDAS

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

i:= 1;
while (i<=n) and (a[i]<>b) do inc(i);

[JUDAS]

отлично, при использовании цикла с for элемент находится в ячейке 15, и оно будет после этого в холостую маслать 999985 элементов пока не закончится цикл. Представляю производительность подобной системы с таким подходам к использованию цикла.
При использовании варианта while (i<=n) and (a[i]<>b) do inc(i);
нельзя определить другие условия прерывания цикла с выдачей соотвествующего сообщения.
Например, прерывания юзером цикла по Application.ProcessMessages() Ваш цикл выглядит вот так:

while (i<=n) and (a[i]<>b) and (not IsBreak) do
begin
 Application.ProcessMessages();
 value:=a[i]
 inc(i);
end;

Если юзер произвёл прерывание нужно определить нашло ли значение не нашло и прервался ли цикл.
То что прервался вычисляется по IsBreak а то что i>0 и value<> начальному значению нельзя проанализировать на предмет найдено или не найдено.

[JUDAS]

TinMan, как раз сижу и пишу один АРМ.
Задача, имеется динамический массив вот таких записей

  TDataRecord = packed record
    dType : integer;
    Data  : array of TDataValue;
  end;
  TLibrary = array of TDataRecord;

Нужно найти индекс записи, для которой dType = указанному мной типу eType. По большому счёту, проверить сформирована ли запись для указаного типа или несформирована.
Моё решение с Break:

function TDM.FindIndex(eType:integer):integer;
var i : integer;
begin
  result:=-1;
  for i:=0 to LenGth(FLIB)-1 do
  if FLIB[i].dType = eType then
  begin
   result:=i;
   break;
  end;
end;

Вы писали что можно написать любой цикл без break.
Напишите плиз с условием что на выходе должен быть индекс элемента динамического массива или -1 (если не найдено)

[Serge_Bliznykov]

Вы писали что можно написать любой цикл без break.
Напишите плиз с условием что на выходе должен быть индекс элемента динамического массива или -1 (если не найдено)

дык, коллега, это же очевидно и элементарно.
Досточно цикл FOR заменить на условный цикл и добавить в условие цикла тот фактор, по которому Вы выходите из цикла!

например:

function TDM.FindIndex(eType:integer):integer;
var i : integer;
begin
  result:=-1;
  i:=0;
  while (i<LenGth(FLIB)) and (result=-1) do 
    if FLIB[i].dType = eType then  result:=i
    else Inc(i);
end;

несложно?

p.s. я лично ничего против BREAK не имею. Иногда его использование реально очень удобно!