Циклічні алгоритми

Для багаторазового виконання одних і тих же дій застосовують циклічні структури. Існує 2 типи циклічних структур:

1. do loop

2. for next

Цикл for next – синтаксис:

For <змінна циклу>=<початкове значення змінної циклу> to <кінцеве значення змінної циклу> [step<крок>]

[інструкції]

[exit for] – достроковий вихід з циклу

[інструкції]

next <змінна циклу>.

Дія оператора: зміна циклу змінює своє значення від початкового до кінцевого зі значення кроку. Якщо крок відсутній, то змінна циклу змінює своє значення від початкового до кінцевого зі значенням 1.

Оператор next забезпечує зміну значення змінної циклу.

Знаходження суми та добутку

Характерною особливістю циклів для знаходження сум та добутків є те, що в цих задачах необхідно вводити змінну, в якій буде накоплюватись значення суми та добутку. Для суми це значення 0, для добутку - 1.

Відмінність циклів do loop та for next полягає в тому, що в циклі for next ми наперед знаємо скільки раз буде працювати цикл (коли змінна циклу досягне свого кінцевого значення), а кількість прорахунків в циклі do loop невідома: вихід з циклу відбувається за виконання певної умови.

Приклад 1. Знайти суму (добуток) чисел від 1 до 10, застосовуючи цикл do loop while. Дія циклу: повторюється виконання інструкцій між do та loop while до тих пір, поки значення логічного виразу після while дорівнює true.

S=0’p=1

i=0’ змінна циклу

do

i=i+1

s=s+i’p=p*1

loop while i<=10

msgbox s

Приклад 2. Знайти суму (добуток) чисел від 1 до 10 застосовуючи цикл do loop until. Дія циклу: повторюється виконання інструкцій між do та loop until до тих пір, поки значення логічного виразу після until не досягне значення true.

S=0’p=1

i=0’ змінна циклу

do

i=i+1

s=s+i’p=p*1

loop until i=10

msgbox s

Приклад 3. Знайти суму (добуток) чисел від 1 до 10 застосовуючи цикл for next.

n=10

s=0’p=1

for i=1 to n

s=s+i’p=p*i

next i

msgbox n

Приклад 4. Знайти суму (добуток) парних чисел від 2 до 10 застосовуючи цикл for next.

n=10

s=0’p=1

for i=2 to n step 2

s=s+i’p=p*i

next i

msgbox n