Реализация циклического алгоритма на QBASIC Цикл с параметром

тех пор, пока не будет удовлетворять некоторому условию.

H
операторы
NEXT I
I - параметр цикла;
А - начальное значение параметра цикла;
В

- конечное значение параметра цикла;
Н - шаг.
Вместо А, В, Н могут быть записаны числовые постоянные или переменные уже ранее определенные в программе.

- начало цикла

- тело цикла

- конец цикла

начальное значение параметра цикла;
2) выполняются операторы входящие в тело цикла;
3)

при достижении конца цикла значение параметра I увеличивается при Н>0 (уменьшается при Н<0) на величину шага цикла;
4) полученное значение параметра цикла сравнивается с конечным значением параметра. В том случае, когда:
а) Н>0, I≤В (H<0, I≥B) происходит возврат на начальную программную строку тела цикла (см.2) и операторы тела цикла выполняются при новом значении параметра цикла;
б) Н>0, I>В (H<0, I

I = 5 TO 33 (т.к. шаг 1, то STEP

1 можно не указывать)
PRINT I; (вывод в одну строку, благодаря «;»)
NEXT I

n
FOR I = 1 TO n S = S + 1/I
NEXT

I
PRINT “Сумма равна”; S