9. Оператор цикла Принудительное прерывание программы

До сих пор рассматривались программы, которые выполняли операторытолько один раз. Но часто бывает нужно, чтобы оператор выполнялся заданное число раз. Бывает, что нужно, чтобы оператор выполнялся до тех пор, пока выполняется некоторое заданное условие. Если записано неверное условие, то программа может выполять оператор бесконечное число раз. Для её прерывания используется комбинация клавиш CTRL+BREAK.

Приведём пример программы, которая заканчивается принудтительным прерыванием.

DO

PRINT “INFORMATIKA”;

LOOP

Цикл do……loop

Создадим программу, которая работает до тех пор, пока пользователь не ответит «ДА» или «да» на вопрос «Нравится ли вам QBASIC?”. Если пользователь ответит что-то другое, программа спрашивает его заново.

DO

INPUT « Нравится ли вам QBASIC?”, O$

LOOP UNTIL O$=«ДА» OR O$= «да»

PRINT « Прекрасно! »

Обратим внимание, что, если в операторе INPUT используется запятая, знак ? в конце текста не ставится, а если стоит ; ,то ставится.

Общая структура операторов DO…. LOOP:

Первая возможность – это когда логическое условие находится в конце.

Например:

DO

………(Операторы)

LOOP UNTIL (логическое выражение)

В последнем примере было логическое выражение O$=«ДА» OR O$= «да»

Вторая возможность – написать логическое выражение вначало. Например,

DO UNTIL (логическое выражение)…

…(операторы)

LOOP

Оба цикла выполняют операторы до тех пор, пока условие неверно (значение равно 0). Если условия нет, то цикл бесконечный. Иногда вместо команды UNTIL используется команда WHILE. Тогда цикл работает до тех пор, пока условие выполняется (значение –верно, т.е. отличное от нуля)

Логическое условие может быть написано вначале:

DO WHILE (логическое условие)

(операторы)

LOOP

Логическое условие может быть написано в конце:

DO

(операторы)

LOOP WHILE (логическое условие)

Если WHILE или UNTIL находятся в конце, то цикл выполняется хотя бы один раз , а если впереди, то ноль или больше раз.

Рассмотрим ещё две программы, где используется оператор WHILE или UNTIL. Программы печатают все числа от 1 до 10.

Программа 1.

I=1

DO

PRINT I I=I+1

LOOP UNTIL I=10

Программа 2.

I=0

DO

PRINT I I=I+1

LOOP WHILE I<10

Из цикла DO …..LOOP можно выйти и преждевременно. Для этого используется оператор EXIT DO. Рассмотрим программу, которая находит такое значение I, что I^I=2. Программа заканчивает выполнение, когда находит значение I с заданной точностью. Программа заканчивает работу, если не находит такое значение, т.е. I становится больше 2 и нет смысла искать значения дальше.

DO

I=I+0.0001

IF ABS (2-I^I)<0.001 THEN

PRINT “Значение равно”; I

EXIT DO

END IF

LOOP UNTIL I>2

PRINT «Программа закончила работу»

При изменении шага и точности могут возникнуть случаи, когда решения нет.

Цикл for...Next

Цикл FOR…NEXT хорошо использовать, когда нужен счётчик. Например в следующей программе мы считаем количество ходов.

FOR I=1 TO 10 STEP 2

PRINT I

NEXT

Программа напечатает 1, 3,5, 7, 9.

Циклы могут быть вложенными один в другой. Например в следующей программе.

Программа печатает таблицу умножения.

CLS´Чистит экран

FOR I=1 TO 10

FOR J=1 TO 10

PRINT I*J

NEXT J

PRINT ´Начинается новый ряд

NEXT I

Вначале закрывается внутренний цикл, затем внешний.

Можно использовать переменные цикла внутри программы, например в программе выбора цветов.

CLS

FOR I=1 TO 31

COLOR I´Выбор цвета

PRINT “Цвет“; I;

NEXT I

Выполнение цикла можно прервать. Для этого используется оператор EXIT FOR. Рассмотрим программу, которая находит наибольшее n из промежутка 1……….100, удовлетворяющее условию: 1+2+3+ +n<1000. После нахождения числа программа прерывается.

FOR N=1 TO 100

SUM=SUM+N

IF SUM >=1000 THEN EXIT FOR

NEXT N

PRINT N

В этой программе видно также, что при выходе из цикла печатается последнее принимаемое переменной значение.