Операторы цикла do – loop

Циклические действия выполняются до тех пор, пока выполняется определенное условие.

Формат оператора

1. Цикл ‘’ДО’’ ( выполняется не менее одного раза)

DO

[оператор 1]

... [EXIT DO]

[оператор n]

LOOP условие

2. Цикл ‘’ПОКА’’ (может не выполняться ни разу)

DO условие

[оператор 1]

... [EXIT DO]

[оператор n]

LOOP

Способы проверки условия:

WHILE – цикл выполняется, пока соблюдается условие (л.в. – истина)

UNTIL – цикл осуществляется, только если не выполняется условие (л.в. – ложь)

EXIT DO – преждевременно прерывает выполнение цикла. Работа продолжается с оператора, следующего за LOOP.

Цикл DO – LOOP может работать без проверки условий. В этом случае из бесконечного цикла можно выйти с помощью EXIT DO.

Пример 1	Пример 2	Пример 3
Z=-10 ’ цикл ''ДО'' DO T = ABS(Z) Z = Z +1 PRINT ’’T = ’’; T LOOP WHILE Z <= 0 {или LOOP UNTIL Z >0}	Z= - 10 ’ цикл ''ПОКА'' DO WHILE Z <= 0 или UNTIL Z > 0} T = ABS(Z) Z = Z +1 PRINT ’’T = ’’; T LOOP	Z= - 10 DO T = ABS(Z) Z = Z +1 PRINT ’’T = ’’; T IF Z > 0 THEN EXIT DO END IF LOOP

Операторы цикла for – next (цикл со счетчиком)

Этот цикл применяется для циклических вычислений с известным количеством повторений.

Формат оператора

FOR счетчик = N₁ TO N₂ [STEP N₃]

оператор 1

. . .

[оператор n]

[EXIT FOR]

NEXT счетчик

Счетчик – числовая переменная, изменяющаяся при повторении цикла (управляющая переменная цикла, параметр цикла).

N₁ – начальное значение счетчика – а.в., задает начальное значение параметра цикла.

N₂ - конечное значение счетчика – а.в., задает конечное значение параметра цикла.

N₃ – шаг – а.в. – приращение параметра цикла. По умолчании - шаг N₃ = 1.

EXIT FOR – прерывание цикла. Программа выполняется с оператора, следующего за NEXT.

Пример 1	Пример 2
Z= - 10 ’ Табулирование функции FOR Z = - 10 TO 0 T = ABS(Z) PRINT ’’T = ’’; T NEXT Z	S = 0 ‘ Вычисление суммы FOR I =1 TO 11 STEP 2 S = S+ (A+I)^2 NEXT I PRINT ’’S = ’’; S

Вложенные циклы

Вычислить значение функции

, , ,

k =1, 2, 3,...,16, i =1, 3, 5,..., 21

REM вложенные циклы

DIM H, M, DL, i, AI, BK, Ci, Yi, S, K

INPUT ''H,M,DL’’; H,M,DL

FOR i = 1 TO 21 STEP 2

Ai = H + I : Ci = M ^ i

S = 0

FOR K = 1 TO 16

BK = DL *K : S = S + BK*Ci

NEXT K

Yi = Ai + S

NEXT i

PRINT ”S=”;S: END

Пример:

Вычислить значение функции y_k = a_k + b_k³, k = 1, 3, …, 23,

при , x_i = x₀ + i Δ , i = 1, 2, …, k,