То, что стоит между началом и концом цикла, называется телом цикла. Иногда также применяются вложенные циклы, то есть циклы могут быть вложенными один в другой.FOR X=A TO B STEP H ................... NEXT X Здесь X - переменная, A - начальное значение переменной, B - конечное значение переменной, H - шаг, с которым меняется переменная. Если шаг STEP H отсутствует, то по умолчанию шаг H=1. При этом переменная X называется счётчиком цикла. Повторение участка программы с шагом H происходит до тех пор, пока X<B. Число повторений цикла равно (B-A)/H. При X=B цикл заканчивается и выполняется оператор, следующий за оператором конца цикла NEXT. Возможно, что шаг H<0, но тогда A>B. Пример 1: Напечатать на экране текст 20 раз. CLS FOR X=1 TO 20 PRINT "С Новым Годом!"; NEXT X Пример 2: Вычислить сумму n первых членов ряда S=1+1/4+1/9+...+1/n^2 CLS INPUT "Введите число членов ряда: n=", n FOR i = 1 TO n S = S + 1 / i ^ 2 NEXT i PRINT "Сумма n первых членов ряда равна: S=", S Пример 3: Нарисуйте 15 разноцветных концентрических окружностей. SCREEN 7 FOR i = 1 TO 15 CIRCLE (160, 100), i * 6, i NEXT i Пример 4: Разлинуйте экран в клеточку. SCREEN 7 FOR i = 1 TO 32 LINE (0, 10 * i)-(320, 10 * i), 15 LINE (10 * i, 0)-(10 * i, 200), 15 NEXT i Примеры 5,6: Одновременное использование циклического и условного операторов. Вычисление функций, имеющих ограничения в области определения. Примечание: Оператор IF...THEN...ELSE в QBasic должен быть записан в одну строку! Пример 5. CLS REM Вычислить функцию y=1/(x^2-5*x-6) FOR x = -10 TO 10 IF x ^ 2 - 5 * x - 6 = 0 THEN PRINT "При x=-1, x=6 функция не определена!"; ELSE y = 1 / (x ^ 2 - 5 * x - 6) PRINT "x="; x, " y="; y NEXT x
|
