Кублен
Оракул
(97019)
2 года назад
с каким шагом Cos(x), 1<=x<=10, ??
Серёжк@Ученик (230)
2 года назад
об этом не чего не написано вот всё задание для моего варианта
Серёжк@Ученик (230)
2 года назад
Dim X As Integer
X=0
Do
X=X+1
Loop While X<=10 ‘До тех пор, пока Х<=10, цикл повторяется
DO … LOOP UNTIL <условие>
В отличие от предыдущего этот цикл будет выполняться до тех пор, пока значение управляющего условия равно False.
Пример:
Dim X As Integer
X=0
Do
X=X+1
Loop Until X>10 ‘Как только переменная станет больше десяти, выполнение цикла прекратится
Серёжк@Ученик (230)
2 года назад
Циклы с предусловием
Оператор DO WHILE <условие> … LOOP позволяет проверить условие перед началом цикла и выполнять цикл пока оно имеет значение True. Как только условие, управляющее работой цикла, примет значение False, выполнение тела цикла прекратится.
Пример:
Dim X As Integer ‘Описание переменной X целого типа
X=0 ‘Начальное значение переменной X
DO WHILE X<=10 ‘Пока Х<=10, цикл будет повторяться
X=X+1 ‘Изменение значения переменной Х
LOOP ‘Конец цикла
Другой вариант записи инструкции такого цикла:
WHILE <условие>… WEND
Пример:
X=0
WHILE X<12
Y=Cos(X)
X=X+1
WEND