"Учебник QBasic"
Шрифт:
Поэтому, нам нужно изучить ЦИКЛЫ. Цикл - набор команд, которые повторены несколько раз, до какого либо условия, или бесконечно. Первый цикл, который мы изучим команда FOR...NEXT. Это повторяет команды между операторами FOR и NEXT столько раз, сколько указанно. Синтаксис прост:
FOR i = 1 TO 100
PRINT i
NEXT i
Программа печатала бы числа от одного до сотни. Вместо переменной "i", можно давать любое имя, например, "bob" или "sam" или "linda", или "z". Вы можете так же брать более низкие или высокие значения переменной - например:
FOR i = 6 TO 371
PRINT "Магический номер может быть:"; i
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
Изгой
2. Династия
Фантастика:
фэнтези
попаданцы
рпг
аниме
рейтинг книги
Чиновникъ Особых поручений
6. Александр Агренев
Фантастика:
попаданцы
альтернативная история
рейтинг книги
Двойник короля 12
12. Двойник Короля
Фантастика:
аниме
фэнтези
попаданцы
рейтинг книги
Точка Бифуркации VI
6. ТБ
Фантастика:
фэнтези
попаданцы
аниме
рейтинг книги
Кодекс Охотника. Книга XXV
25. Кодекс Охотника
Фантастика:
фэнтези
попаданцы
аниме
рейтинг книги
Гримуар темного лорда VIII
8. Гримуар темного лорда
Фантастика:
боевая фантастика
альтернативная история
аниме
фэнтези
фантастика: прочее
попаданцы
рейтинг книги
Роза ветров
6. Артефактор
Фантастика:
городское фэнтези
аниме
фэнтези
рейтинг книги
Двойник Короля 4
4. Двойник Короля
Фантастика:
аниме
фэнтези
фантастика: прочее
попаданцы
рейтинг книги
Шайтан Иван 5
5. Шайтан Иван
Фантастика:
попаданцы
альтернативная история
историческое фэнтези
рейтинг книги
Деревенщина в Пекине 2
2. Пекин
Фантастика:
попаданцы
дорама
фантастика: прочее
рейтинг книги
Морской волк. 1-я Трилогия
1. Морской волк
Фантастика:
альтернативная история
рейтинг книги
Эволюционер из трущоб. Том 11
11. Эволюционер из трущоб
Фантастика:
аниме
фэнтези
фантастика: прочее
попаданцы
рейтинг книги
Адвокат Империи 2
2. Адвокат империи
Фантастика:
городское фэнтези
попаданцы
аниме
фэнтези
фантастика: прочее
рейтинг книги
Огненный наследник
10. Десять Принцев Российской Империи
Фантастика:
попаданцы
аниме
фэнтези
рейтинг книги