Операторы управления в бейсике.
IF…THEN…ELSEIF…THEN…ELSE…END IF
Синтаксис:
IF <условие1> THEN
<блок операторов 1>
ELSEIF <условие2> THEN
<блок операторов 2>
...
ELSE
<блок операторов n>
END IF
<условие1> , <условие1> - любое выражение, которое может принимать значения «истина» (1) или «ложь» (0).
<Блоки операторов 1, 2, …, n> - один или несколько разделенных двоеточиями операторов в одной или нескольких строках.
За ELSE идут те операторы, которые требуется выполнить, если ни одно из условий не имеет значение «истина»
Пример:
INPUT "1 или 2? ", I
IF I = 1 OR I = 2 THEN
PRINT "OK"
ELSE
PRINT "Вне диапазона"
END IF
Оператор выбора select case
Выполняет один из нескольких блоков операторов в зависимости от значения выражения.
Синтаксис: SELECT CASE <тест- выражение>
CASE <список выражений 1>
<блок операторов 1>
CASE <список выражений 2>
<блок операторов-2>...
CASE ELSE
<блок операторов-n>
END SELECT
<тест- выражение>- любое числовое или строковое выражение.
<Списки выражений 1 и 2> - одно или несколько выражений для сравнения с <тест – выражением>
<Списки выражений 1 и 2> - один или несколько операторов в одной или нескольких строках.
<блок операторов-n> – операторы, выполняемые, когда все выражения в CASE – «ложь»
Аргументы списка выражений могут принимать любую из следующих форм или их комбинацию и должны разделяться запятыми:
<выражение> [, <выражение>]...
<выражение1> TO <выражение2>
IS <отношение> <выражение> [, IS <отношение> <выражение>]
<Выражение> - любое числовое или строковое выражение, совместимое с <тест-выражением.>
<отношение> - одно из следующих: <, <=, >, >=, <> или =.
Пример:
SELECT CASE X
CASE IS<10, IS>50 PRINT "ВНИМАНИЕ" CASE -20 TO -5, 100 TO 200 PRINT "АВАРИЯ" CASE ELSE PRINT "НОРМА"
END SELECT
Оператор exit
EXIT{DO|FOR|DEF|SUB|FUNCTION}
Оператора цикла в бейсике. Оператор цикла for … next
FOR <счетчик> = <начало> TO <конец> [STEP <приращение>]
[блок операторов]
NEXT [счетчик]
[счетчик] - числовая переменная (переменная цикла),
<начало> , <конец> - начальное и конечное значение счетчика,
<приращение> - приращение счетчика при каждом шаге цикла.
Если приращение равно 1, то выражение в квадратных скобках может быть опущено. То есть по умолчанию шаг изменения переменной цикла равен единице.
Пример:
FOR I = 1 TO 15 FOR I = 7 to -6 STEP -3
PRINT I PRINT I
NEXT I NEXT I
Оператор цикла do … loop
Оператор цикла DO … LOOP - оператор цикла с предусловием, без счетчика (с неопределенным числом циклов). Блок операторов повторяется, пока условие верно, или до тех пор, пока условие не станет верным. Синтаксис:
DO DO {WHILE | UNTIL} <условие>
<блок операторов> <блок операторов>
LOOP {WHILE | UNTIL} условие LOOP
Где <условие> - числовое выражение, которое BASIC оценивает как «истина» (1) или «ложь» (0).
Проверка в конце цикла – операторы будут выполнены хотя бы один раз. В этом основное различие двух форм записи. При этом WHILE – цикл продолжается пока условие – «истина»; UNTIL – цикл продолжается, пока условие «ложь».
Пример:
DO
INPUT “ВВЕДИТЕ ЗНАЧЕНИЕ Х<10”
INPUT X
LOOP UNTIL X<10
(Выполнять до тех пор, пока не выполнится условие)
INPUT
X
DO
PRINT X
X=X-1
LOOP WHILE X >10
(Выполнять до тех пор, пока истинно условие)
I = 0
PRINT "Значение I в начале цикла равно "; I
DO WHILE I < 10
I = I + 1
LOOP
PRINT "Значение I в конце цикла равно "; I
(Выполнять до тех пор, пока истинно условие)
I = 0
PRINT "Значение I в начале цикла равно "; I
DO LOOP WHILE I < 10
I = I + 1
LOOP