Метки в Pascal/delphi. Зачем они?

[Пепел Феникса]

я имел в виду что нужен именно ваш вариант без continue.

label lab;

var
  i1,i2,i3:Integer;
begin
  for i1=0 to 1 do
  begin

  lab: continue; //не доходим до второго и третьего цикла то...

    for i2:=0 to 2 do
    begin
       for i3:=0 to 3 do
       begin
          If 1 = 1 then GOTO lab; 
       end;
    end;
  end;
end;

[Аватар]

я имел в виду что нужен именно ваш вариант без continue.

Точно, я и упустил этот момент. Continue там нельзя

[Человек_Борща]

Удобно применять метки в подобной ситуации..
Вариант без continue - подошёл как нельзя лучше!

[Вадим Мошев]

Конкретно про опасность/неопасность использования операторов GOTO (на языках высокого уровня) ничего сказать не могу. В этой теме читал, что полностью безопасно.

Единственное, что могу сказать, согласно одной прочитанной информации в одной книге по программированию на турбо-паскаль, на конвеерных ЭВМ использование GOTO приводит к перезагрузке регистров (подробнее сказать не могу, вечером, думаю, выложу скан этого места в книге, а также название самой книги).

Говоря про порочность использования оператора GOTO, практически все (если вообще не все) на первое место среди причин его порочности ставят приобретение кодом трудночитабельного/трудноанализируемого вида ("спагетти-код").

Лично я считаю, что оператор гото целесообразней НЕ использовать, несмотря на то, что в некоторых местах его использование может упростить (в какой-то степени) составление алгоритма, но при этом теряется "легкоанализируемость".
Поэтому операторами гото никогда не пользовался. Конечно он является хорошим средством выхода из многократновложенного цикла, особенно, если рядом написано много мегатонн кода, хотя и флагами можно пользоваться, но, честно сказать, я бы предпочёл флагам гото.

Можно сказать, что GOTO опасен только в неумелых руках. Хоть я себя неумелым и не считаю, но всё же, как говорил выше, стараюсь НЕ использовать ГОТО.

_______________________

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

Например, вот как будет выглядеть программа на ассемблере для 51-го МК, которая увеличивает число на 1, если оно равно 3.

$mod51
	MOV A, #3
	MOV R1, #3
	CLR C
	SUBB A, R1
	JNZ A, LAB; JNZ - jump not zero. Переход к указанной метке, если содержимое аккумулятора A НЕ равно нулю
	MOV A, R1
	INC A

LAB
	NOP
	
	END