QBasic и цикл с переменным шагом

Формулировка задачи:

В циклах не всегда бывает шаг постоянным, например равным 1. При вычислении простых чисел часто используется Цикл с переменным шагом. То шаг равен 2, то 4. Здесь я привожу два простых примера: вычисление суммы рядов. Особое внимание обратите на оператор SWAP (!!!) эта программа вычисляет сумму первой тысячи членов ряда с переменным шагом 2 и 4 Ряд: 1 + 3 + 7 + 9 + 13 + 15 + 19 + 21 + 25 + 27 + 31 + 33 + 37 + ...

REM 1+3+7+9+13+15+19+21+...
DEFLNG A-C, I, S
a = 2
b = 4
s = 1
i = 1
CLS
DO
   i = i + 1
   s = s + a
   SWAP a, b
LOOP UNTIL i = 1000
PRINT "SUMMA="; s
END

Программа, вычисляющая ряд, где шаг равен 2, 3, 4, 5 То есть надо вычислить сумму первой тысячи членов ряда: 1 + 3 + 6 + 10 + 15 + 17 + 20 + 24 + 29 + 31 + 34 + 38 + 43 + ...

REM 1+3+6+10+15+17+20+24+29+...
DEFLNG A-C, I, S
a1 = 2
a2 = 3
a3 = 4
a4 = 5
s = 1
i = 1
CLS
DO
   i = i + 1
   s = s + a1
   SWAP a1, a2
   SWAP a2, a3
   SWAP a3, a4
LOOP UNTIL i = 1000
PRINT "SUMMA="; s
END

Успехов вам!

Решение задачи: «QBasic и цикл с переменным шагом»

Листинг программы

ix = 1
a(1) = 2
a(2) = 3
a(3) = 4
a(4) = 5
s = 1
i = 1
CLS
DO
   i = i + 1
   s = s + a(ix)
   ix = (ix MOD 4) + 1
LOOP UNTIL i = 1000
PRINT "SUMMA="; s

Объяснение кода листинга программы

Объявляются переменные: ix, a(1), a(2), a(3), a(4), s, i, и инициализируются начальными значениями.
Запускается цикл DO-LOOP, который выполняется до тех пор, пока значение переменной i не станет равным 1000.
Внутри цикла происходит увеличение значения переменной i на единицу.
К переменной s прибавляется значение переменной a(ix).
Значение переменной ix обновляется следующим образом: если ix больше или равно 4, то значение переменной ix устанавливается равным 1, иначе оно увеличивается на единицу.
После окончания цикла выводится значение переменной s.