Цикл WHILE … WEND
Формат
WHILEлогическое выражение
Блок команд
WEND
Данный оператор позволяет выполнять блок команд до тех пор, пока значение логического выражения "Истина". После завершения цикла управление передается команде, следующей за WEND. Например:
WHILE PAS$<>"Петуния"
INPUT"Введите пароль";PAS$
WEND
PRINT"Добро пожаловать"
Этот цикл будет работать до тех пор, пока не будет введен правильный пароль.
В блоке команд должен присутствовать оператор, влияющий на значение логического выражения.
Например:
1) I=0
WHILE I<=10
I=I+1 'оператор, который влияет на значение логического выражения
WEND
PRINT I
2) Пример бесконечного цикла
I=0
WHILE I<=10
INPUT A
S=S+A
WEND
PRINT S
В блоке команд нет оператора, который бы изменял значение I.
Если при первой проверке условия окажется, что значение логического выражения - "Ложь", блок команд не будет выполнен ни разу. Например:
I=10
WHILE I<10
I=I+1
WEND
Пример 1. Вычислить сумму четных чисел в интервале от 1 до 10 включительно.
' I - четные числа
' Sum - сумма четных чисел
I=2
Sum=0
WHILE I<=10
Sum=Sum+I
I=I+2
WEND
PRINT"Сумма четных чисел в интервале от 0 до 10 =";Sum
Пример 2. В подъезде N ступенек. Сколько шагов будет сделано, если шагать через 3 ступеньки.
' KS - количество ступенек
' KH - количество шагов
INPUT "Введите количество ступенек";N
KS=0
KH=0
WHILE KS<=N
KS=KS+3
KH=KH+1
WEND
PRINT"Количество шагов=";KH
Пример 3. Известна сумма номеров страниц. Определить номер страницы.
' NS - номер страницы
' S - сумма номеров страниц
INPUT"Введите сумму номеров страниц";Q
NS=0
S=0
WHILE S<Q
NS=NS+1
S=S+NS
WEND
PRINT"Номер страницы = ";NS
Домашнее задание:
Вычислить значения членов последовательности K=3i, где i=1, 3, 5, ..., не превышающих заданного числа N.
Дата добавления: 2015-09-14; просмотров: 876;