Процедура EXIT в Turbo Pascal 7

Опубликовано: 02.09.2018

видео Процедура EXIT в Turbo Pascal 7

Уроки Pascal abc.net#1 создаем язык.1/2

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


(Создание БД) 5. Создание формы для ввода данных в базу данных (Delphi)

Пример. Функция, определяющая первое отрицательное число в массиве.

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] {преобразование типа}
      begin  
        Minus := T(Massiv) [ i ];  
        Exit {досрочный выход из функции}
      end  
end;  

rss