"Учебник QBasic"

NEXT i

Другой способ применения FOR...NEXT - способ приращения цикла - использованием команды STEP. Если вы опускаете команду STEP (как в обычном FOR...NEXT цикле), "i" увеличивается каждый раз после выполнения цикла. С использованием команды STEP, Вы можете изменять её на любой номеру какой пожелаете. Например:

FOR i = 100 TO 300 STEP 2

PRINT "Магический номер может быть:"; i

NEXT i

Это бы вывело все четные числа от 100 до 300. Вы могли бы также заставить переменную "i" отчисляться назад, как в этом примере:

FOR i = 300 TO 100 STEP -2

PRINT "цифра - теперь:"; i

NEXT i

FOR...NEXT циклы могут использоваться везде. В следующей главе, мы изучим два других видах цикла, которые продолжают выполнятся до некоторого условия. В этой части мы изучим оператор GOTO. Если Вы не знаете оператор GOTO, то заверяю вас, оператор чрезвычайно прост. GOTO - мощная команда, которая позволяет вам переходить в разные части программы по номерам строки. Но для этого вы должны "маркировать" строки, к которым вы хотите перейти. Например:

topofprogram: CLS

PRINT "Это бесконечный цикл"

GOTO topofprogram

Или, так:

1 CLS

PRINT "Привет мир!"

GOTO 1

GOTO - очень простой, но все же мощный оператор. Но использование оператора не обязательно в вашей программе, его можно заменить другим. GOTO становится очень полезным, когда используется вместе с операторами IF...THEN. Вы можете использовать GOTO, чтобы создать некоторый тип меню, подобно этому:

PRINT "Мое Меню"

PRINT "Нажмите 1, чтобы очистить экран, и 2, чтобы вывести "Привет"!"

INPUT "Что вы выбираете"; choice

IF choice = 1 THEN GOTO clrscr

IF choice = 2 THEN GOTO hello

clrscr: CLS

PRINT "Готово."

hello: PRINT "Привет, Привет, Привет!"

END

Вы можете использовать GOTO после THEN, чтобы перейти к другой части программы программы. Или, Вы можете заменять "=" любым математическим символом (подобно знаку больше ">" или меньше "<"). Есть пара примеров в одной программе:

PRINT "Пример Программы #1"

PRINT "Номер, о котором я думаю стоит в промежутке от 1 и 10."

PRINT "Вы получаете 3 возможности."

INPUT "Первый выбор"; number

IF number = 3 THEN GOTO gotit

PRINT "Простите!"

INPUT " Второй выбор "; number

IF number = 3 THEN GOTO gotit

PRINT " Нет !"

INPUT " Последний выбор "; number

IF number = 3 THEN GOTO gotit

PRINT " Простите ! The number was 3!"

END

gotit: PRINT " Вы выиграли ! Хорошая работа !"

Основной элемент в этой программе - IF...THEN.

Последняя вещь в этой главе – изучение изменения цвета текста и других элементов. Цвет текста на экране позволяет менять команда COLOR (Включая Цвет фона). Вот пример использования этого оператора: