Оператор цикла DO LOOP [{WHILE | UNTIL}]. Этот оператор называется циклом с постусловием, т. к. проверка условия осуществляется после каждого выполнения тела цикла, DO <операторы> LOOP [{WHILE | UNTIL} условие]
Цикл выполняется до тех пор, пока условие не станет истинным. Например, проверка на то, чтобы задать длину последовательности, осуществляется следующим образом: DO PRINT "ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = " INPUT N% LOOP UNTIL N% >0 Цикл выполняется до тех пор, пока пользователь не введет положительное число.
При использовании UNTIL цикл выполняется до тех пор, пока не выполнится условие, а при использовании WHILE цикл выполняется только при выполнении условия и заканчивается, если условие нарушается.
Операторы цикла DO WHILE/UNTIL LOOP и WHILE WEND.
Эти циклы называются циклами с предусловием, т. к. проверка проводится до начала очередной операции: DО [{WHILE UNTIL}условие] <тело цикла> LOOP или WHILE <условие> <тело цикла> WEND Цикл WHILE выполняется, пока условие истинно. Как только условие нарушается, выполнение цикла завершается.
Если используется UNTIL, то выполнение происходит до тех пор, пока условие не станет истинным.
Программа.
CLS
PRINT "значение переменной/сумма/точное значение функции/ошибка расчета/ число шагов "
PRINT "X /S /Y /T /K "
e=0.0001
For X=3.14/5 to 9*3.14/5 step 3.14/5
S=0
N=1
K=0
Do
V=cos (N*X)/N S=S+V
N=N+1
K=K+1
Loop until ABS (V) < =e
Y = -log (ABS (2*sin (X/2)))
T=ABS (S-Y) (Y*100)
Print X, S, Y, T, K
NEXT X
END
Вывод результатов программы:
