Операторы GOTO и IF

Совместное использование этих операторов позволяет организовать выполнение циклического процесса.

Пример. Найти сумму и произведение 5 чисел.

REM Объявление начальных значений переменных

SUM=0: P=1: N=1

NEXT.STEP:

PRINT “Введите “; N; “число”

INPUT NUM

REM Вычисление суммы

SUM=SUM+NUM

REM Вычисление произведения

P=P*NUM

N=N+1

IF N<=5 GOTO NEXT.STEP ‘ Переход на строку с меткой NEXT.STEP

PRINT “Сумма этих чисел = “;SUM; “Произведение = “;P

END

Оператор цикла с известным числом повторений

FOR …TO … NEXT

Этот оператор позволяет организовать выполнение блока операторов определенное число раз (организуют цикл по счетчику). Поэтому он может заменить операторы GOTO и IF. Общий вид оператора:

FOR U = A1 TO A2 [STEP A3]

тело цикла

NEXT U

где: U – управляющая переменная цикла; A1 , A2 – начальное и конечное значение управляющей переменной; A3- шаг изменения управляющей переменной; тело цикла – набор операторов повторяющегося вычислительного процесса. Если А3=1, то конструкцию STEP A3 можно опустить. Программа в предыдущем примере эквивалентна следующей:

Пример 1. Найти сумму и произведение 5 чисел.

REM Объявление начальных значений переменных

SUM=0: P=1

REM Начало цикла

FOR U=1 TO 5

PRINT “Введите “; U; “ число”

INPUT NUM

REM Вычисление суммы

SUM=SUM+NUM

REM Вычисление произведения

P=P*NUM

NEXT U

PRINT “Сумма этих чисел = “;SUM; “Произведение = “;P

END

Пример 2.

FOR X=1 to 10 STEP 1

Y=X^2+ B*X- C

PRINT “ X=“; X, “ Y=“; Y

NEXT X

Пример 3. Ввод массива

REM ВВОД МАССИВА

INPUT “ВВЕСТИ L”; L

DIM P(L)

PRINT “ВВЕСТИ МАССИВ P”

FOR I= 1 to L

INPUT P(I)

NEXT I

END

Условные циклы

Для организации циклов с неизвестным числом повторений (итерационных) используются операторы условных циклов.

Оператор цикла с предусловием WHILE … WEND

Общий вид этого оператора:

WHILE условие

тело цикла

WEND

где: условие – логическое выражение; тело цикла – последовательность операторов.

Пока условие истинно, выполняются все операции тела цикла. Еcли условие - “ложь” - то управление передается на оператор, следующий за WEND. Особенности работы оператора:

- можно использовать при неизвестном заранее количестве повторений;

- можно использовать, если закон изменения параметров выражается формулой;

- в теле цикла должен быть оператор, изменяющий условие.

Пример 1. Найти количество первых n натуральных чисел, сумма которых не больше 20.

SUM=0: N=0

WHILE SUM<=20

N=N+1

SUM=SUM+N

WEND

PRINT N; SUM

END

Пример 2. Условный цикл

X= 4

WHILE X<= 12

Y=X^2 + B*X - C

PRINT “X=“; X, “Y=“; Y

X=X+2

WEND