Оператор начала подпрограммы <SUB>


Предназначен для объявления подпрограммы и списка параметров, передаваемых ей при запуске.

 

Формат:

SUB <имя подпрограммы> {(<список формальных параметров>)}

 

Описание:

Ключевое слово оператора – <SUB>, за которым следует обязательный параметр имя программы – литерная строка, не ограниченная двойными кавычками и далее необязательный <список формальных параметров>, заключенный в круглые скобки.

<Список формальных параметров> представляет собой последовательность числовых, строковых переменных или массивов состоящую из одного и более элементов. Если число параметров в списке больше одного, то они разделяются запятыми.

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

 

Пример:

 

sub GetProgramID(PrgID: Integer)

! Извлекаем из строкового имени NC-программы числовой идентификатор

  i: Integer

  j: Integer

  k: Integer

  s$: String

 

  i = 1

  j = 0

  k = 0

  while i<=Len(NCName$) do begin

    s$ = Copy(NCName$, i, 1)

    case Ord(s$) of

      48, 49, 50, 51, 52, 53, 54, 55, 56, 57: begin

        if j<1 then j = i

        if (k<1) or (k=(i-1)) then

          k = i

      end

    end

    i = i + 1

  end

  if (j>0) and (k>0) then begin

    s$ = Copy(NCName$, j, k-j+1)

    PrgID = Num(s$)

  end

subend

 

 

 

Сопутствующие ссылки:

Оператор вызова подпрограммы <CALL>

Оператор окончания подпрограммы <SUBEND>

Понятие подпрограмм