DO WHILE  1условие

2. DO WHILE  1условие

 1операторы

LOOP

или

WHILE  1условие

 1операторы

WEND

(операторы выполняются 1, 0 пока выполняется условие)

3. DO UNTIL  1условие

 1операторы

LOOP

(операторы выполняются до тех пор, пока не будет выполнено усло-

вие. Как только условие будет выполнено, осуществляется выход из

цикла).

4. DO

 1операторы

LOOP

Выход из цикла в этом случае осуществляется оператором EXIT.

 _Оператор EXIT  . 1( 0выход) используется с SELECT, DEF, FOR, IF,

LOOP, SUB, WHILE. Например,

EXIT FOR осуществляет выход из цикла, организованного опера-

торами FOR/NEXT до его завершения

EXIT IF - выход из любого места IF блока

EXIT LOOP - выход из цикла, заканчивающегося оператором LOOP

или WEND.

Остальные случаи использования EXIT будут рассмотрены вместе с

соответствующими операторами.

 _Операторы выбора . ON/GOTO и ON/GOSUB

ON n GOTO  1метка 0 [,  1метка 0...]

n может принимать значения от 0 до 255. Переход осуществляется на

метку, определяемую значением n. Например, при n = 2 переход осу-

ществляется на вторую метку в списке. Если n = 0 или n больше ко-

личества меток в списке, то выполняется следующий по порядку опе-

- 12 -

ратор.

ON n GOSUB  1метка 0 [, 1 метка 0...]

n принимает значения от 0 до 255. Переход осуществляется к одной

из возможных подпрограмм (см.ниже), определяемых метками в спис-

ке, в зависимости от значения n.

После выполнения подпрограммы возврат осуществляется к опе-

ратору, следующему за ON/GOSUB.

1.8. Подпрограммы, функции и процедуры

 _Подпрограмма . - помеченная последовательность операторов, за-

канчивающаяся оператором RETURN. Выполняется, когда достигнут

GOSUB.

....

GOSUB aa

....

END

aa:

 1операторы

RETURN

Оператор RETURN осуществляет возврат к оператору, непосредственно

следующему за GOSUB.

 _Функция . может быть определена одной строкой (оператор-функ-

ция) или несколькими строками (подпрограмма-функция).

DEF FN  1имя 0 [( 1список параметров 0)] =  1выражение

(это определение оператора-функции) 1.

Здесь список параметров может включать 1  0не более 16 параметров.

DEF FN  1имя 0 [( 1список параметров 0)]

 1описание переменных

 1операторы

[EXIT DEF]

....

[FN  1имя 0 =  1выражение 0]

END DEF

(это определение подпрограммы-функции) 1.

Обращение к функции записывается там, где нужно получить ее зна-

чение. При этом параметры заменяются их фактическими значениями.

Например 1,

DEF FNF (x,y) = x * x + y * y

- 13 -

a = 3 : b = 4

P = FNF (a,b)

или

P = FNF (3,4)

Функция возвращает одно значение, тип которого определяется име-

нем функции. Определение функции может располагаться в любом месте

программы (обычно в начале или в конце). Например,

F = FNa (1.5)

PRINT F

DEF FNa (x)

FNa = x*x

END DEF

END

или

F = FNa (1.5)

PRINT F

END

DEF FNa (x)

FNa = x*x

END DEF

В результате будет напечатано 2.25.

Список параметров оператора-функции может включать только

имена переменных.

 _Процедура . - это последовательность строк программы, располо-

женная между операторами SUB и END SUB и выполняемая при обраще-

нии к ней при помощи оператора CALL.

SUB  1имя 0 [( 1список параметров 0)]

 1описание переменных

 1операторы

[EXIT SUB]

END SUB

Имя может содержать до 31 символа. Список параметров (не более

16) может включать имена переменных и массивов. Для массивов в

скобках указывается размерность. Например, 1 - для одномерного

массива, 2 - для двухмерного и т.д.

В обращении к процедуре за именем фактического массива сле-

дуют пустые скобки. Например,

SUB SUM (x (1), n, S)

S = 0

 - 14 -

FOR I=1 to n

S = S + x (I)

NEXT I

END SUB

DIM A (3)

A (1) = 1 : A (2) = 2 : A (3) = 4

CALL SUM ( A (), 3, S)

S = S/3

PRINT S

END

Эта программа вычисляет среднее значение элементов массива A,

процедура SUM суммирует элементы массива.

Основные отличия процедуры от подпрограммы-функции :

1 - процедура не обязана возвращать значение, она не имеет типа;

2 - вызывается оператором CALL, а не из выражения.

Отдельные переменные, используемые в процедуре (или подпрог-

рамме-функции), могут быть объявлены локальными, т.е. действующи-

ми только в данной подпрограмме (оператор LOCAL), общими, т.е.

действующими как в подпрограмме, так и в основной программе (опе-

ратор SHARED) и статическими, т.е. действующими в данной подпрог-

рамме как LOCAL, но сохраняющими полученные значения до следующе-

го обращения (оператор STATIC). По умолчанию в подпрограмме-функ-

ции переменная является SHARED, а в процедуре STATIC.

DEF FNF1

LOCAL i, S

FOR i =1 to 10

S = S + i

NEXT i

FNF1 = S

END DEF

После выхода из подпрограммы-функции переменные i и S теряют свои

значения (при входе в подпрограмму всегда S = 0). Эти же имена

могут использоваться в программе для обозначения других величин.

DEF FNF2

LOCAL i

SHARED S

FOR i = 1 to 10

S = S + i

NEXT i

- 15 -

FNF2 = S

END DEF

В этом случае S сохраняет значение после выхода из подпрограммы и

имеет один и тот же смысл во всех частях программы.

DEF FNF3

LOCAL i

STATIC S

FOR i = 1 to 10

S = S + i

NEXT i

FNF3 = S

END DEF

В этом случае S сохраняет значение после выхода из подпрограммы

до следующего обращения к ней, т.е. после первого обращения зна-

чение функции FNF3 будет 55, после второго - 110 и т.д. (S нельзя

изменять в основной программе).

- 16 -