GOTO мітка

Мітка — це ціле число, взяте без знака, яке містить не більше чотирьох цифр. Мітки відокремлюються від опера­торів двокрапкою. Будь-яка мітка, яка використовується в програмі, повинна бути описана в розділі опису міток.

Цей розділ починається службовим словом LABEL (мітка) І розміщується перед розділами визначення констант і опису змінних. За допомогою оператора переходу ввійти в середину складеного оператора або в середину процеду­ри не можна.

Оператор переходу рекомендується використовувати тільки у особливих випадках, коли доводиться порушувати природну структуру програми. Зауважимо, що без опера­тора переходу можна обійтися, оскільки розглянутих вище операторів цілком досить для написання будь-якої програми.

Приклад. Скласти програму введення п невід'ємних чисел і обчис­лення їх середнього арифметичного. Якщо зустрінеться від'ємне число, то виконання програми припинити.

PROGRAM mean;

{обчислення середнього арифметичного n додатних чисел}

LABEL 999;

\/AR n,і: іnteger;

suma,number, seredne:real;

BEGIN

wrіte (‘Введіть кількість чисел ‘);

readln (n); suma:=0;

FOR i:=1 TO n DO

BEGIN

write(‘Введіть кількість чисел ‘);

readIn(number);

IF number < 0 THEN goto 999;

sumas:=suma+number

END;

seredne:=suma/n;

writeln;

writeln (‘Середнє арифметичне=’, seredne);

999: writln(‘Виконання програми припиняється')

END.