Главное меню delphi

Procedure
Calculate; 
Label
first_label; 
Var
x, y : integer; 
z : Extended; 
Begin 
first_label: 
x :=StrToInt(Edit1.Text); 
y := StrToInt(Edit2.Text); 
z := x/y; 
Memo.Lines.Add(IntToStr(x) + ’ разделить на ’ + IntToStr(y)

---

20 
+ ‘ равно ’ + FloatToStr(z)); 
GoTo first_label; 
 
End; 
Данный участок программы получает первое число из компонента Edit1, второе число из ком-
понента Edit2, производит деление и вывод результата, а затем вновь переходит к получению чисел 
из строк ввода. Данный пример приведен только для иллюстрации работы с метками. Если вы попы-
таетесь вызвать данную процедуру из программы, то машина зависнет. 
Рассмотрим пример, где этот оператор применяется наиболее часто:
Procedure
Calculate; 
Label
first_label; 
Var
x, y : integer; z : Extended; 
Begin 
first_label: 
x := StrToInt(Edit1.Text); 
y := StrToInt(Edit2.Text); 
IF
y<>0 
THEN
z := x/y; 
Memo.Lines.Add(IntToStr(x) + ’ разделить на ’ + IntToStr(y)
+ ‘ равно ’ + FloatToStr(z)); 
IF
MessageDlg('Начать заново?',mtConfirmation,[mbYes,mbNo],0)=mrNo 
THEN
Exit 
 ELSE 
GoTo first_label;
 End; 
По завершении вычислений выдается диалоговое окно с вопросом «Начать заново?» и две 
кнопки «Да» и «Нет». Если пользователь выбирает нет, то программа заканчивает свою работу, если 
же отвечает да, то программа по оператору безусловного перехода «перескакивает» на начало вычис-
лений. Иногда оператор безусловного перехода используется для того, чтобы пропустить какую-то 
часть программы. 
В настоящее время этот оператор применяется очень и очень редко, поскольку уже давно до-
казано, что при написании программ вполне можно обойтись и без него. Показателем класса про-
граммиста является, насколько редко он использует этот «злосчастный» оператор. Если вы все же 
используете его в своей программе, то следует избегать «прыжков» извне внутрь составных операто-
ров-циклов, да и вообще внутрь составных операторов. 
может привести к ошибке или сбою в программе. А конструкция, когда управление передается из-
нутри составного оператора во внешнюю часть, встречается достаточно часто. 
При практическом программировании на языке 
Object Pascal
необходимость в использовании 
оператора безусловного перехода возникает не часто, хотя иногда один переход позволяет избежать 
очень широких циклов.