под управлением каждого теста на
,а не обычный оператор IF.
Операторы IF блока могут гнездоваться,т.е. любые операторыпосле любого
THEN могут содержать IF блоки.(Полезно делать отступ операторов,находящихся
под управлением каждого теста на пару пробелов,как показано в следущем ниже
примере.
Блоковые операторы IF должны оканчиваться END IF.Заметьте,что END IF запи-
сывается с пробелом ,а ELSEIF без пробела.
См.также SELECT
Пример: RANDOMIZE TIMER
БанкРулетки=100:Ставка=5:ЗначЗадержки=.5
-125 -
WHILE NOT INSTAT 'нажать клавишу останова
Рулетка=INT(RND(1)*6)+INT(RND(1)*6)+2
PRINT STRING$ (30."_")
PRINT Рулетка:DELAY ЗначениеЗадержки
IF Рулетка=2 OR Рулетка=3 OR Рулетка=12 THEN PRINT "вы проиграли"
БанкРулетки=БанкРулетки+Ставка
ELSE
PRINT "ваша точка есть" Рулетка
Неточка=-1
WHILE Неточка
СледРулетка=INT(RND(1)*6)+INT(RND(1)*6)+2
PRINT СледРулетка:DELAY ЗначениеЗадержки
IF Рулетка=СледРулетка THEN
PRINT "Вы проиграли"
БанкРулетки=БанкРулетки+Ставка
Неточка=0
ELSEIF СледРулетка=7 THEN
PRINT "Вы проиграли"
БанкРулетка=БанкРулетка-Ставка
Неточка=0
'закончить IF рулетка=блок СледРулетка
END IF
WEND
END IF
WEND
Оператор INCR
-------------
Функция INCR наращивает значение.
-------
Синтаксис INCR числовая переменная[,размер]
----------
Замечания Размер-это опциональное числовое выражение,которым указывается
--------- значение добавляемое к специфицированной переменной.Если размер
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий