Реализация циклического алгоритма на QBASIC. Цикл с параметром
Цикл - это фрагмент программы, повторяющийся:1) заданное количество раз;2) до тех пор, пока не будет удовлетворять некоторому условию.
Оператор FOR ... NEXT Синтаксис:FOR I = A TO B STEP HоператорыNEXT II - параметр цикла;А - начальное значение параметра цикла;В - конечное значение параметра цикла;Н - шаг.Вместо А, В, Н могут быть записаны числовые постоянные или переменные уже ранее определенные в программе.
Выполнение оператора цикла производиться по следующим правилам: 1) переменной I присваивается начальное значение параметра цикла;2) выполняются операторы входящие в тело цикла;3) при достижении конца цикла значение параметра I увеличивается при Н>0 (уменьшается при Н<0) на величину шага цикла;4) полученное значение параметра цикла сравнивается с конечным значением параметра. В том случае, когда:а) Н>0, I≤В (H<0, I≥B) происходит возврат на начальную программную строку тела цикла (см.2) и операторы тела цикла выполняются при новом значении параметра цикла;б) Н>0, I>В (H<0, I<B) происходит переход к выполнению программных строк, записанных после конца цикла.
1. Напечатать на экране: 5, 6, 7, 8, ... ,33.Решение.CLSFOR I = 5 TO 33 (т.к. шаг 1, то STEP 1 можно не указывать)PRINT I; (вывод в одну строку, благодаря «;»)NEXT I
2. Вычислить сумму 1 +Решение.CLSS = 0INPUT “Количество слагаемых n”; nFOR I = 1 TO nS = S + 1/INEXT IPRINT “Сумма равна”; S
3. Вычислить сумму:Решение.CLSS = 0FOR k = 3 TO 20S = S + 1/(k^2 + k + 1)NEXT kPRINT “Сумма равна”; S
4. Вывести на экране: 2, 4, 6, ... , 22.5. Вывести на экран сумму всех чисел от 5 до 20.6. Вычислить произведение четных чисел от 8 до 18.7. Вывести на экране: 10, 15, 20, ... , 65.8. Вычислить сумму: 9. Вычислить сумму всех трехзначных чисел кратных 13 (первое число 104).