10.4. Процедура EXIT
Как указывалось раньше (см. п. 5.1.2), оператор GOTO нельзя использовать для досрочного выхода из подпрограммы. В Turbo Pascal с этой целью используется процедура Exit.
Пример. Функция, определяющая первое отрицательное число в массиве.
| function Minus(var Massiv; N: Integer): Real; |
{Massiv - параметр без типа} |
| type T = array[l..1000] of Real; |
|
| var i: Integer; |
|
| begin |
|
| Minus := 0; |
|
| for i := 1 to N do |
|
| if T(Massiv)[i] < 0 then |
{преобразование типа} |
| begin |
|
| Minus := T(Massiv) [ i ]; |
|
| Exit |
{досрочный выход из функции} |
| end |
|
| end; |
|
| 
