Операторы 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
Дата добавления: 2016-04-02; просмотров: 775;