Чтение онлайн

на главную

Жанры

Шрифт:

Поэтому, нам нужно изучить ЦИКЛЫ. Цикл - набор команд, которые повторены несколько раз, до какого либо условия, или бесконечно. Первый цикл, который мы изучим команда 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

Поделиться:
Популярные книги

Дырка для ордена; Билет на ладью Харона; Бремя живых

Звягинцев Василий
Фантастика:
альтернативная история
фэнтези
8.12
рейтинг книги
Дырка для ордена; Билет на ладью Харона; Бремя живых

Дарданелльское сражение

Шигин Владимир Виленович
Во славу земли русской
Проза:
историческая проза
5.00
рейтинг книги
Дарданелльское сражение

Кристалл Альвандера. Корабль Альвандера.Дилогия

Садов Сергей Александрович
Фантастика:
боевая фантастика
8.38
рейтинг книги
Кристалл Альвандера. Корабль Альвандера.Дилогия

"Фантастика 2025-58". Компиляция. Книги 1-21

Альтмарк Лев
Фантастика 2025. Компиляция
Фантастика:
боевая фантастика
космическая фантастика
попаданцы
5.00
рейтинг книги
Фантастика 2025-58. Компиляция. Книги 1-21

Инженер Петра Великого 2

Гросов Виктор
2. Инженер Петра Великого
Фантастика:
попаданцы
альтернативная история
фэнтези
5.00
рейтинг книги
Инженер Петра Великого 2

Хроники Амбера. Книги Мерлина (авторский сборник)

Желязны Роджер Джозеф
Хроники Амбера
Фантастика:
фэнтези
9.26
рейтинг книги
Хроники Амбера. Книги Мерлина (авторский сборник)

Кодекс Охотника. Книга XV

Винокуров Юрий
15. Кодекс Охотника
Фантастика:
попаданцы
аниме
5.00
рейтинг книги
Кодекс Охотника. Книга XV

Я еще барон. Книга III

Дрейк Сириус
3. Дорогой барон!
Фантастика:
боевая фантастика
попаданцы
аниме
5.00
рейтинг книги
Я еще барон. Книга III

Неучтенный

Муравьёв Константин Николаевич
1. Неучтенный
Фантастика:
боевая фантастика
космическая фантастика
попаданцы
8.25
рейтинг книги
Неучтенный

Досье «ОДЕССА»

Форсайт Фредерик
Детективы:
политические детективы
7.56
рейтинг книги
Досье «ОДЕССА»

Имаджика

Баркер Клайв
7. Книга-загадка, книга-мистика
Фантастика:
фэнтези
7.56
рейтинг книги
Имаджика

Империум. Антология к 400-летию Дома Романовых

Злотников Роман Валерьевич
Фантастика:
фэнтези
социально-философская фантастика
героическая фантастика
научная фантастика
боевая фантастика
альтернативная история
6.71
рейтинг книги
Империум. Антология к 400-летию Дома Романовых

Директива Джэнсона

Ладлэм Роберт
Детективы:
шпионские детективы
7.00
рейтинг книги
Директива Джэнсона

Черная метка

Лисина Александра
7. Гибрид
Фантастика:
технофэнтези
аниме
фэнтези
попаданцы
5.00
рейтинг книги
Черная метка