Лекция: LАВЕL метка;

Допускается объявлять список меток:

LABEL метка 1, метка 2,…, метка n;

Для рассмотренного примера объявление меток выглядит следую­щим образом:

LABEL 10, 32, А, АВ;

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

IF А>В THEN GОТ0 1;

А:=А — В;

GOTO 2 ;

1: А:=А+B ;

2:Y:= A;

можно заменить следующей конструкцией языка ПАСКАЛЬ:

IFA>В THEN A:=A+В

ELSE А:=А-В;

Y:=A;

Однако в некоторых случаях оператор безусловного перехода оказы­вается весьма полезным. Например, пусть необходимо прекращать вы­полнение программы, если встречаются так называемые ситуации пре­рывания выражения, содержащие функции логарифма LN или корня квадратного SQRT от отрицательных аргументов, или необходимо вы­полнить деление на выражение, которое обращается в нуль:

IF Y<=0 THEN GOTO 100

ELSE A:= X*LN(Y);

If У<0 THEN GOTO 100

ELSE 8:=X + SQRT(Y);

S:=Т-COS(PT) ;

IF S=0 THEN GOTO 100

ELSE R:=257*W/S;

100:WRITE(‘ВЫПОЛГНЕНИЕ ПРОГРАММЫ ПРЕКРАЩАЕТСЯ’);

В этом примере всякий раз, когда встречается недопустимая ситуа­ция, происходит переход к оператору с меткой 100. На экран дисплея выводится сообщение о прерывании программы и выполнение програм­мы заканчивается.